7f6cefd75447d543b4fed0f67acb55b5a8d8128c
[occt.git] / tests / bugs / vis / bug26147
1 puts "============"
2 puts "CR26147"
3 puts "============"
4 puts ""
5
6 ##########################################################################################
7 puts "Visualization - restore the ability to pick only fully included objects in rectangular selection"
8 ##########################################################################################
9
10 pload VISUALIZATION MODELING
11
12 box b1 0 0 0 1 1 1
13 box b2 2 2 2 1 1 1
14 box b3 4 4 4 1 1 1
15
16 vinit View1
17 vdisplay b1 b2 b3
18 vfit
19
20 vselmode b1 1 1
21 vselmode b1 2 1
22 vselmode b2 1 1
23 vselmode b2 2 1
24
25 vselect 75 230 235 320 -allowoverlap 0
26 set aNbSelected1 [vnbselected]
27 if {$aNbSelected1 != 4} {
28   puts "ERROR: Wrong number of entities in vertice-edge selection without overlap allowed!"
29 }
30
31 vselect 75 230 235 320 -allowoverlap 1
32 vnbselected
33 set aNbSelected2 [vnbselected]
34 if {$aNbSelected2 != 11} {
35   puts "ERROR: Wrong number of entities in vertice-edge selection with overlap allowed!"
36 }
37
38 vselect 0 0
39
40 vselmode b3 4 1
41
42 vselect 75 230 235 320 -allowoverlap 0 1
43 vselect 350 150 380 170 1
44 vnbselected
45 set aNbSelected3 [vnbselected]
46 if {$aNbSelected3 != 4} {
47   puts "ERROR: Wrong number of entities in vertice-edge-face shift selection without overlap allowed!"
48 }
49
50 vselect 0 0
51
52 vselect 75 230 235 320 -allowoverlap 1 1
53 vselect 350 150 380 170 1
54 vnbselected
55 set aNbSelected4 [vnbselected]
56 if {$aNbSelected4 != 13} {
57   puts "ERROR: Wrong number of entities in vertice-edge-face shift selection with overlap allowed!"
58 }
59
60 vdump $imagedir/${casename}.png