tests/bugs/modalg_2/bug427_4

   1
   2 puts "========================"
   3 puts " OCC427 "
   4 puts "(case 4)"
   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 circle w -20 0 0 20
  21 mkedge w w 0 pi*2/5
  22 wire w w
  23 polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
  24 mkplane profile profile
  25 pipe s w profile
  26
  27 OFFSETSHAPE 1 {} $calcul $type
  28
  29 checkprops result -s 1306.3
  30 checkshape result
  31 checkview -display result -2d -path ${imagedir}/${test_image}.png