puts "============" puts "OCC8842" puts "============" puts "" ####################################################################### # Errors in Offset Shape algorithm working with bspline and surface of revolution ####################################################################### set BugNumber OCC8842 if {[info commands testreadiges] == ""} {pload XSDRAW} proc myoffset {result sh val tan} { if {$tan == 1} { offsetparameter 1e-7 p i } else { offsetparameter 1e-7 p a } uplevel offsetload $sh $val uplevel offsetperform $result } testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4 DT_ShapeDivide cyl2 a4 # join type Arc puts "***** offsetting with join type Arc" puts " cylinder_Ideas + 5" if [catch { myoffset result cyl2 5 0 } catch_result] { puts "${BugNumber}: Faulty (1)" } else { set square 34980.9 set nb_v_good 20 set nb_e_good 33 set nb_w_good 15 set nb_f_good 15 set nb_sh_good 1 set nb_sol_good 1 set nb_compsol_good 0 set nb_compound_good 0 set nb_shape_good 85 } set 2dviewer 0