5 #######################################################################
6 # Exception during creation pipe on from attached spine and profile
7 #######################################################################
9 restore [locate_data_file OCC13140_Spine.brep] Spine
10 restore [locate_data_file OCC13140_Profile.brep] Profile
12 pipe result Spine Profile
20 set explode_v_length [llength [explode result v] ]
21 set explode_e_length [llength [explode result e] ]
22 set explode_w_length [llength [explode result w] ]
23 set explode_f_length [llength [explode result f] ]
25 if { ${explode_v_length} != ${good_vertex} } {
30 if { ${explode_e_length} != ${good_edge} } {
35 if { ${explode_w_length} != ${good_wire} } {
40 if { ${explode_f_length} != ${good_face} } {