0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[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 vtrihedron trihedr
8
9 set aFileHandle [open [locate_data_file screw.step] r]
10 set aText [read $aFileHandle]
11 close $aFileHandle
12
13 vpoint p0     0      0 -400
14 vpoint p1     0  10000 -400
15 vpoint p2  1000      0 -400
16 vfit
17
18 vdrawtext "$aText"  100  100 -400 000 255 255 0 0 000 1 50 1 Times-Roman
19
20 vfps