[occt.git] / tests / 3rdparty / fonts / A4

puts "============"
puts "OCC23457 Text rendering performance"
puts "Test case performs rendering of big number of small text labels"
puts "============"
puts ""

vtrihedron trihedr

set aFileHandle [open [locate_data_file screw.step] r]
set aFileData   [read $aFileHandle]
close $aFileHandle

vpoint p0     0      0 -400
vpoint p1     0  10000 -400
vpoint p2  1000      0 -400

set data [split $aFileData "\n"]
set aLineId 0
foreach aLine $data {
  set aLineY  [expr $aLineId * 400]
  vdrawtext "Line_$aLineId" "$aLine" -noupdate -pos 100  $aLineY -400 -color 0.0 1.0 1.0 -halign left -valign bottom -angle 000 -zoom 0 -height 20 -aspect regular -font Times-Roman
  set aLineId [expr $aLineId + 1]
}

puts "Number of labels: $aLineId"

vfit
vzfit
vzoom 20

vfps
Commit	Line	Data
a174a3c5	1	puts "============"
	2	puts "OCC23457 Text rendering performance"
	3	puts "Test case performs rendering of big number of small text labels"
	4	puts "============"
	5	puts ""
	6
	7	vtrihedron trihedr
	8
ac29d56a	9	set aFileHandle [open [locate_data_file screw.step] r]
a174a3c5	10	set aFileData [read $aFileHandle]
	11	close $aFileHandle
	12
	13	vpoint p0 0 0 -400
	14	vpoint p1 0 10000 -400
	15	vpoint p2 1000 0 -400
	16
	17	set data [split $aFileData "\n"]
	18	set aLineId 0
	19	foreach aLine $data {
	20	set aLineY [expr $aLineId * 400]
29e2c6d2	21	vdrawtext "Line_$aLineId" "$aLine" -noupdate -pos 100 $aLineY -400 -color 0.0 1.0 1.0 -halign left -valign bottom -angle 000 -zoom 0 -height 20 -aspect regular -font Times-Roman
a174a3c5	22	set aLineId [expr $aLineId + 1]
	23	}
	24
	25	puts "Number of labels: $aLineId"
	26
	27	vfit
	28	vzfit
	29	vzoom 20
	30
	31	vfps