a87752f3 |
1 | puts "========" |
2 | puts "BUC60956" |
3 | puts "OCC112" |
4 | puts "========" |
5 | puts "" |
6 | ############################################################### |
7 | ## When restoring a TopoDS_Shape containing a valid Meshing (computed for display) the |
8 | ## meshing is computed again when displaying it. |
9 | ############################################################### |
10 | |
d27ea0ef |
11 | if { [array get env os_type] != "" } { |
12 | set os $env(os_type) |
13 | } |
14 | if { [string compare $os "windows"] == 0 } { |
15 | set rd_ch 77647 |
16 | set gr_ch 54901 |
17 | set bl_ch 9019 |
18 | } else { |
19 | set rd_ch 78039 |
20 | set gr_ch 55294 |
21 | set bl_ch 9411 |
22 | } |
a87752f3 |
23 | |
24 | restore [locate_data_file OCC20.brep] result |
25 | tclean result |
26 | vinit |
27 | vdisplay result |
28 | vfit |
29 | vsetdispmode result 1 |
30 | QAUpdateLights |
31 | |
32 | set color [QAGetPixelColor 140 115] |
33 | regexp {RED +: +([-0-9.+eE]+)} $color full rd |
34 | regexp {GREEN +: +([-0-9.+eE]+)} $color full gr |
35 | regexp {BLUE +: +([-0-9.+eE]+)} $color full bl |
36 | |
37 | set rd_int [expr int($rd * 1.e+05)] |
38 | set gr_int [expr int($gr * 1.e+05)] |
39 | set bl_int [expr int($bl * 1.e+05)] |
40 | |
41 | if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } { |
42 | puts "Error : colors are not equal" |
43 | } |
44 | |
45 | set only_screen 1 |
46 | |
47 | |
48 | |