1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-10 12:25:50 +03:00
occt/tests/bugs/vis/bug195
apn f1aa2b6272 Adding new testing cases for chl grid
Adding procedures checkcolor and checkpoint.
Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d
Allow using command QAAISGetPixelColor2d on WNT
Rename test case tests/bugs/vis/bug19619 to pro19619
Added test cases to modalg and moddata
2012-12-14 16:56:11 +04:00

39 lines
872 B
Plaintext
Executable File

puts "========"
puts "OCC195"
puts "========"
puts ""
######################################################
##puts "Scaling of text font number 23"
##puts "(visual checking for this case is desirable)"
######################################################
v2dinit
set Angle 0
set Font_ind 23
set k 0
set i 0
repeat 5 {
set Position_X [expr $i*20]
set Position_Y [expr $i*20]
set k [expr $k+.5]
set Scale $k
v2dtext Scale_[string range $k 0 2] $Position_X $Position_Y $Angle $Scale $Font_ind
puts "=======> Scale Factor = [string range $k 0 2] Position_X= $Position_Y Position_Y= $Position_Y"
puts " "
incr i
}
set x_coord 190
set y_coord 105
set color2d 1
checkcolor $x_coord $y_coord 1 1 1
if { $stat != 1 } {
puts "Error : Scaling of text font number 23 was NOT MADE properly"
}
set only_screen2d 1