0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / 3rdparty / fonts / A4
1 puts "============"
2 puts "OCC23457 Text rendering performance"
3 puts "Test case performs rendering of big number of small text labels"
4 puts "============"
5 puts ""
6
7 vtrihedron trihedr
8
9 set aFileHandle [open [locate_data_file screw.step] r]
10 set aFileData   [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
17 set data [split $aFileData "\n"]
18 set aLineId 0
19 foreach 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
25 puts "Number of labels: $aLineId"
26
27 vfit
28 vzfit
29 vzoom 20
30
31 vfps