Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug198_2
1 puts "========"
2 puts "OCC198"
3 puts "========"
4 puts ""
5 #######################################################
6 ##puts "Choosing of the font index color for font number 23"
7 #######################################################
8
9 v2dinit
10
11 v2dsetbgcolor BLUE3
12 set Angle 0
13 set Font_ind 23
14 set Scale 1
15 set k -1
16 set j 0 
17 repeat 5 {
18     set i 0
19     repeat 4 {
20         set Position_X [expr $i*50]
21         set Position_Y [expr $j*20]
22         set k [expr $k+1]
23         if [catch {v2dsettextcolor $a $k} ] {
24              set mistake 1
25         }
26         incr i
27     }
28     incr j
29 }
30
31 if {$mistake == 0} {
32     puts "Faulty : Changing of text index color was NOT MADE properly"
33 } else {
34     puts "Changing of text index  color was made properly"
35 }
36
37 set only_screen2d 1
38
39