0022785: Draw Harness - add possibility to remove a text drawn by the command vdrawtext
[occt.git] / tests / 3rdparty / fonts / A3
CommitLineData
a174a3c5 1puts "============"
2puts "OCC23457 Text rendering performance"
3puts "Test case performs rendering of single huge text label"
4puts "============"
5puts ""
6
7vtrihedron trihedr
8
ac29d56a 9set aFileHandle [open [locate_data_file screw.step] r]
a174a3c5 10set aText [read $aFileHandle]
11close $aFileHandle
12
13vpoint p0 0 0 -400
14vpoint p1 0 10000 -400
15vpoint p2 1000 0 -400
16vfit
17
29e2c6d2 18vdrawtext 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 Times-Roman
a174a3c5 19
20vfps