0030695: Visualization - selection by box should use clipping planes set for viewer...
[occt.git] / tests / bugs / vis / bug30695
1 puts "============="
2 puts "0030695: Visualization - selection by box should use clipping planes set for viewer"
3 puts "============="
4
5 pload ALL
6 vinit View1
7
8 box b 10 10 10
9 vdisplay b
10
11 box b1 -5 0 0 2 2 2
12 vdisplay b1
13
14 box b2 13 0 0 2 2 2
15 vdisplay b2
16
17 box b3 16 0 0 2 2 2
18 vdisplay b3
19
20 vsetdispmode 1
21
22 vtop
23 vfit
24 vzoom 0.5
25
26 # apply selection with rectangle covering all visualized objects
27 vselect 40 100 370 300
28 if {[vnbselected] != 4} {
29   puts "ERROR: Initial objects are not selected!"
30 }
31
32 vclipplane create pln
33 vclipplane set pln view Driver1/Viewer1/View1
34 # use clippling plane to have two objects visible (the second object is partially visible)
35 vclipplane change pln equation -1 0 0 5
36
37 # apply inital selection rectangle, expecting selection of only fully visible object
38 vselect 40 100 370 300
39 if {[vnbselected] != 1} {
40   puts "ERROR: Bad numer of selected objects after clippling plane set on view!"
41 }
42
43 # apply inital selection rectangle, expecting selection of partially included object also
44 vselect 40 100 370 300 -allowoverlap 1
45 if {[vnbselected] != 2} {
46   puts "ERROR: Bad numer of selected objects after clippling plane set on view with allow overlap selection!"
47 }