5 #################################################
6 # Result of Boolean operation is non-manifold wire
7 #################################################
18 compound e1 e2 e3 e4 edges
19 edgestowire result edges
21 if {![regexp "WIRE" [whatis result]]} {
22 puts "Error: Wire is not created"
27 if {![regexp "FORWARD" [whatis result_1]]} {
28 puts "Error: Incorrect orientation of edges in wire"
31 if {![regexp "REVERSED" [whatis result_2]]} {
32 puts "Error: Incorrect orientation of edges in wire"
35 if {![regexp "FORWARD" [whatis result_3]]} {
36 puts "Error: Incorrect orientation of edges in wire"
39 if {![regexp "REVERSED" [whatis result_4]]} {
40 puts "Error: Incorrect orientation of edges in wire"