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