tests/bugs/modalg_2/bug427_2

   1
   2 puts "========================"
   3 puts " OCC427 "
   4 puts "(case 2)"
   5 puts "========================"
   6 puts ""
   7 cpulimit 1000
   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_5} $calcul $type
  24
  25 checkprops result -s 858.167
  26 checkshape result
  27 checkview -display result -2d -path ${imagedir}/${test_image}.png