Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug154_2
1 puts "========"
2 puts "OCC154"
3 puts "========"
4 puts ""
5 #####################################################
6 ##puts "Checking of function V2DERASE "
7 ##puts "(visual checking for this case is desirable)"
8 #####################################################
9
10 v2dinit
11
12 box b 1 1 1 
13 v2ddisplay b
14 box b1 10 10 10 1 1 1 
15 v2ddisplay b1
16 v2dfit
17
18 v2derase b1
19
20 set color [QAAISGetPixelColor2d 370 37]
21 regexp {RED +: +([-0-9.+eE]+)} $color full rd
22 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
23 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
24
25 if { ${rd} != 0 || ${gr} != 0 || ${bl} != 0 } {
26     puts "Error : colors are not equal"
27     puts "Object was not erased"
28 }
29
30 set only_screen2d 1
31