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