Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug194_1
1
2 puts "========"
3 puts "OCC194"
4 puts "(case 1)"
5 puts "========"
6 puts ""
7 ###############################################
8 ##puts "Creating of 2D Rectangular ROTATED Grid WITH Lines"
9 ##puts "(visual checking for this case is desirable)"
10 ###############################################
11
12 v2dinit
13 v2dgrid Rect 500 500 200 200 45 Lines
14
15 set rd_ch 49803
16 set gr_ch 49803
17 set bl_ch 49803
18
19 set color [QAAISGetPixelColor2d 25 361]
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 WITH Lines was NOT CREATED properly"
31 }
32
33 set only_screen2d 1