Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug280_3
1 puts "========"
2 puts "OCC280"
3 puts "3. Fitall on perspective view does not fit all properly"
4 puts "========"
5
6 vinit
7 box b 100 900 300
8 vdisplay b
9 vsetdispmode b 1
10
11 OCC280 0 1
12
13 set rd_ch 78039
14 set gr_ch 55294
15 set bl_ch 9411
16
17 puts "Before View->FitAll()"
18 QAUpdateLights
19 set color0 [QAGetPixelColor 10 240]
20 regexp {RED +: +([-0-9.+eE]+)} $color0 full rd
21 regexp {GREEN +: +([-0-9.+eE]+)} $color0 full gr
22 regexp {BLUE +: +([-0-9.+eE]+)} $color0 full bl
23
24 if { ${rd} != 0 || ${gr} != 0 || ${bl} != 0 } {
25     puts "Error : colors are not equal"
26 }
27
28 vfit
29
30 puts "After View->FitAll()"
31 QAUpdateLights
32 set color1 [QAGetPixelColor 10 240]
33 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
34 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
35 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
36
37 set rd_int [expr int($rd1 * 1.e+05)]
38 set gr_int [expr int($gr1 * 1.e+05)]
39 set bl_int [expr int($bl1 * 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     puts "Error : Function vfit works wrongly"
44 }
45
46 set only_screen 1