a2d5ab2e |
1 | puts "============" |
2 | puts "CR23407" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Draw face outlines for XDE objects |
7 | ####################################################################### |
a2d5ab2e |
8 | |
a2d5ab2e |
9 | box b 10 10 10 |
10 | vinit |
11 | vdisplay b |
12 | vsetdispmode 1 |
dfa3d64f |
13 | vshowfaceboundary b 1 255 0 0 10 1 |
a2d5ab2e |
14 | vfit |
15 | |
f1aa2b62 |
16 | set x_coord 183 |
17 | set y_coord 190 |
18 | |
19 | checkcolor $x_coord $y_coord 1 0 0 |
dfa3d64f |
20 | |
f1aa2b62 |
21 | if { $stat != 1 } { |
22 | puts "Error : Boundary of face is not changed" |
dfa3d64f |
23 | } |
24 | |
f1aa2b62 |
25 | set x_coord 292 |
26 | set y_coord 358 |
27 | |
28 | checkcolor $x_coord $y_coord 1 0 0 |
29 | |
30 | if { $stat != 1 } { |
31 | puts "Error : Boundary of face is not changed" |
dfa3d64f |
32 | } |
a2d5ab2e |
33 | |
f1aa2b62 |
34 | set x_coord 26 |
35 | set y_coord 265 |
36 | |
37 | checkcolor $x_coord $y_coord 1 0 0 |
38 | |
39 | if { $stat != 1 } { |
a2d5ab2e |
40 | puts "Error : Boundary of face is not changed" |
41 | } |
42 | |
82cbc512 |
43 | set only_screen 1 |