Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug154_1
1 puts "========"
2 puts "OCC154"
3 puts "========"
4 puts ""
5 ##############################################################
6 ##puts "Checking of functions V2DERASEALL and V2DDISPLAYALL "
7 ##puts "(visual checking for this case is desirable)"
8 ##############################################################
9 v2dinit
10
11 box b 1 1 1 
12 box b1 10 10 10 1 1 1 
13 v2ddisplay b
14 v2ddisplay b1
15 v2dfit
16
17 v2deraseall
18
19 set color1 [QAAISGetPixelColor2d 370 37]
20 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
21 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
22 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
23
24 if { ${rd1} != 0 || ${gr1} != 0 || ${bl1} != 0 } {
25     puts "Error : colors are not equal"
26     puts "Error : Object was not erased"
27 }
28
29 v2ddisplayall
30
31 set color2 [QAAISGetPixelColor2d 370 37]
32 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
33 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
34 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
35
36 if { ${rd2} != 1 || ${gr2} != 1 || ${bl1} != 0 } {
37     puts "Error : colors are not equal"
38     puts "Error : Object was not displayed"
39 }
40
41 set only_screen2d 1