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