Update Xcos Toolbox Skeleton :
[scilab.git] / scilab / contrib / xcos_toolbox_skeleton / macros / TBX_MUT_STYLE.sci
1 //
2 // This file is part of the Xcos skeleton toolbox
3 //
4 // see license.txt for more licensing information
5
6 function [x,y,typ]=TBX_MUT_STYLE(job,arg1,arg2)
7   x=[];y=[];typ=[]
8   select job
9    case 'set' then
10     x=arg1;
11     model = x.model;
12     graphics = x.graphics;
13
14     // no parameters yet, just change the style of the block and the ports
15     hexa = [string(1:9) "A" "B" "C" "D" "E" "F"];
16     graphics.style = "BIGSOM_f;fillColor=#" + strcat(hexa(15 * rand(1,6) + 1));
17
18     port_styles = ["actor" "cloud" "connector" "cylinder" "curve" "doubleEllipse" "ellipse" "hexagon" "image" "label" "line" "rectangle" "rhombus" "triangle"];
19     graphics.in_style = "ExplicitInputPort;shape=" + port_styles(size(port_styles, '*') * rand(model.in) + ones(model.in));
20     graphics.out_style = "ExplicitOutputPort;shape=" + port_styles(size(port_styles, '*') * rand(model.out) + ones(model.out));
21
22     disp(graphics.style);
23     disp(graphics.in_style);
24     disp(graphics.out_style);
25
26     x.model = model;
27     x.graphics = graphics;
28
29    case 'define' then
30     model=scicos_model()
31     model.sim=list('block_sum',4)
32     // n inputs with a single "double" element
33     model.in=ones(4, 1);
34     model.intyp=ones(model.in);
35     // one output with a single "double" element
36     model.out=1
37     model.outtyp=1
38
39     model.blocktype='c'
40     model.dep_ut=[%f %f]
41
42     exprs=string([]);
43     gr_i=[]
44     x=standard_define([2 2],model,exprs,gr_i);
45     x.graphics.style="BIGSOM_f";
46   end
47 endfunction
48