319e4241 |
1 | puts "============" |
2 | puts "CR23410" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # QA comamnds don't work properly in new testing system |
7 | ####################################################################### |
8 | pload QAcommands |
9 | |
f1aa2b62 |
10 | set x_coord 128 |
11 | set y_coord 235 |
12 | |
319e4241 |
13 | box result 100 100 100 |
14 | vdisplay result |
15 | vsetdispmode 1 |
16 | vfit |
17 | vsetcolor result GREEN |
f1aa2b62 |
18 | |
44c7c33e |
19 | checkcolor $x_coord $y_coord 0.00 0.83 0.00 |
f1aa2b62 |
20 | |
319e4241 |
21 | set 3dviewer 1 |
22 | |
23 | |
24 | |
25 | |
26 | |
f1aa2b62 |
27 | |