0024387: Tests - use system-independent fonts in test cases
[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
6fb1a930 7vfont add [locate_data_file DejaVuSans.ttf] SansFont
8
a174a3c5 9vtrihedron trihedr
10
ac29d56a 11set aFileHandle [open [locate_data_file screw.step] r]
a174a3c5 12set aFileData [read $aFileHandle]
13close $aFileHandle
14
15vpoint p0 0 0 -400
16vpoint p1 0 10000 -400
17vpoint p2 1000 0 -400
18
19set data [split $aFileData "\n"]
20set aLineId 0
21foreach aLine $data {
22 set aLineY [expr $aLineId * 400]
6fb1a930 23 vdrawtext "Line_$aLineId" "$aLine" -noupdate -pos 100 $aLineY -400 -color 0.0 1.0 1.0 -halign left -valign bottom -angle 000 -zoom 0 -height 20 -aspect regular -font SansFont
a174a3c5 24 set aLineId [expr $aLineId + 1]
25}
26
27puts "Number of labels: $aLineId"
28
29vfit
30vzfit
31vzoom 20
32
33vfps