5 #######################################################################
6 # Pipe is constructed wrongly on a result of revolution
7 #######################################################################
9 # revolution of an edge to obtain half-disk
10 line line1 0 0 0 1 0 0
11 mkedge edge1 line1 0 10
12 revol revol1 edge1 0 0 0 0 1 0 180
15 line line2 0 0 0 0 1 0
16 mkedge edge2 line2 0 10
20 pipe result wire_spine revol1
27 set explode_v_length [llength [explode result v] ]
28 set explode_e_length [llength [explode result e] ]
29 set explode_w_length [llength [explode result w] ]
30 set explode_f_length [llength [explode result f] ]
32 if { ${explode_v_length} != ${good_vertex} } {
37 if { ${explode_e_length} != ${good_edge} } {
42 if { ${explode_w_length} != ${good_wire} } {
47 if { ${explode_f_length} != ${good_face} } {