mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-10 11:34:06 +03:00
29e2c6d247
AIS_TextLabel - new public class to display simple text labels (based on MyTextClass private class from Draw Harness). ViewerTest::Display() - add more reliable replacement for VDisplayAISObject() with no viewer update flag. vdrawtext command redesign: - Use new AIS_TextLabel class instead of private MyTextClass. - Take object name and allow to clear labels from the Viewer. - Use parameter name + parameter value syntax instead of strict list of mandatory arguments. - Use [0; 1] range for colors and accept names. - Drop redundant argument "isMultiByte". - Support argument -noupdate to skip Viewer update. Update test cases to new syntax of vdrawtext.
32 lines
763 B
Plaintext
32 lines
763 B
Plaintext
puts "============"
|
|
puts "OCC23457 Text rendering performance"
|
|
puts "Test case performs rendering of big number of small text labels"
|
|
puts "============"
|
|
puts ""
|
|
|
|
vtrihedron trihedr
|
|
|
|
set aFileHandle [open [locate_data_file screw.step] r]
|
|
set aFileData [read $aFileHandle]
|
|
close $aFileHandle
|
|
|
|
vpoint p0 0 0 -400
|
|
vpoint p1 0 10000 -400
|
|
vpoint p2 1000 0 -400
|
|
|
|
set data [split $aFileData "\n"]
|
|
set aLineId 0
|
|
foreach aLine $data {
|
|
set aLineY [expr $aLineId * 400]
|
|
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
|
|
set aLineId [expr $aLineId + 1]
|
|
}
|
|
|
|
puts "Number of labels: $aLineId"
|
|
|
|
vfit
|
|
vzfit
|
|
vzoom 20
|
|
|
|
vfps
|