mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
9e8804b6db
Added methods to AIS_Circle and AIS_Plane for switching type of sensitivity By default AIS_Circle and AIS_Plane have boundary sensitivity
50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
puts "============"
|
|
puts "CR24420"
|
|
puts "============"
|
|
puts ""
|
|
|
|
#######################################################################
|
|
# Test for type of sensitivity of AIS_Plane
|
|
#######################################################################
|
|
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=400 h=400
|
|
vactivate $aV
|
|
vclear
|
|
|
|
vpoint p1 0 0 0
|
|
vpoint p2 1 0 0
|
|
vpoint p3 0 1 0
|
|
|
|
puts "Testing Select3D_TOS_INTERIOR type of sensitivity:"
|
|
vplane pl1 p1 p2 p3 0
|
|
vfit
|
|
|
|
vmoveto 200 200
|
|
checkcolor 395 200 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_INTERIOR!"
|
|
}
|
|
|
|
verase pl1
|
|
|
|
puts "Testing Select3D_TOS_BOUNDARY type of sensitivity:"
|
|
|
|
vplane pl2 p1 p2 p3 1
|
|
vfit
|
|
|
|
vmoveto 200 200
|
|
checkcolor 395 200 0.5 0.8 0.9
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
|
|
}
|
|
|
|
vmoveto 395 200
|
|
checkcolor 395 200 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
|
|
}
|