0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[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 vfont add [locate_data_file DejaVuSans.ttf] SansFont
8
9 vtrihedron trihedr
10
11 set aFileHandle [open [locate_data_file screw.step] r]
12 set aFileData   [read $aFileHandle]
13 close $aFileHandle
14
15 vpoint p0     0      0 -400
16 vpoint p1     0  10000 -400
17 vpoint p2  1000      0 -400
18
19 set data [split $aFileData "\n"]
20 set aLineId 0
21 foreach aLine $data {
22   set aLineY  [expr $aLineId * 400]
23   vdrawtext "Line_$aLineId" "$aLine" -noupdate -pos 100  $aLineY -400 -color CYAN -halign left -valign bottom -angle 000 -zoom 0 -height 20 -aspect regular -font SansFont
24   set aLineId [expr $aLineId + 1]
25 }
26
27 puts "Number of labels: $aLineId"
28
29 vfit
30 vzfit
31 vzoom 20
32
33 vfps
34
35 vglinfo
36 checkview -screenshot -3d -path ${imagedir}/${test_image}.png