tests/bugs/modalg_2/bug427_3

   1
   2 puts "========================"
   3 puts " OCC427 "
   4 puts "(case 3)"
   5 puts "========================"
   6 puts ""
   7 cpulimit 1200
   8 proc OFFSETSHAPE {distance faces  calcul type} {
   9         uplevel #0 explode s f
  10         uplevel #0 offsetparameter 1e-7 $calcul $type
  11         uplevel #0 offsetload s $distance $faces
  12         uplevel #0 offsetperform result
  13 }
  14
  15 #Shell no rough and rounded mode
  16
  17 set calcul "c"
  18 set type "i"
  19
  20 pcone s 9 4 15 90
  21 trotate s 0 0 0 0 0 1 90
  22
  23 OFFSETSHAPE 1 {s_2 s_3} $calcul $type
  24
  25 set square 885.688
  26 set 2dviewer 0