scilab/node/start.sce

   1 //1 +/-
   2 //2 damier
   3 //3 spinner and sliders
   4 //4 demo uicontrol
   5 //5 RGB
   6 //6 RGB two windows
   7 //7 border layout
   8 //8 gridbag layout
   9 //9 tab
  10 //0 visible
  11 //11 opticlim uicontrol
  12 //12 normalized
  13 //13 opticlim
  14
  15 demo = 13;
  16
  17 if demo == 1 then
  18     f1 = createWindow();
  19     f1.position(3:4) = [250, 100];
  20
  21     uicontrol(f1, "position", [25 25 50 50], "string", "+1", "callback", "v = eval(get(''num'', ''string''));set(''num'', ''string'', string(v + 1));");
  22     uicontrol(f1, "position", [100 25 50 50], "string", "0", "tag", "num", "callback", "set(''num'', ''string'', ''0'');");
  23     uicontrol(f1, "position", [175 25 50 50], "string", "-1", "callback", "v = eval(get(''num'', ''string''));set(''num'', ''string'', string(v - 1));");
  24 end
  25
  26 if demo == 2 then
  27     dim = 5;
  28     f2 = createWindow();
  29     f2.visible = %f;
  30     f2.position(3:4) = [50 * dim + 50, 50 * dim + 125];
  31     for i=1:dim*dim
  32         x = floor((i-1) / dim);
  33         y = modulo((i-1), dim);
  34         uicontrol(f2, "position", [25 + 50*x, 100 + 50*y,50,50],"string", string(x) + " - " + string(y), "callback", "set(gcbo, ''enable'', %f)");
  35     end
  36
  37     uicontrol(f2, "position", [f2.position(3)/2 - 50, 25, 100, 50], "string", "reset", "callback", "c = gcbo.parent.children;for i=1:size(c, ''*''), c(i).enable = %t;end");
  38     f2.visible = %t;
  39 end
  40
  41 if demo == 3 then
  42     xdel(winsid());
  43     clear;
  44
  45     function reset()
  46         minval = get("min", "value");
  47         maxval = get("max", "value");
  48         set("slider", "value", string(((maxval - minval) / 2) + minval));
  49     endfunction
  50
  51     function onchange()
  52         set("slider", "min", get("min", "value"));
  53         step = get("step", "value");
  54         set("slider", "sliderstep", [step, step*10]);
  55         set("slider", "max", get("max", "value"));
  56     endfunction
  57
  58     f = createWindow();
  59     f.visible = %f;
  60     f.position(3:4) = [300, 200];
  61
  62     uicontrol("style", "text", "string", "0", "position", [120, 160, 60, 20], "horizontalalignment", "center", "tag", "val");
  63     uicontrol("style", "slider", "position", [10 120 280 30], "min", -100, "max", 100, "sliderstep", [1, 1], "value", 0, "tag", "slider");
  64
  65     uicontrol("style", "text", "string", "min", "position", [25 80 50 20], "horizontalalignment", "center");
  66     uicontrol("style", "text", "string", "step", "position", [125 80 50 20], "horizontalalignment", "center");
  67     uicontrol("style", "text", "string", "max", "position", [225 80 50 20], "horizontalalignment", "center");
  68
  69     uicontrol("style", "spinner", "min", -100, "max", 0, "sliderstep", [1, 1], "value", "-100", "position", [25 50 50 20], "horizontalalignment", "center", "tag", "min");
  70     uicontrol("style", "spinner", "min", 1, "max", 10, "sliderstep", [1, 1], "value", "1", "position", [125 50 50 20], "horizontalalignment", "center", "tag", "step");
  71     uicontrol("style", "spinner", "min", 0, "max", 100, "sliderstep", [1, 1], "value", "100", "position", [225 50 50 20], "horizontalalignment", "center", "tag", "max");
  72
  73     uicontrol("style", "pushbutton", "string", "reset", "position", [100 10 100 30], "callback", "reset");
  74     f.visible = %t;
  75
  76     set("slider", "callback", "val = gcbo.value;set(""val"", ""string"", string(val));");
  77     set("min", "callback", "onchange");
  78     set("step", "callback", "onchange");
  79     set("max", "callback", "onchange");
  80
  81 end
  82
  83
  84 if demo == 4 then
  85     f = createWindow();
  86     f.position = [200 200 240 470];
  87     f.figure_name = "";
  88
  89     fr1 = uicontrol("style", "frame", "position", [10 10 220 450], "border", createBorder("etched"));
  90     spinner = uicontrol(fr1, "style", "spinner", "string", "0", "position", [10 410 200 30], "horizontalalignment", "right", "min", 0, "max", 5);
  91     label = uicontrol(fr1, "style", "text", "string", "usedeprecatedskin=""off""", "position", [10 370 200 30], "backgroundcolor", [1 0 1]);
  92     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "position", [10 330 200 30], "backgroundcolor", [1 0 0]);
  93     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "position", [10 290 200 30]);
  94     checkbox = uicontrol(fr1, "style", "checkbox", "string", "Checkbox", "position", [10 250 200 30]);
  95     radio = uicontrol(fr1, "style", "radiobutton", "string", "Radiobutton", "position", [10 210 200 30]);
  96     slider = uicontrol(fr1, "style", "slider", "position", [10 150 200 50]);
  97     frame = uicontrol(fr1, "style", "frame", "position", [10 110 200 30], "backgroundcolor", [0.5 0.5 0.5]);
  98     listbox = uicontrol(fr1, "style", "listbox", "string", "listbox1|listbox2|listbox3|listbox4|listbox5", "position", [10 50 200 50], "backgroundcolor", [0.2 0.2 0.2]);
  99     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2", "position", [10 10 200 30], "backgroundcolor", [0.8 0.8 0.8]);
 100 end
 101
 102 if demo == 5 then
 103     xdel(winsid());
 104     clear onChange;
 105
 106     function onChange()
 107         R = get("sliderR", "value");
 108         G = get("sliderG", "value");
 109         B = get("sliderB", "value");
 110         set("textR", "string", string(R));
 111         set("textG", "string", string(G));
 112         set("textB", "string", string(B));
 113         set("color", "backgroundcolor", [R, G, B]/255);
 114     endfunction
 115
 116
 117     f = createWindow();
 118     f.visible = %f;
 119     f.position(3:4) = [300, 130];
 120
 121     uicontrol("style", "slider", "position", [10 10 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderB");
 122     uicontrol("style", "slider", "position", [10 50 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderG");
 123     uicontrol("style", "slider", "position", [10 90 128 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderR");
 124
 125     uicontrol("style", "text", "position", [150 15 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textB");
 126     uicontrol("style", "text", "position", [150 55 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textG");
 127     uicontrol("style", "text", "position", [150 95 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textR");
 128
 129     uicontrol("style", "frame", "position", [200 20 90 90], "tag", "color", "backgroundcolor", [0, 0, 0]);
 130
 131     set("sliderR", "callback", "onChange");
 132     set("sliderG", "callback", "onChange");
 133     set("sliderB", "callback", "onChange");
 134
 135     f.visible = %t;
 136 end
 137
 138 if demo == 6 then
 139     xdel(winsid());
 140     clear onChange;
 141     function onChange()
 142         R = get("sliderR", "value");
 143         G = get("sliderG", "value");
 144         B = get("sliderB", "value");
 145         set("textR", "string", string(R));
 146         set("textG", "string", string(G));
 147         set("textB", "string", string(B));
 148         set("color", "backgroundcolor", [R, G, B]/255);
 149     endfunction
 150
 151
 152     f1 = createWindow();
 153     f1.position = [100, 100, 350, 130];
 154     f1.figure_name = "sliders";
 155
 156     uicontrol(f1, "style", "slider", "position", [10 10 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderB");
 157     uicontrol(f1, "style", "slider", "position", [10 50 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderG");
 158     uicontrol(f1, "style", "slider", "position", [10 90 256 30], "min", 0, "max", 255, "sliderstep", [1, 10], "value", 0, "tag", "sliderR");
 159
 160     uicontrol(f1, "style", "text", "position", [300 15 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textB");
 161     uicontrol(f1, "style", "text", "position", [300 55 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textG");
 162     uicontrol(f1, "style", "text", "position", [300 95 40 20], "string", "0", "backgroundcolor", [1, 1, 1], "horizontalalignment", "center", "tag", "textR");
 163
 164     f2 = createWindow();
 165     f2.position = [450, 100, 130, 130];
 166     f2.figure_name = "RGB";
 167     uicontrol(f2, "style", "frame", "position", [15 15 100 100], "tag", "color", "backgroundcolor", [0, 0, 0]);
 168
 169     set("sliderR", "callback", "onChange");
 170     set("sliderG", "callback", "onChange");
 171     set("sliderB", "callback", "onChange");
 172 end
 173
 174 //border layout
 175 if demo == 7 then
 176
 177     f = createWindow();
 178     f.layout = "border";
 179     f.layout_options = createLayoutOptions("border", [10, 20]);
 180     //f.layout_options = createLayoutOptions("border");
 181
 182     c = createConstraints("border", "top", [50,20]);
 183
 184     t = %t;
 185     l = %t;
 186     m = %t;
 187     r = %t;
 188     b = %t;
 189
 190     if t then
 191         u_grid1 = uicontrol(f,...
 192         "style", "frame",...
 193         "backgroundcolor", [1 0 0], ...
 194         "constraints", c);
 195     end
 196
 197     if l then
 198         c.position = "left";
 199         u_grid2 = uicontrol(f,...
 200         "style", "frame",...
 201         "backgroundcolor", [0 1 0], ...
 202         "constraints", c);
 203     end
 204
 205     if m then
 206         c.position = "center";
 207         u_grid3 = uicontrol(f,...
 208         "style", "frame",...
 209         "backgroundcolor", [0 0 1], ...
 210         "constraints", c);
 211     end
 212
 213     if r then
 214         c.preferredsize = [100, 100];
 215         c.position = "right";
 216         u_grid4 = uicontrol(f,...
 217         "style", "frame",...
 218         "backgroundcolor", [1 1 0], ...
 219         "constraints", c);
 220     end
 221
 222     if b then
 223         c.position = "bottom";
 224         u_grid5 = uicontrol(f,...
 225         "style", "frame",...
 226         "backgroundcolor", [1 0 1], ...
 227         "constraints", c);
 228     end
 229 end
 230
 231 //gridbag layout
 232 if demo == 8 then
 233     f = createWindow();
 234     f.position = [200 200 200 100];
 235     f.layout = "gridbag";
 236
 237     c = createConstraints("gridbag",[1, 1, 1, 1], [1, 1], "both", "center", [0, 0], [50, 50]);
 238
 239     redf_grid   = [1, 1, 1, 1];
 240     greenf_grid = [1, 2, 1, 1];
 241     bluef_grid  = [1, 3, 2, 1];
 242     yelf_grid   = [2, 1, 1, 2];
 243     magf_grid   = [3, 1, 1, 1];
 244     cyanf_grid  = [3, 2, 1, 2];
 245
 246     c.grid = bluef_grid;
 247     u_grid3 = uicontrol(f , ...
 248     "style"               , "frame", ...
 249     "backgroundcolor"     , [0 0 1], ...
 250     "constraints"         , c);
 251
 252     c.grid = cyanf_grid;
 253     u_grid1 = uicontrol(f , ...
 254     "style"               , "frame", ...
 255     "backgroundcolor"     , [0 1 1], ...
 256     "constraints"         , c);
 257
 258     c.grid = redf_grid;
 259     u_grid1 = uicontrol(f , ...
 260     "style"               , "frame" , ...
 261     "backgroundcolor"     , [1 0 0] , ...
 262     "constraints"         , c);
 263
 264     c.grid = greenf_grid;
 265     u_grid2 = uicontrol(f , ...
 266     "style"               , "frame", ...
 267     "backgroundcolor"     , [0 1 0], ...
 268     "constraints"         , c);
 269
 270     c.grid = yelf_grid;
 271     u_grid4 = uicontrol(f , ...
 272     "style"               , "frame", ...
 273     "backgroundcolor"     , [1 1 0], ...
 274     "constraints"         , c);
 275
 276     c.grid = magf_grid;
 277     u_grid5 = uicontrol(f , ...
 278     "style"               , "frame", ...
 279     "backgroundcolor"     , [1 0 1], ...
 280     "constraints"         , c);
 281 end
 282
 283
 284 //tab
 285 if demo == 9 then
 286
 287     xdel(winsid());
 288     clear onPush;
 289     function onPush()
 290         set("push", "string", string(get("tab", "value")));
 291     endfunction
 292
 293     f = createWindow();
 294     f.position = [200 200 400 300];
 295
 296     tab = uicontrol(f, "style", "tab", "tag", "tab", "position", [0 30 400, 270]);
 297
 298     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "layout", "border", "backgroundcolor", [0 0 1]);
 299     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "layout", "border", "backgroundcolor", [0 1 0]);
 300     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "layout", "border", "backgroundcolor", [1 0 0]);
 301
 302     uicontrol(f, "style", "pushbutton", "string", "push me", "callback", "onPush", "tag", "push", "position", [150 0 100 30]);
 303
 304     set("tab", "value", 1);
 305 end
 306
 307 if demo == 10 then
 308
 309     fig_pregui = figure("figure_name", "OPTICLIM - site and weather selection", ...
 310     "dockable", "off", ...
 311     "axes_size", [500,170], ...
 312     "infobar_visible", "off", ...
 313     "toolbar", "none", ...
 314     "menubar_visible", "on", ...
 315     "menubar", "none", ...
 316     "default_axes", "off", ...
 317     "resize", "off", ...
 318     "layout", "border", ...
 319     "background", color(244,244,244), ...
 320     "tag", "figure_preopticlim", ...
 321     "visible", "off");
 322
 323     //b1 = createBorder("titled", createBorder("etched"), "Choose your site:", "left", "top", createBorderFont("", 11, "bold"), "black");
 324
 325     OpticlimPath = "E:\git\toolbox\sanofi-opticlim\";
 326     f = uicontrol(fig_pregui, "style", "frame", ...
 327     "fontsize", 11);
 328     //font1 = createBorderFont("", 11, "bold");
 329     //b1 = createBorder("titled", createBorder("etched"), _d("OPTICLIM", "Choose your site")+":", "left", "top", font1, "black");
 330     f1 = uicontrol(f, "style", "frame", ...
 331     "layout", "gridbag", ...
 332     "constraints", createConstraints("gridbag", [1 1 3 1], [1 1], "both", "left"), ...
 333     "fontsize", 11);
 334     uicontrol(f1, "style", "popupmenu", "string", [], ...
 335     "fontsize", 11, ...
 336     "horizontalAlignment", "center", ...
 337     "margins", [0,5,0,5], ...
 338     "tag", "site_list", ...
 339     "callback", "cbChangeSite", ...
 340     "constraints", createConstraints("gridbag", [1 1 1 1], [5 1], "horizontal", "left", [0,0], [330,22]));
 341     path_icon = OpticlimPath+"pictures/list-add.png";
 342     uicontrol(f1, "style", "pushbutton", "string", "", ...
 343     "fontsize", 11, ...
 344     "horizontalAlignment", "center", ...
 345     "icon", path_icon, ...
 346     "margins", [0,5,0,5], ...
 347     "callback", "cbAddSite", ...
 348     "constraints", createConstraints("gridbag", [2 1 1 1], [1 1], "horizontal", "left"));
 349
 350     sleep(500);
 351     fig_pregui.visible = "on";
 352 end
 353
 354 //opticlim uicontrol
 355 if demo == 11 then
 356     xdel(winsid());
 357     clear onPush;
 358     function onPush()
 359         if 0 then
 360             set("tabs", "value", 2);
 361         end
 362         if 1 then
 363             r1 = "r1: " + string(get("radio1", "value")) + " ";
 364             r2 = "r2: " + string(get("radio2", "value")) + " ";
 365             c1 = "c1: " + string(get("check1", "value")) + " ";
 366             c2 = "c2: " + string(get("check2", "value")) + " ";
 367             t1 = "t1: " + string(get("tabs", "value"));
 368             if(t1 == [])
 369                 t1 = "";
 370             end
 371             set("label", "string", r1+r2+c1+c2+t1);
 372         end
 373     endfunction
 374     f = createWindow();
 375     f.position = [200 200 240 460];
 376     f.figure_name = "";
 377
 378     fr1 = uicontrol("style", "frame", "position", [10 10 220 440], "border", createBorder("etched"));
 379     checkbox1 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 1", "position", [10 400 200 30], "tag", "check1");
 380     checkbox2 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 2", "position", [10 370 200 30], "tag", "check2");
 381     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "position", [10 330 200 30]);
 382     frame = uicontrol(fr1, "style", "frame", "position", [10 270 200 50]);
 383     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "position", [10 230 200 30], "callback", "onPush");
 384     radio1 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 1", "position", [10 190 200 30], "groupname", "radio", "tag", "radio1");
 385     radio2 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 2", "position", [10 160 200 30], "groupname", "radio", "tag", "radio2");
 386     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2|popupmenu3|popupmenu4", "position", [10 120 200 30]);
 387
 388     tab = uicontrol(fr1, "style", "tab", "position", [10 50 200 60], "tag", "tabs");
 389     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "backgroundcolor", [0 0 1]);
 390     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "backgroundcolor", [0 1 0]);
 391     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "backgroundcolor", [1 0 0]);
 392
 393     label = uicontrol(fr1, "style", "text", "string", "some text", "position", [10 10 200 30], "horizontalalignment", "center", "tag", "label");
 394 end
 395
 396 if demo == 12 then
 397     xdel(winsid());
 398     clear onPush;
 399     function onPush()
 400         r1 = "r1: " + string(get("radio1", "value")) + " ";
 401         r2 = "r2: " + string(get("radio2", "value")) + " ";
 402         c1 = "c1: " + string(get("check1", "value")) + " ";
 403         c2 = "c2: " + string(get("check2", "value")) + " ";
 404         t1 = "t1: " + string(get("tabs", "value"));
 405         if(t1 == [])
 406             t1 = "";
 407         end
 408         set("label", "string", r1+r2+c1+c2+t1);
 409     endfunction
 410     f = createWindow();
 411     f.position = [200 200 240 460];
 412     f.figure_name = "";
 413
 414     fr1 = uicontrol(f, "style", "frame", "units", "normalized", "position", [0.02 0.02 0.96 0.96], "border", createBorder("etched"));
 415
 416     checkbox1 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 1", "units", "normalized", "position", [0.02 0.9 0.96 0.09], "tag", "check1");
 417     checkbox2 = uicontrol(fr1, "style", "checkbox", "string", "Checkbox 2", "units", "normalized", "position", [0.02 0.8 0.96 0.09], "tag", "check2");
 418     editbox = uicontrol(fr1, "style", "edit", "string", "Edit", "units", "normalized", "position", [0.02 0.7 0.96 0.09]);
 419     button = uicontrol(fr1, "style", "pushbutton", "string", "Pushbutton", "units", "normalized", "position", [0.02 0.6 0.96 0.09], "callback", "onPush");
 420     radio1 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 1", "units", "normalized", "position", [0.02 0.5 0.96 0.09], "groupname", "radio", "tag", "radio1");
 421     radio2 = uicontrol(fr1, "style", "radiobutton", "string", "Radio 2", "units", "normalized", "position", [0.02 0.4 0.96 0.09], "groupname", "radio", "tag", "radio2");
 422     combo = uicontrol(fr1, "style", "popupmenu", "string", "popupmenu1|popupmenu2|popupmenu3|popupmenu4", "units", "normalized", "position", [0.02 0.3 0.96 0.09]);
 423
 424     tab = uicontrol(fr1, "style", "tab", "units", "normalized", "position", [0.02 0.1 0.96 0.195], "tag", "tabs");
 425     tab3 = uicontrol(tab, "style", "frame", "string", "Blue", "backgroundcolor", [0 0 1]);
 426     tab2 = uicontrol(tab, "style", "frame", "string", "Green", "backgroundcolor", [0 1 0]);
 427     tab1 = uicontrol(tab, "style", "frame", "string", "Red", "backgroundcolor", [1 0 0]);
 428
 429     label = uicontrol(fr1, "style", "text", "string", "some text", "units", "normalized", "position", [0.02 0.005 0.96 0.09], "horizontalalignment", "center", "tag", "label");
 430 end
 431
 432 //opticlim
 433 if demo == 13 then
 434     exec("SCI/contrib/sanofi-opticlim/loader.sce");
 435     OpticlimStart();
 436 end
 437