0023922: Systematic review of TODO tests
[occt.git] / tests / 3rdparty / fonts / B1
CommitLineData
b514beda 1puts "============"
2puts "OCC24181 Render text as BRep"
3puts "============"
4puts ""
5pload MODELING
6pload VISUALIZATION
7
8set THE_TEXT "The quick brown fox\njumps over the lazy dog!"
9set THE_FONT_NAME Times-Roman
10set THE_FONT_SIZES {12 18 24}
11
12vsetdispmode 1
13vtop
14
15set aLine 0
16foreach 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=0
23 ttranslate aBText_$aSize 0.0 $aLine 0.0
24 vdisplay aBText_$aSize
25 set aLine [expr $aLine - 4.0 * $aSize]
26}
27
28vfit