0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[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 vaspects -setwidth 5
27 vmoveto 200 200
28 if { "[vreadpixel 200 200 rgb name]" != "CYAN"  } {
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
36 vmoveto 200 200
37 if { "[vreadpixel 199 200 rgb name]" != "CYAN"  } {
38   puts "Error : The box is not selectable!"
39 }