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 "$aLine"  100  $aLineY -400 000 255 255 0 0 000 0 20 1 Times-Roman
  set aLineId [expr $aLineId + 1]
}

puts "Number of labels: $aLineId"

vfit
vzfit
vzoom 20

vfps