1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
// Copyright (C) 2010 - DIGITEO - Allan CORNET
//
// This file is released under the 3-clause BSD license. See COPYING-BSD.
function demo_tclsci_color()
tkpath = SCI + "/modules/tclsci/demos/tk/";
lines(0);
RGB = [];
RGB1 = [0 0 0];
TCL_SetVar("rgb",tkpath+"rgb.txt");
TCL_EvalFile(tkpath+"tcolor")
while %t //wait for toplevel to disapear
if or(RGB<>RGB1) then disp(RGB);RGB1=RGB;end
TCL_EvalStr("set h [winfo exists .foo]");
if TCL_GetVar("h")=="0" then break,end
sleep(1);
end
TCL_UnsetVar("label1");
TCL_UnsetVar("label2");
TCL_UnsetVar("label3");
TCL_UnsetVar("red");
TCL_UnsetVar("green");
TCL_UnsetVar("blue");
TCL_UnsetVar("colorSpace");
TCL_UnsetVar("color");
TCL_UnsetVar("updating");
TCL_UnsetVar("autoUpdate");
TCL_UnsetVar("name");
endfunction
demo_tclsci_color();
clear demo_tclsci_color;
|
