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