a87752f3 |
1 | puts "========" |
2 | puts "OCC185" |
3 | puts "========" |
4 | |
5 | pload XDE |
6 | |
7 | igesbrep [locate_data_file OCC185.igs] a * |
8 | |
9 | tpcompound result |
10 | tclean result |
11 | |
12 | vinit |
13 | vdisplay result |
14 | vfit |
15 | |
16 | set rd_ch 78039 |
17 | set gr_ch 55294 |
18 | set bl_ch 9411 |
19 | |
20 | vsetdispmode result 1 |
21 | QAUpdateLights |
22 | set color [QAGetPixelColor 235 214] |
23 | regexp {RED +: +([-0-9.+eE]+)} $color full rd |
24 | regexp {GREEN +: +([-0-9.+eE]+)} $color full gr |
25 | regexp {BLUE +: +([-0-9.+eE]+)} $color full bl |
26 | |
27 | set rd_int [expr int($rd * 1.e+05)] |
28 | set gr_int [expr int($gr * 1.e+05)] |
29 | set bl_int [expr int($bl * 1.e+05)] |
30 | |
31 | if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } { |
32 | puts "Error : colors are not equal" |
33 | puts "Error : Shading is OFF, but should be ON" |
34 | } |
35 | |
36 | vsetdispmode result 0 |
37 | |
38 | QAUpdateLights |
39 | set color0 [QAGetPixelColor 235 214] |
40 | regexp {RED +: +([-0-9.+eE]+)} $color0 full rd0 |
41 | regexp {GREEN +: +([-0-9.+eE]+)} $color0 full gr0 |
42 | regexp {BLUE +: +([-0-9.+eE]+)} $color0 full bl0 |
43 | |
44 | if { ${rd0} != 0 || ${gr0} != 1 || ${bl0} != 0 } { |
45 | puts "Error : colors are not equal" |
46 | puts "Error : Shading is ON, but should be OFF" |
47 | } |
48 | |
49 | set only_screen 1 |