f3889691 |
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 |
f751596e |
33 | vzrange 230.36270740666069 409.91874112463427 |
f3889691 |
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 | |
5747059b |
48 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |