Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug397
1 puts "========================"
2 puts " OCC397 "
3 puts "========================"
4
5 pload QAcommands
6
7 set rd_ch 50588
8 set gr_ch 34901
9 set bl_ch 5098
10
11 restore [locate_data_file OCC397.brep] a 
12 puts [checkshape a]
13
14 tclean a
15 explode a f
16 renamevar a_55 result
17
18 vinit
19 vdisplay result
20 vfit
21 vsetdispmode result 1
22
23 set color [QAGetPixelColor 235 180]
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     puts "Error : Shading is missing in 3D Viewer"
35 }
36
37 QASelect 220 170
38 QASelect 220 170
39
40 set square 92.9029
41 set only_screen 1
42
43