0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / 3rdparty / fonts / A4
CommitLineData
a174a3c5 1puts "============"
2puts "OCC23457 Text rendering performance"
3puts "Test case performs rendering of big number of small text labels"
4puts "============"
5puts ""
6
7vtrihedron trihedr
8
ac29d56a 9set aFileHandle [open [locate_data_file screw.step] r]
a174a3c5 10set aFileData [read $aFileHandle]
11close $aFileHandle
12
13vpoint p0 0 0 -400
14vpoint p1 0 10000 -400
15vpoint p2 1000 0 -400
16
17set data [split $aFileData "\n"]
18set aLineId 0
19foreach aLine $data {
20 set aLineY [expr $aLineId * 400]
21 vdrawtext "$aLine" 100 $aLineY -400 000 255 255 0 0 000 0 20 1 Times-Roman
22 set aLineId [expr $aLineId + 1]
23}
24
25puts "Number of labels: $aLineId"
26
27vfit
28vzfit
29vzoom 20
30
31vfps