Scicos macros & tests: fix default_color
[scilab.git] / scilab / modules / scicos / tests / unit_tests / color.tst
1 //  Scicos
2 //
3 //  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
4 //
5 // This program is free software; you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation; either version 2 of the License, or
8 // (at your option) any later version.
9 //
10 // This program is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with this program; if not, write to the Free Software
17 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 //
19 // See the file ../license.txt
20 //
21 // <-- TEST WITH GRAPHICS -->
22
23 loadXcosLibs();
24
25 xsetech([0 0 1 1], [0 0 1 1]);
26 orig = [0 0];
27 sz = [1 1];
28
29 a = gca();
30 thick = a.thickness;
31 a.thickness = 2;
32 xrect(orig(1)+sz(1)/10, orig(2)+(1-1/10)*sz(2), sz(1)*8/10, sz(2)*8/10);
33 xx = [orig(1)+sz(1)/5, orig(1)+sz(1)/5; orig(1)+(1-1/5)*sz(1), orig(1)+sz(1)/5];
34 yy = [orig(2)+sz(2)/5, orig(2)+sz(2)/5; orig(2)+sz(2)/5, orig(2)+(1-1/5)*sz(2)];
35 xarrows(xx, yy);
36 t = (0:0.3:2*%pi)';
37 xx = orig(1)+(1/5+3*t/(10*%pi))*sz(1);
38 yy = orig(2)+(1/4.3+(sin(t)+1)*3/10)*sz(2);
39 xpoly(xx, yy, "lines");
40 a.thickness = thick;
41
42
43 orig = [0.5 0.5];
44
45 f = gcf();
46 wd = f.axes_size .* [1.016,1.12];
47 a.thickness = 2;
48 p = wd(2)/wd(1);
49 p = 1;
50 rx = sz(1)*p/2;
51 ry = sz(2)/2;
52 xarcs([orig(1)+0.05*sz(1); orig(2)+0.95*sz(2); 0.9*sz(1)*p; 0.9*sz(2); 0; 360*64], default_color(-1));
53 a.thickness = 1;
54 xx = [orig(1)+rx orig(1)+rx; orig(1)+rx orig(1)+rx+0.6*rx*cos(%pi/6)];
55 yy = [orig(2)+ry orig(2)+ry; orig(2)+1.8*ry orig(2)+ry+0.6*ry*sin(%pi/6)];
56 xsegs(xx, yy, 10);
57 a.thickness = thick;