tests/3rdparty/fonts/B1

   1 puts "============"
   2 puts "OCC24181 Render text as BRep"
   3 puts "============"
   4 puts ""
   5 pload MODELING
   6 pload VISUALIZATION
   7
   8 set THE_TEXT "The quick brown fox\njumps over the lazy dog!"
   9 set THE_FONT_NAME Times-Roman
  10 set THE_FONT_SIZES {12 18 24}
  11
  12 vsetdispmode 1
  13 vtop
  14
  15 set aLine 0
  16 set aLineId 0
  17 foreach aSize $THE_FONT_SIZES {
  18   set aText "\[$aSize\] $THE_TEXT"
  19
  20   vpoint aPnt_$aSize 0.0 $aLine 0.0
  21   vdrawtext "Line_$aLineId" $aText -pos 0.0 $aLine 0.0 -color 0.0 1.0 1.0 -halign left -valign top -angle 000 -zoom 1 -height $aSize -aspect bolditalic -font $THE_FONT_NAME
  22
  23   text2brep aBText_$aSize $aText -font $THE_FONT_NAME -height $aSize -aspect bolditalic -composite off -pos 0.0 $aLine 0.0 -valign topfirstline
  24   vdisplay  aBText_$aSize
  25   set aLine [expr $aLine - 4.0 * $aSize]
  26   set aLineId [expr $aLineId + 1]
  27 }
  28
  29 vfit