4e3aa6b7 |
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 | |
b514beda |
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 |