0024564: Select3D_SensitiveFace gives inaccurate picking depth for AIS_Plane (interio...
[occt.git] / tests / bugs / vis / bug24564
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
26 vmoveto 199 200
27 checkcolor 199 200 0 1 1
28
29 if { $stat != 1 } {
30   puts "Error : The box is not selectable!"
31 }
32
33 puts "Testing box selection over the plane in axonometry projection:"
34 vaxo
35 vfit
36
37 vmoveto 199 200
38 checkcolor 199 200 0 1 1
39
40 if { $stat != 1 } {
41   puts "Error : The box is not selectable!"
42 }