mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-20 06:09:50 +08:00
80 lines
2.2 KiB
Plaintext
80 lines
2.2 KiB
Plaintext
puts "============"
|
|
puts "CR26719"
|
|
puts "============"
|
|
puts ""
|
|
|
|
##########################################################################################
|
|
puts "Visualization - cannot pick zoom persistent object"
|
|
##########################################################################################
|
|
|
|
proc compareDepth {theInfo} {
|
|
set aInfoList [split $theInfo "\n"]
|
|
set aEntNb [llength $aInfoList]
|
|
set aDepths {}
|
|
for {set aEntIdx 0} {$aEntIdx < $aEntNb} {incr aEntIdx} {
|
|
set aBuff [lindex $aInfoList $aEntIdx]
|
|
set aStringArr [split $aBuff " "]
|
|
set aSize [llength $aStringArr]
|
|
for {set aIdx 0} {$aIdx < $aSize} {incr aIdx} {
|
|
set aItem [lindex $aBuff $aIdx]
|
|
if {[string compare $aItem "Depth:"] == 0} {
|
|
lappend aDepths [string trim [lindex $aBuff [expr $aIdx + 1]]]
|
|
}
|
|
}
|
|
}
|
|
|
|
set aDepth1 [lindex $aDepths 0]
|
|
set aDepth2 [lindex $aDepths 1]
|
|
set aDiff [expr $aDepth1 - $aDepth2]
|
|
if {[expr abs($aDiff)] > 0.55} {
|
|
puts "ERROR: the depths diff is bigger than adequate tolerance, see vstate output!"
|
|
}
|
|
}
|
|
|
|
pload VISUALIZATION MODELING
|
|
|
|
vinit
|
|
vtrihedron tri
|
|
vpan 50 50
|
|
|
|
box b1 50 50 50
|
|
box b2 50 50 50
|
|
box b3 150 150 150 100 100 100
|
|
|
|
vpoint p1 200 200 200
|
|
|
|
vdisplay b1 -trsfPers zoom -trsfPersPos 200 200 200
|
|
vdisplay b2 -trsfPers zoom -trsfPersPos 200 200 200
|
|
vsetlocation b2 -50 -50 -50
|
|
vdisplay b3
|
|
|
|
vsetdispmode 1
|
|
vaspects b1 -setColor RED
|
|
vaspects b2 -setColor GREEN
|
|
|
|
# setup the view in a way that front faces of b2 and b3 lie
|
|
# almost on the same plane
|
|
vviewparams -scale 0.99 -proj -0.04 -0.99 0.11
|
|
vviewparams -up -0.58 0.16 0.8 -at 8.48 160.93 282.42
|
|
vviewparams -eye -14.63 -379.49 343.06
|
|
# check depth values
|
|
vmoveto 230 280
|
|
set anInfo [vstate -entities]
|
|
compareDepth $anInfo
|
|
vdump ${imagedir}/${casename}_1.png
|
|
|
|
vmoveto 0 0
|
|
|
|
# setup the view in a way that front faces of b1 and b3 lie
|
|
# almost on the same plane
|
|
vviewparams -scale 0.99 -proj -0.17 0.09 0.98
|
|
vviewparams -up -0.1 0.99 -0.1 -at -49.98 231.47 25.2
|
|
vviewparams -eye -142.03 280.17 559.45
|
|
# check depth values
|
|
vmoveto 276 110
|
|
set anInfo [vstate -entities]
|
|
compareDepth $anInfo
|
|
vdump ${imagedir}/${casename}_2.png
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|