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
22 checkprops result -s 828.319
28 set explode_v_length [llength [explode result v] ]
29 set explode_e_length [llength [explode result e] ]
30 set explode_w_length [llength [explode result w] ]
31 set explode_f_length [llength [explode result f] ]
33 if { ${explode_v_length} != ${good_vertex} } {
38 if { ${explode_e_length} != ${good_edge} } {
43 if { ${explode_w_length} != ${good_wire} } {
48 if { ${explode_f_length} != ${good_face} } {
54 checkview -display result -2d -path ${imagedir}/${test_image}.png