0a768f56 |
1 | puts "============" |
2 | puts "OCC23709" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################################ |
6 | # Redesign of hlrtest command |
7 | ############################################################################ |
8 | |
9 | pcone a 5 0 10 |
10 | box b 15 0 0 10 10 10 |
11 | vinit |
12 | vdisplay a |
13 | vdisplay b |
14 | vrotate 35 0 0 |
15 | vfit |
16 | vhlr on |
17 | vhlrtype polyalgo b |
18 | |
19 | set x_coord 290 |
20 | set y_coord 170 |
21 | checkcolor $x_coord $y_coord 1 1 0 |
22 | |
23 | set x_coord 86 |
24 | set y_coord 221 |
25 | checkcolor $x_coord $y_coord 0 0 0 |
26 | |
27 | set only_screen 1 |