0023510: Integration of test grid "vis" into the new testing system
[occt.git] / tests / bugs / vis / bug198_1
CommitLineData
a87752f3 1puts "========"
2puts "OCC198"
3puts "========"
4puts ""
5#######################################################
6##puts "Changing of index of text fonts"
7#######################################################
8
9v2dinit
10
11set mistake 0
12set Angle 0
13set Scale 1
14set k -1
15set j 0
16repeat 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
30if {$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
36set only_screen2d 1