6aac585a |
1 | |
2 | |
4754e164 |
3 | puts "============" |
4 | puts "CR23539" |
5 | puts "============" |
6 | puts "" |
7 | ############################# |
8 | ## Test case for polygonal shift selection |
9 | ############################# |
10 | |
11 | box a 10 10 10 |
12 | box b 50 50 50 10 10 10 |
13 | vinit |
14 | vdisplay a b |
15 | vfit |
16 | vselmode 2 1 |
17 | vselect 0 0 |
18 | vselect 60 300 |
19 | vselect 300 200 300 60 400 60 407 150 1 |
20 | |
21 | set NbSelected1 [vnbselected] |
22 | if { ${NbSelected1} != 13 } { |
23 | puts "Error : Polygonal shift selection doesn't work properly" |
24 | } |
25 | |
26 | vselect 350 120 1 |
27 | |
28 | set NbSelected1 [vnbselected] |
29 | if { ${NbSelected1} != 12 } { |
30 | puts "Error : (case 2)" |
31 | } |
32 | |
33 | set only_screen 1 |