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 | |
11 | set r_check 1 |
12 | set g_check 0 |
13 | set b_check 0 |
14 | set x1 183 |
15 | set y1 190 |
dfa3d64f |
16 | set x2 292 |
17 | set y2 358 |
18 | set x3 26 |
19 | set y3 265 |
a2d5ab2e |
20 | |
21 | box b 10 10 10 |
22 | vinit |
23 | vdisplay b |
24 | vsetdispmode 1 |
dfa3d64f |
25 | vshowfaceboundary b 1 255 0 0 10 1 |
a2d5ab2e |
26 | vfit |
27 | |
dfa3d64f |
28 | set color1 [ QAGetPixelColor ${x1} ${y1} ] |
29 | regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 |
30 | regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 |
31 | regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 |
32 | set status1 0 |
33 | if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { |
34 | set status1 1 |
35 | } |
36 | |
37 | set color2 [ QAGetPixelColor ${x2} ${y2} ] |
38 | regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2 |
39 | regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2 |
40 | regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2 |
41 | set status2 0 |
42 | if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } { |
43 | set status2 1 |
44 | } |
45 | |
46 | set color3 [ QAGetPixelColor ${x3} ${y3} ] |
47 | regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3 |
48 | regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3 |
49 | regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3 |
50 | set status3 0 |
51 | if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } { |
52 | set status3 1 |
53 | } |
a2d5ab2e |
54 | |
dfa3d64f |
55 | if { $status1 != 0 && $status2 != 0 && $status3 != 0 } { |
a2d5ab2e |
56 | puts "Error : color are not equal" |
57 | puts "Error : Boundary of face is not changed" |
58 | } |
59 | |
82cbc512 |
60 | set only_screen 1 |