0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / 3rdparty / fonts / B1
1 puts "TODO ?OCC12345 Debian60-64: \\*\\* Exception \\*\\*.*"
2 puts "TODO ?OCC12345 Debian60-64: An exception was caught"
3 puts "TODO ?OCC12345 Debian60-64: TEST INCOMPLETE"
4
5 puts "============"
6 puts "OCC24181 Render text as BRep"
7 puts "============"
8 puts ""
9 pload MODELING
10 pload VISUALIZATION
11
12 set THE_TEXT "The quick brown fox\njumps over the lazy dog!"
13 set THE_FONT_NAME Times-Roman
14 set THE_FONT_SIZES {12 18 24}
15
16 vsetdispmode 1
17 vtop
18
19 set aLine 0
20 foreach aSize $THE_FONT_SIZES {
21   set aText "\[$aSize\] $THE_TEXT"
22
23   vpoint aPnt_$aSize 0.0 $aLine 0.0
24   vdrawtext $aText 0.0 $aLine 0.0 000 255 255 0 2 000 1 $aSize 4 $THE_FONT_NAME
25
26   text2brep aBText_$aSize $aText $THE_FONT_NAME $aSize bolditalic composite=0
27   ttranslate aBText_$aSize 0.0 $aLine 0.0
28   vdisplay  aBText_$aSize
29   set aLine [expr $aLine - 4.0 * $aSize]
30 }
31
32 vfit