Helptools: fix scatter3_9 image
[scilab.git] / scilab / modules / scicos / macros / scicos_scicos / 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
22 xsetech([0 0 1 1],[0 0 1 1])
23 orig=[0 0]
24 sz=[1 1]
25
26 thick=xget('thickness');xset('thickness',2);
27 xrect(orig(1)+sz(1)/10,orig(2)+(1-1/10)*sz(2),sz(1)*8/10,sz(2)*8/10);
28 xx=[orig(1)+sz(1)/5,orig(1)+sz(1)/5;
29 orig(1)+(1-1/5)*sz(1),orig(1)+sz(1)/5];
30 yy=[orig(2)+sz(2)/5,orig(2)+sz(2)/5;
31 orig(2)+sz(2)/5,orig(2)+(1-1/5)*sz(2)];
32 xarrows(xx,yy);
33 t=(0:0.3:2*%pi)'
34 xx=orig(1)+(1/5+3*t/(10*%pi))*sz(1);
35 yy=orig(2)+(1/4.3+(sin(t)+1)*3/10)*sz(2);
36 xpoly(xx,yy,'lines');
37 xset('thickness',thick)
38
39
40
41 orig=[0.5 0.5]
42
43
44
45 wd=xget('wdim').*[1.016,1.12];
46 thick=xget('thickness');xset('thickness',2);
47 p=wd(2)/wd(1);p=1;
48 rx=sz(1)*p/2;ry=sz(2)/2;
49 xarcs([orig(1)+0.05*sz(1);
50 orig(2)+0.95*sz(2);
51    0.9*sz(1)*p;
52    0.9*sz(2);
53    0;
54    360*64],default_color(-1));
55 xset('thickness',1);
56 xx=[orig(1)+rx    orig(1)+rx;
57     orig(1)+rx    orig(1)+rx+0.6*rx*cos(%pi/6)];
58 yy=[orig(2)+ry    orig(2)+ry ;
59   orig(2)+1.8*ry  orig(2)+ry+0.6*ry*sin(%pi/6)];
60 xsegs(xx,yy,10);
61 xset('thickness',thick);