mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
fe525c6f7c
SelectMgr_ViewerSelector::traverseObject() now handles Object clipping planes in the same way as View clipping planes.
60 lines
1.3 KiB
Plaintext
60 lines
1.3 KiB
Plaintext
puts "========"
|
|
puts "Sensitive box selection"
|
|
puts "========"
|
|
|
|
# create sphere
|
|
sphere ss 10
|
|
mkface s ss
|
|
incmesh s 0.01
|
|
|
|
# draw sphere
|
|
vinit View1
|
|
vclear
|
|
vsetdispmode 1
|
|
vpointcloud p s -nonormals
|
|
vselmode p 2 1
|
|
vaxo
|
|
vfit
|
|
|
|
vclipplane pl1 -set -equation -1 0 0 0
|
|
set p1 [vmoveto 200 200]
|
|
if {[string first "e+308" $p1] != -1} {
|
|
puts "Faulty : Selection 1"
|
|
}
|
|
vpoint pp1 {*}$p1
|
|
checkpoint pp1 $p1 {-1.7763568394002505e-15 -0.51078486684208357 0.59985611160264973} 0.0001
|
|
vdump $::imagedir/${::casename}_clip1_selection_axo.png
|
|
vtop
|
|
vdump $::imagedir/${::casename}_clip1_selection_top.png
|
|
vaxo
|
|
verase pp1
|
|
|
|
vmoveto 300 200
|
|
vdump $::imagedir/${::casename}_clip1_no_selection.png
|
|
|
|
vclipplane pl1 -set -equation -1 0 0 3
|
|
vclipplane pl2 -set -equation 1 0 0 3
|
|
set p2 [vmoveto 200 200]
|
|
if {[string first "e+308" $p2] != -1} {
|
|
puts "Faulty : Selection 2"
|
|
}
|
|
vpoint pp2 {*}$p2
|
|
checkpoint pp2 $p2 {2.9999999999999991 -3.5107848668420845 3.5998561116026506} 0.0001
|
|
vdump $::imagedir/${::casename}_clip2_selection_axo.png
|
|
vtop
|
|
vdump $::imagedir/${::casename}_clip2_selection_top.png
|
|
vaxo
|
|
verase pp2
|
|
|
|
vmoveto 75 200
|
|
vdump $::imagedir/${::casename}_clip2_no_selection.png
|
|
|
|
vtop
|
|
vmoveto 250 200
|
|
vdump $::imagedir/${::casename}_clip2_no_selection_top.png
|
|
|
|
vaxo
|
|
vfit
|
|
vclipplane pl1 -delete
|
|
vclipplane pl2 -delete
|
|
vmoveto 200 200 |