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