| 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 "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 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 |