2 puts "OCC24181 Render text as BRep"
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}
16 foreach aSize $THE_FONT_SIZES {
17 set aText "\[$aSize\] $THE_TEXT"
19 vpoint aPnt_$aSize 0.0 $aLine 0.0
20 vdrawtext $aText 0.0 $aLine 0.0 000 255 255 0 2 000 1 $aSize 4 $THE_FONT_NAME
22 text2brep aBText_$aSize $aText $THE_FONT_NAME $aSize bolditalic composite=0
23 ttranslate aBText_$aSize 0.0 $aLine 0.0
24 vdisplay aBText_$aSize
25 set aLine [expr $aLine - 4.0 * $aSize]