6 ######################################################
7 ##puts "Scaling of text font number 23"
8 ##puts "(visual checking for this case is desirable)"
9 ######################################################
18 set Position_X [expr $i*20]
19 set Position_Y [expr $i*20]
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"
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
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"