puts "========================" puts " OCC427 " puts "(case 3)" 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" pcone s 9 4 15 90 trotate s 0 0 0 0 0 1 90 OFFSETSHAPE 1 {s_2 s_3} $calcul $type set square 885.688 set 2dviewer 0