0026462: Visualization - selection does not adapt to line width change
[occt.git] / tests / bugs / vis / bug26462_1
1 puts "============"
2 puts "CR26462"
3 puts "============"
4 puts ""
5
6 ##########################################################################################
7 puts "Visualization - selection does not adapt to line width change"
8 ##########################################################################################
9
10 pload VISUALIZATION MODELING
11
12 vinit
13 box b1 10 10 10
14 box b2 10 10 10
15
16 vdisplay b1 b2
17 vsetlocation b1 10 10 0
18 vfit
19
20 vaspects b1 b2 -setWidth 3
21
22 vselmode 2 1
23 # try to select b1 and b2
24 vselect 305 322 1
25 vselect 103 322 1
26 # check that both boxes were not selected with default tolerance value
27 set aNbSelected [vnbselected]
28 if {$aNbSelected != "0"} {
29   puts "ERROR: no boxes must be selected!"
30 }
31
32 # increase tolerance for b1
33 vaspects b1 -setSensitivity 2 4
34
35 # select edge of b1
36 vselect 305 322
37 # check that b1's edge was selected
38 set aNbSelected [vnbselected]
39 if {$aNbSelected != "1"} {
40   puts "ERROR: b1 was not selected"
41 }
42 # try to select b2
43 vselect 103 322 1
44 # check that increase of tolerance for b1 doesn't influence
45 # on b2
46 set aNbSelected [vnbselected]
47 if {$aNbSelected != "1"} {
48   puts "ERROR: b2 is selected after b1's tolerance increased"
49 }
50
51 set only_screen 1