Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug155_2
1 puts "========"
2 puts "OCC155"
3 puts "OCC191"
4 puts "========"
5 puts ""
6 #####################################
7 ##puts "Creating of pCone 2D"
8 ##puts "(visual checking for this case is desirable)"
9 #####################################
10
11 v2dinit
12
13 pcone c_o 15 0 50 360
14 v2ddisplay c_o
15 v2dfit
16
17 set color [QAAISGetPixelColor2d 338 77]
18 regexp {RED +: +([-0-9.+eE]+)} $color full rd
19 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
20 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
21
22 if { ${rd} != 1 || ${gr} != 1 || ${bl} != 0 } {
23     puts "Error : colors are not equal"
24     puts "Error : pCone 2D was NOT LOADED properly into viewer"
25 }
26
27 set only_screen2d 1
28