1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - Scilab Enterprises - Bruno JOFRET
5 // This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- TEST WITH GRAPHIC -->
10 c_map = graycolormap(512);
11 xset("colormap", c_map);
12 out = xget("colormap");
13 assert_checkequal(out, c_map);
15 xset("mark size", 456);
16 out = xget("mark size");
17 assert_checkequal(out, 456);
21 assert_checkequal(out, [4 5]);
24 assert_checkequal(out, [6 1]);
27 assert_checkequal(out, [8 2]);
29 xset("line style", 8);
30 out = xget("line style");
31 assert_checkequal(out, 8);
33 out = xget("font size");
34 assert_checkequal(out, 2);
35 xset("font size", 42);
36 out = xget("font size");
37 assert_checkequal(out, 42);
40 assert_checkequal(out, "");
43 assert_checkequal(out, "%s.%s");
45 out = xget("auto clear");
46 assert_checkequal(out, "off");
47 xset("auto clear", "on")
48 out = xget("auto clear");
49 assert_checkequal(out, "on");
52 assert_checkequal(out, 8);
55 assert_checkequal(out, 2);
57 out = xget("hidden3d");
58 assert_checkequal(out, 4);
60 out = xget("hidden3d");
61 assert_checkequal(out, 21);
65 assert_checkequal(out, f.figure_id);
67 assert_checkequal(out, f.figure_id);
69 out = xget("thickness");
70 assert_checkequal(out, 1);
72 out = xget("thickness");
73 assert_checkequal(out, 5);
76 assert_checkequal(out, f.figure_size);
78 assert_checkequal(out, f.figure_size);
81 assert_checkequal(out, f.position([1, 2]));
83 out = xget("viewport");
84 assert_checkequal(out, f.viewport);
86 out = xget("background");
87 assert_checkequal(out, -2);
88 // color foreground pattern
90 assert_checkequal(out, -1);
91 out = xget("foreground");
92 assert_checkequal(out, -1);
93 out = xget("pattern");
94 assert_checkequal(out, -1);
96 out = xget("lastpattern");
97 assert_checkequal(out, 512);
99 out = xget("line mode");
100 assert_checkequal(out, 1);
102 out = xget("pixmap");
103 assert_checkequal(out, 0);
106 assert_checkequal(out, 514);
108 out = xget("wresize");
109 assert_checkequal(out, 1);
111 out = xget("clipgrf");
112 assert_checkequal(out, 0);
114 out = xget("clipoff");
115 assert_checkequal(out, 1);
116 // clipping => clip_box + clip_state
117 xset("clipping", 1,2,3,4);
118 out = xget("clipping");
119 assert_checkequal(out, [1,2,3,4]);
122 xset("wdim",1000,500)
123 assert_checkequal(xget("wdim"), [1000,500]);
124 xset("wdim",[1000,500]) // 500 is ignored here
126 assert_checkequal(wdim(1), 1000);
127 ierr = execstr("xset(""colormap"");","errcatch");
128 assert_checkequal(ierr, 999);
129 ierr = execstr("xset(""mark size"");","errcatch");
130 assert_checkequal(ierr, 999);
131 ierr = execstr("xset(""mark"");","errcatch");
132 assert_checkequal(ierr, 999);
133 ierr = execstr("xset(""font size"");","errcatch");
134 assert_checkequal(ierr, 999);
135 ierr = execstr("xset(""line style"");","errcatch");
136 assert_checkequal(ierr, 999);
137 ierr = execstr("xset(""font size"");","errcatch");
138 assert_checkequal(ierr, 999);
139 ierr = execstr("xset(""fpf"");","errcatch");
140 assert_checkequal(ierr, 999);
141 ierr = execstr("xset(""auto clear"");","errcatch");
142 assert_checkequal(ierr, 999);
143 ierr = execstr("xset(""dashes"");","errcatch");
144 assert_checkequal(ierr, 999);
145 ierr = execstr("xset(""hidden3d"");","errcatch");
146 assert_checkequal(ierr, 999);
147 ierr = execstr("xset(""figure"");","errcatch");
148 assert_checkequal(ierr, 999);
149 ierr = execstr("xset(""window"");","errcatch");
150 assert_checkequal(ierr, 999);
151 ierr = execstr("xset(""thickness"");","errcatch");
152 assert_checkequal(ierr, 999);
153 ierr = execstr("xset(""wdim"");","errcatch");
154 assert_checkequal(ierr, 999);
155 ierr = execstr("xset(""wpdim"");","errcatch");
156 assert_checkequal(ierr, 999);
157 ierr = execstr("xset(""wpos"");","errcatch");
158 assert_checkequal(ierr, 999);
159 ierr = execstr("xset(""viewport"");","errcatch");
160 assert_checkequal(ierr, 999);
161 ierr = execstr("xset(""background"");","errcatch");
162 assert_checkequal(ierr, 999);
163 ierr = execstr("xset(""color"");","errcatch");
164 assert_checkequal(ierr, 999);
165 ierr = execstr("xset(""foreground"");","errcatch");
166 assert_checkequal(ierr, 999);
167 ierr = execstr("xset(""pattern"");","errcatch");
168 assert_checkequal(ierr, 999);
169 ierr = execstr("xset(""line mode"");","errcatch");
170 assert_checkequal(ierr, 999);
171 ierr = execstr("xset(""pixmap"");","errcatch");
172 assert_checkequal(ierr, 999);
173 ierr = execstr("xset(""wresize"");","errcatch");
174 assert_checkequal(ierr, 999);
175 ierr = execstr("xset(""default"", ""test"");","errcatch");
176 assert_checkequal(ierr, 999);