0029779: Visualization, SelectMgr_SelectableObject - sensitivity change for object...
[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 puts "0029779: Visualization, SelectMgr_SelectableObject - sensitivity change for object not activated in given mode leads to crash"
33 vaspects b1 -setSensitivity 3 4
34
35 # increase tolerance for b1
36 vaspects b1 -setSensitivity 2 4
37
38 # select edge of b1
39 vselect 305 322
40 # check that b1's edge was selected
41 set aNbSelected [vnbselected]
42 if {$aNbSelected != "1"} {
43   puts "ERROR: b1 was not selected"
44 }
45 # try to select b2
46 vselect 103 322 1
47 # check that increase of tolerance for b1 doesn't influence
48 # on b2
49 set aNbSelected [vnbselected]
50 if {$aNbSelected != "1"} {
51   puts "ERROR: b2 is selected after b1's tolerance increased"
52 }
53
54 checkview -screenshot -3d -path ${imagedir}/${test_image}.png