9e8804b6 |
1 | puts "============" |
2 | puts "CR24420" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ####################################################################### |
7 | # Test for type of sensitivity of AIS_Plane |
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 | puts "Testing Select3D_TOS_INTERIOR type of sensitivity:" |
20 | vplane pl1 p1 p2 p3 0 |
21 | vfit |
22 | |
23 | vmoveto 200 200 |
24 | checkcolor 395 200 0 1 1 |
25 | |
26 | if { $stat != 1 } { |
27 | puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_INTERIOR!" |
28 | } |
29 | |
30 | verase pl1 |
31 | |
32 | puts "Testing Select3D_TOS_BOUNDARY type of sensitivity:" |
33 | |
34 | vplane pl2 p1 p2 p3 1 |
35 | vfit |
36 | |
37 | vmoveto 200 200 |
38 | checkcolor 395 200 0.5 0.8 0.9 |
39 | |
40 | if { $stat != 1 } { |
41 | puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!" |
42 | } |
43 | |
44 | vmoveto 395 200 |
45 | checkcolor 395 200 0 1 1 |
46 | |
47 | if { $stat != 1 } { |
48 | puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!" |
49 | } |