949df2b6 |
1 | puts "============" |
2 | puts "OCC25509" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Wrong shape considered as valid by checkshape |
7 | ###################################################### |
8 | |
9 | # 06 |
10 | # Solid with Two vertices FORWARD that are out of the growth |
11 | # Solid with 2 growths |
12 | # Solid with 2 shells with imbrications |
13 | # |
14 | |
15 | box b1 10 10 10 |
16 | |
17 | explode b1 |
18 | |
19 | vertex v1 11 11 0 |
20 | vertex v2 11 11 11 |
21 | |
22 | box b3 3 3 3 4 4 4 |
23 | explode b3 |
24 | |
25 | explode b1_1 |
26 | orientation b1_1_1 I |
27 | shape x sh |
28 | add b1_1_1 x |
29 | |
30 | shape result so |
31 | add b1_1 result |
32 | add v1 result |
33 | add v2 result |
34 | add b3_1 result |
35 | add x result |
36 | |
37 | decho off |
38 | set info [checkshape result] |
39 | decho on |
40 | |
41 | if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } { |
42 | puts "Error : There are no mistakes by checkshape-command" |
43 | } else { |
44 | puts "OK : There are mistakes by checkshape-command" |
45 | } |
46 | |
47 | set 2dviewer 1 |