0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / 3rdparty / fonts / A3
1 puts "============"
2 puts "OCC23457 Text rendering performance"
3 puts "Test case performs rendering of single huge text label"
4 puts "============"
5 puts ""
6
7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
8
9 vtrihedron trihedr
10
11 set aFileHandle [open [locate_data_file screw.step] r]
12 set aText [read $aFileHandle]
13 close $aFileHandle
14
15 vpoint p0     0      0 -400
16 vpoint p1     0  10000 -400
17 vpoint p2  1000      0 -400
18 vfit
19
20 vdrawtext text "$aText"  -pos 100  100 -400 -color 0.0 1.0 1.0 -halign left -valign bottom -angle 000 -zoom 1 -height 50 -aspect regular -font SansFont
21
22 vfps