puts "TODO ?OCC12345 ALL: ERROR. offsetperform operation not done." puts "TODO ?OCC12345 ALL: Tcl Exception: ERROR. offsetperform operation not done." puts "TODO ?OCC12345 ALL: TEST INCOMPLETE" puts "========================" puts " OCC427 " puts "(case 6)" puts "========================" puts "" cpulimit 1200 proc OFFSETSHAPE {distance faces calcul type} { uplevel #0 explode s f uplevel #0 offsetparameter 1e-7 $calcul $type uplevel #0 offsetload s $distance $faces uplevel #0 offsetperform result } #Shell no rough and rounded mode set calcul "c" set type "i" circle w -20 0 0 20 mkedge w w 0 pi*2/5 wire w w polyline profile 0 0 0 10 0 0 5 0 5 0 0 0 mkplane profile profile pipe s w profile OFFSETSHAPE 1 {s_4 s_5} $calcul $type set square 808.448 set 2dviewer 0