77a11d3d |
1 | puts "========" |
2 | puts "OCC28189" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Result of Boolean operation is non-manifold wire |
7 | ################################################# |
8 | |
9 | polyline p1 0 0 0 1 0 0 |
10 | polyline p2 0 0 0 1 0 0 |
11 | |
12 | orientation p1 R |
13 | orientation p2 F |
14 | |
15 | bfuse result1 p1 p2 |
16 | explode result1 |
17 | |
18 | if {![regexp "REVERSED" [whatis result1_1]]} { |
19 | puts "Error: Incorrect orientation of wire" |
20 | } |
21 | |
22 | bcommon result2 p2 p1 |
23 | explode result2 |
24 | |
25 | if {![regexp "FORWARD" [whatis result2_1]]} { |
26 | puts "Error: Incorrect orientation of wire" |
27 | } |