tests/bugs/vis/bug195

   1
   2 puts "========"
   3 puts "OCC195"
   4 puts "========"
   5 puts ""
   6 ######################################################
   7 ##puts "Scaling of text font number 23"
   8 ##puts "(visual checking for this case is desirable)"
   9 ######################################################
  10
  11 v2dinit
  12
  13 set Angle 0
  14 set Font_ind 23
  15 set k 0
  16 set i 0
  17 repeat 5 {
  18        set Position_X [expr $i*20]
  19        set Position_Y [expr $i*20]
  20        set k [expr $k+.5]
  21        set Scale $k
  22        v2dtext Scale_[string range $k 0 2] $Position_X $Position_Y $Angle $Scale $Font_ind
  23        puts "=======> Scale Factor = [string range $k 0 2] Position_X= $Position_Y Position_Y= $Position_Y"
  24        puts "   "
  25        incr i
  26 }
  27
  28 set color [QAAISGetPixelColor2d 190 105]
  29 regexp {RED +: +([-0-9.+eE]+)} $color full rd
  30 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
  31 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
  32
  33 if { ${rd} != 1 || ${gr} != 1 || ${bl} != 1 } {
  34     puts "Error : colors are not equal"
  35     puts "Error : Scaling of text font number 23 was NOT MADE properly"
  36 }
  37
  38 set only_screen2d 1