1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
puts "============"
puts "CR24564"
puts "============"
puts ""
#######################################################################
# Test for sensitivity of box located over AIS_Plane
#######################################################################
set aV "Driver1/Viewer1/View1"
vinit name=$aV l=32 t=32 w=400 h=400
vactivate $aV
vclear
puts "Testing box selection over the plane in orthogonal projection:"
vpoint p1 0 0 0
vpoint p2 1 0 0
vpoint p3 0 1 0
vplane pl1 p1 p2 p3 0
box b 50 50 50
vdisplay b
vfit
vtop
vaspects -setwidth 5
vmoveto 200 200
if { "[vreadpixel 200 200 rgb name]" != "CYAN1" } {
puts "Error : The box is not selectable!"
}
puts "Testing box selection over the plane in axonometry projection:"
vaxo
vfit
vmoveto 200 200
if { "[vreadpixel 199 200 rgb name]" != "CYAN1" } {
puts "Error : The box is not selectable!"
}
|
