mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
80 lines
1.9 KiB
Plaintext
80 lines
1.9 KiB
Plaintext
puts "============"
|
|
puts "CR26973"
|
|
puts "============"
|
|
puts ""
|
|
|
|
##########################################################################################
|
|
puts "Visualization - selection of entities hidden by clipping planes is broken"
|
|
##########################################################################################
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
|
|
proc OCC26973 { toTestViewPlanes toApplyTrsf theImgIdr theCaseName} {
|
|
if {$toApplyTrsf == "1"} {
|
|
box b -100 -100 -100 1 1 1
|
|
ttranslate b 100 100 100
|
|
} else {
|
|
box b 1 1 1
|
|
}
|
|
|
|
vdisplay b
|
|
vfit
|
|
vselmode b 4 1
|
|
|
|
vclipplane create pln
|
|
if {$toTestViewPlanes == "1"} {
|
|
vclipplane set pln view Driver1/Viewer1/View1
|
|
} else {
|
|
vclipplane set pln object b
|
|
}
|
|
vclipplane change pln equation 0 1 0 -0.5
|
|
|
|
vselect 200 140
|
|
set aTestInfo "Test case: "
|
|
append aTestInfo "clipping planes applied to "
|
|
set aDumpFileName $theImgIdr/${theCaseName}
|
|
if {$toTestViewPlanes == "1"} {
|
|
append aTestInfo "view, "
|
|
append aDumpFileName "_view"
|
|
} else {
|
|
append aTestInfo "object, "
|
|
append aDumpFileName "_obj"
|
|
}
|
|
append aTestInfo "object trsf is "
|
|
if {$toApplyTrsf == "1"} {
|
|
append aTestInfo "on"
|
|
append aDumpFileName "_with_trsf.png"
|
|
} else {
|
|
append aTestInfo "off"
|
|
append aDumpFileName "_wo_trsf.png"
|
|
}
|
|
|
|
if {[vnbselected] != 1} {
|
|
puts "ERROR: can not select face."
|
|
puts $aTestInfo
|
|
}
|
|
set aSelectedFace [string trim [lindex [split [vstate] "\n"] 1] ]
|
|
if {$aSelectedFace != "Face #1"} {
|
|
puts "ERROR: wrong face is selected."
|
|
puts "Actually selected face: $aSelectedFace"
|
|
puts $aTestInfo
|
|
}
|
|
|
|
vdump $aDumpFileName
|
|
vremove -all
|
|
vclipplane delete pln
|
|
}
|
|
|
|
# check global clipping planes selection
|
|
OCC26973 1 0 $imagedir $casename
|
|
OCC26973 1 1 $imagedir $casename
|
|
|
|
# check object clipping planes selection
|
|
OCC26973 0 0 $imagedir $casename
|
|
OCC26973 0 1 $imagedir $casename
|