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