tests/3rdparty/fonts/A4

   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
   9 set aFileHandle [open [locate_data_file screw.step] r]
  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]
  21   vdrawtext "$aLine"  100  $aLineY -400 000 255 255 0 0 000 0 20 1 Times-Roman
  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