0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug24569
1 puts "============"
2 puts "CR24569"
3 puts "============"
4 puts ""
5
6 #######################################################################
7 #  Test for conversion of sensitives by AIS_InteractiveContext::Update
8 #######################################################################
9
10 set aV "Driver1/Viewer1/View1"
11 vinit name=$aV l=32 t=32 w=400 h=400
12 vactivate $aV
13 vclear
14
15 vpoint p1 0 0 0
16 vpoint p2 1 0 0
17 vpoint p3 0 1 0
18
19 vplane pl1 p1 p2 p3 0
20 vfit
21
22 vmoveto 200 256
23 checkcolor 395 200 0 1 1
24
25 if { $stat != 1 } {
26   puts "Error : Selection of AIS_Plane does not work initially!"
27 }
28
29 puts "Testing of plane sensitivity update:"
30
31 vchangeplane pl1 x=-150 y=150 z=0 sx=10 sy=10
32 vupdate pl1
33 vzrange 230.36270740666069 409.91874112463427
34 vmoveto 200 240
35 checkcolor 199 23 0 1 0
36
37 if { $stat != 1 } {
38   puts "Error : Sensitive entity of AIS_Plane is not updated!"
39 }
40
41 vmoveto 200 28
42 checkcolor 199 23 0 1 1
43
44 if { $stat != 1 } {
45   puts "Error : Sensitive entity of AIS_Plane is incorrect after update!"
46 }
47
48 checkview -screenshot -3d -path ${imagedir}/${test_image}.png