Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug224
1 puts "========================"
2 puts " OCC224 "
3 puts "========================"
4 puts ""
5 #################################################
6 ##puts "Checking of function V2DUNSETWIDTH  for shapes "
7 ##puts "(visual checking for this case is desirable)"
8 #################################################
9
10 v2dinit
11
12 psphere s_p 100 360
13 set mistake1 0
14 v2ddisplay s_p 0 0 0 1 1 1 1 0 0
15 v2dfit
16 v2dsetwidth s_p VERYTHICK
17 set Color_R 1
18 set Color_G 1
19 set Color_B 0
20
21 set color [QAAISGetPixelColor2d 393 210]
22 regexp {RED +: +([-0-9.+eE]+)} $color full rd
23 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
24 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
25
26 if { ${rd} != 1 || ${gr} != 1 || ${bl} != 0 } {
27     puts "Error : colors are not equal"
28     puts "Error : New widht was NOT assigned"
29 }
30
31 v2dunsetwidth s_p
32
33 set color [QAAISGetPixelColor2d 393 210]
34 regexp {RED +: +([-0-9.+eE]+)} $color full rd
35 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
36 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
37
38 if { ${rd} != 0 || ${gr} != 0 || ${bl} != 0 } {
39     puts "Error : colors are not equal"
40     puts "Error : Function V2DUNSETWIDTH for shapes does NOT WORK properly"
41 }
42
43 set only_screen2d 1
44