mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
1beb58d745
Added classes AIS_Animation, AIS_AnimationCamera, AIS_AnimationObjectLocatio. Draw Harness command vanimation has been modified to manage animation timeline. Command vfit has been extended with option -noupdate. Formatting of vviewparams command output has been improved. Functionality of commands vlocreset, vlocmove, vloctranslate, vlocrotate, vlocmirror, vlocscale has been merged into vlocation/vsetlocation. vlocation now can print the current local transformation of the object. v3d/ivtk test group does not call vfit anymore. Fixed misprint in test cases bugs/vis/bug24623_3 and bug25532.
56 lines
1.5 KiB
Plaintext
56 lines
1.5 KiB
Plaintext
puts "============"
|
|
puts "OCC25532"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Visualization - fix cross-references between AIS_ConnectedInteractive
|
|
# and connected presentation
|
|
#######################################################################
|
|
|
|
pload MODELING VISUALIZATION
|
|
psphere s 0.5
|
|
tclean s
|
|
incmesh s 0.001
|
|
trinfo s
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vcaps -vbo 0
|
|
vsetdispmode 1
|
|
vdefaults absDefl=1.0
|
|
vselprops -autoactivate 0
|
|
set aMemInit [meminfo h]
|
|
|
|
set aNb 1000
|
|
|
|
# display as copies
|
|
eval compound [lrepeat $aNb s] ss
|
|
explode ss
|
|
for {set i 1} {$i <= $aNb} {incr i} { vdisplay -noupdate ss_${i}; vsetlocation -noupdate ss_${i} ${i} 0 0 }
|
|
vfit
|
|
set aMemDisp1 [meminfo h]
|
|
vclear
|
|
set aMemClear1 [meminfo h]
|
|
|
|
# display as connected instances of single presentation
|
|
vconnectto i_1 0 0 0 s
|
|
for {set i 2} {$i < $aNb} {incr i} { vconnectto i_${i} ${i} 0 0 i_1 }
|
|
set aMemDisp2 [meminfo h]
|
|
vclear
|
|
set aMemClear2 [meminfo h]
|
|
|
|
puts "Initial memory: [expr $aMemInit / (1024 * 1024)] MiB"
|
|
puts "Displaying (simple): [expr $aMemDisp1 / (1024 * 1024)] MiB"
|
|
puts "Clearing (simple): [expr $aMemClear1 / (1024 * 1024)] MiB"
|
|
puts "Displaying (connected): [expr $aMemDisp2 / (1024 * 1024)] MiB"
|
|
puts "Clearing (connected): [expr $aMemClear2 / (1024 * 1024)] MiB"
|
|
|
|
set aRatio [expr $aMemClear2 / double($aMemClear1)]
|
|
|
|
# check if the memory difference is greater than 20%
|
|
if [expr $aRatio > 1.2] {
|
|
puts "Error : TEST FAILED"
|
|
}
|
|
|