Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug194_2
1
2 puts "========"
3 puts "OCC194"
4 puts "(case 2)"
5 puts "========"
6 puts ""
7 ###############################################
8 ##puts "Creating of 2D Rectangular ROTATED Grid WITHOUT Lines"
9 ##puts "(visual checking for this case is desirable)"
10 ###############################################
11
12 v2dinit
13 v2dgrid Rect 500 500 200 200 45 Points
14
15 set rd_ch 70196
16 set gr_ch 70196
17 set bl_ch 70196
18
19 set color [QAAISGetPixelColor2d 20 21]
20 regexp {RED +: +([-0-9.+eE]+)} $color full rd
21 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
22 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
23
24 set rd_int [expr int($rd * 1.e+05)]
25 set gr_int [expr int($gr * 1.e+05)]
26 set bl_int [expr int($bl * 1.e+05)]
27
28 if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
29     puts "Error : colors are not equal"
30     puts "Error : 2D Rectangular ROTATED Grid WITHOUT Lines was NOT CREATED properly"
31 }
32
33 set only_screen2d 1