Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug112
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
11 set rd_ch 78039
12 set gr_ch 55294
13 set bl_ch 9411
14
15 restore [locate_data_file OCC20.brep] result
16 tclean result
17 vinit
18 vdisplay result
19 vfit
20 vsetdispmode result 1
21 QAUpdateLights
22
23 set color [QAGetPixelColor 140 115]
24 regexp {RED +: +([-0-9.+eE]+)} $color full rd
25 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
26 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
27
28 set rd_int [expr int($rd * 1.e+05)]
29 set gr_int [expr int($gr * 1.e+05)]
30 set bl_int [expr int($bl * 1.e+05)]
31
32 if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
33     puts "Error : colors are not equal"
34 }
35
36 set only_screen 1
37
38
39