a87752f3 |
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 |