mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
49 lines
1.0 KiB
Plaintext
49 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "CR24569"
|
|
puts "============"
|
|
puts ""
|
|
|
|
#######################################################################
|
|
# Test for conversion of sensitives by AIS_InteractiveContext::Update
|
|
#######################################################################
|
|
|
|
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
|
|
|
|
vplane pl1 p1 p2 p3 0
|
|
vfit
|
|
|
|
vmoveto 200 256
|
|
checkcolor 395 200 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Selection of AIS_Plane does not work initially!"
|
|
}
|
|
|
|
puts "Testing of plane sensitivity update:"
|
|
|
|
vchangeplane pl1 x=-150 y=150 z=0 sx=10 sy=10
|
|
vupdate pl1
|
|
vzrange 230.36270740666069 409.91874112463427
|
|
vmoveto 200 240
|
|
checkcolor 199 23 0 1 0
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Sensitive entity of AIS_Plane is not updated!"
|
|
}
|
|
|
|
vmoveto 200 28
|
|
checkcolor 199 23 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Sensitive entity of AIS_Plane is incorrect after update!"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|