51f8f60c |
1 | puts "============" |
2 | puts "CR24564" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ####################################################################### |
7 | # Test for sensitivity of box located over 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 | puts "Testing box selection over the plane in orthogonal projection:" |
16 | vpoint p1 0 0 0 |
17 | vpoint p2 1 0 0 |
18 | vpoint p3 0 1 0 |
19 | |
20 | vplane pl1 p1 p2 p3 0 |
21 | box b 50 50 50 |
22 | vdisplay b |
23 | vfit |
24 | vtop |
25 | |
ccadc126 |
26 | vaspects -setwidth 5 |
28ee613b |
27 | vmoveto 200 200 |
28 | if { "[vreadpixel 200 200 rgb name]" != "CYAN1" } { |
51f8f60c |
29 | puts "Error : The box is not selectable!" |
30 | } |
31 | |
32 | puts "Testing box selection over the plane in axonometry projection:" |
33 | vaxo |
34 | vfit |
35 | |
f751596e |
36 | vmoveto 200 200 |
ccadc126 |
37 | if { "[vreadpixel 199 200 rgb name]" != "CYAN1" } { |
51f8f60c |
38 | puts "Error : The box is not selectable!" |
39 | } |