Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug225
CommitLineData
a87752f3 1
2puts "========================"
3puts " OCC225 "
4puts "========================"
5puts ""
6#################################################
7##puts "Checking of function V2DUNSETCOLOR for BOX "
8##puts "(visual checking for this case is desirable)"
9#################################################
10
11v2dinit
12
13box b_b 10 15 20
14v2ddisplay b_b 0 0 0 1 1 1 1 0 0
15v2dfit
16v2dsetcolor b_b BLUE3
17wait 5
18v2dunsetcolor b_b
19
20set color [QAAISGetPixelColor2d 22 230]
21regexp {RED +: +([-0-9.+eE]+)} $color full rd
22regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
23regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
24
25if { ${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
30set only_screen2d 1