Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug225
1
2 puts "========================"
3 puts " OCC225 "
4 puts "========================"
5 puts ""
6 #################################################
7 ##puts "Checking of function V2DUNSETCOLOR for BOX "
8 ##puts "(visual checking for this case is desirable)"
9 #################################################
10
11 v2dinit
12
13 box b_b 10 15 20
14 v2ddisplay b_b 0 0 0 1 1 1 1 0 0
15 v2dfit
16 v2dsetcolor b_b BLUE3
17 wait 5
18 v2dunsetcolor b_b
19
20 set color [QAAISGetPixelColor2d 22 230]
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} != 1 || ${gr} != 1 || ${bl} != 0 } {
26     puts "Error : colors are not equal"
27     puts "Error : function V2DUNSETCOLOR for BOX 2D does NOT WORK properly"
28 }
29
30 set only_screen2d 1