puts "============" puts "OCC5805" puts "============" ####################################################################### # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results. ####################################################################### set BugNumber OCC5805 # pbsplinecurve1 pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1 mkedge e1 pbc1 wire UpCover e1 # pbsplinecurve1 copy e1 e2 ttranslate e2 0 0 20 wire BottomCover e2 set issolid 1 set isruled 1 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] { puts "Faulty ${BugNumber} : thrusections is wrong" } set distance -0.1 catch { OFFSETSHAPE $distance {s_3 s_2} $calcul $type } set square 489.372 set nb_v_good 3 set nb_e_good 5 set nb_w_good 6 set nb_f_good 4 set nb_sh_good 1 set nb_sol_good 1 set nb_compsol_good 0 set nb_compound_good 0 set nb_shape_good 20 set index [lsearch [whatis s] Closed] if {$index == -1} { puts "Faulty ${BugNumber} : s is not Closed shape" } set index [lsearch [whatis result] Closed] if {$index == -1} { puts "Faulty ${BugNumber} : result is not Closed shape" } set 2dviewer 0