Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug196
1
2 puts "========"
3 puts "OCC196"
4 puts "========"
5 puts ""
6 ################################################
7 ##puts "Rotation of text font number 23"
8 ##puts "(visual checking for this case is desirable)"
9 ################################################
10
11 v2dinit
12
13 set Scale 1
14 set Font_ind 23
15 set k -.2
16 set j 0 
17 repeat 10 {
18        set Position_X [expr $j*15]
19        set Position_Y [expr $j*-15]
20        set k [expr $k+.2]
21        set Angle $k
22        v2dtext Angle_[string range $k 0 2] $Position_X $Position_Y $Angle $Scale $Font_ind
23        puts "=======> Angle = [string range $k 0 4] Position_X= $Position_Y Position_Y= $Position_Y"
24        puts "   "
25        incr j
26 }
27
28 set color [QAAISGetPixelColor2d 336 347]
29 regexp {RED +: +([-0-9.+eE]+)} $color full rd
30 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
31 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
32
33 if { ${rd} != 1 || ${gr} != 1 || ${bl} != 1 } {
34     puts "Error : colors are not equal"
35     puts "Error : Rotation of text font number 23 was NOT MADE properly"
36 }
37
38 set only_screen2d 1