puts "============" puts "OCC13395" puts "============" puts "" ####################################################################### # Pipe is constructed wrongly on a result of revolution ####################################################################### # revolution of an edge to obtain half-disk line line1 0 0 0 1 0 0 mkedge edge1 line1 0 10 revol revol1 edge1 0 0 0 0 1 0 180 # spine for pipe line line2 0 0 0 0 1 0 mkedge edge2 line2 0 10 wire wire_spine edge2 # invalid pipe pipe result wire_spine revol1 set square 828.319 set good_vertex 6 set good_edge 9 set good_wire 5 set good_face 5 set explode_v_length [llength [explode result v] ] set explode_e_length [llength [explode result e] ] set explode_w_length [llength [explode result w] ] set explode_f_length [llength [explode result f] ] if { ${explode_v_length} != ${good_vertex} } { puts "vertex: Faulty" } else { puts "vertex: OK" } if { ${explode_e_length} != ${good_edge} } { puts "edge: Faulty" } else { puts "edge: OK" } if { ${explode_w_length} != ${good_wire} } { puts "wire: Faulty" } else { puts "wire: OK" } if { ${explode_f_length} != ${good_face} } { puts "face: Faulty" } else { puts "face: OK" } set 2dviewer 0