0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / 3rdparty / fonts / B2
1 puts "============"
2 puts "OCC24181 Render text as BRep (composite curve)"
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 foreach aSize $THE_FONT_SIZES {
17   set aText "\[$aSize\] $THE_TEXT"
18
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
21
22   text2brep aBText_$aSize $aText $THE_FONT_NAME $aSize bolditalic composite=1
23   ttranslate aBText_$aSize 0.0 $aLine 0.0
24   vdisplay  aBText_$aSize
25   set aLine [expr $aLine - 4.0 * $aSize]
26 }
27
28 vfit