tests/3rdparty/fonts/A3

   1 puts "============"
   2 puts "OCC23457 Text rendering performance"
   3 puts "Test case performs rendering of single huge text label"
   4 puts "============"
   5 puts ""
   6
   7 vtrihedron trihedr
   8
   9 set aFileHandle [open "$::env(CASROOT)/data/step/screw.step" r]
  10 set aText [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 vfit
  17
  18 vdrawtext "$aText"  100  100 -400 000 255 255 0 0 000 1 50 1 Times-Roman
  19
  20 vfps