tests/bugs/modalg_2/bug427_6

   1 puts "TODO OCC23068 ALL: ERROR. offsetperform operation not done."
   2 puts "TODO OCC23068 ALL: TEST INCOMPLETE"
   3
   4 puts "========================"
   5 puts " OCC427 "
   6 puts "(case 6)"
   7 puts "========================"
   8 puts ""
   9 cpulimit 1200
  10 proc OFFSETSHAPE {distance faces  calcul type} {
  11         uplevel #0 explode s f
  12         uplevel #0 offsetparameter 1e-7 $calcul $type
  13         uplevel #0 offsetload s $distance $faces
  14         uplevel #0 offsetperform result
  15 }
  16
  17 #Shell no rough and rounded mode
  18
  19 set calcul "c"
  20 set type "i"
  21
  22 circle w -20 0 0 20
  23 mkedge w w 0 pi*2/5
  24 wire w w
  25 polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
  26 mkplane profile profile
  27 pipe s w profile
  28
  29 OFFSETSHAPE 1 {s_4 s_5} $calcul $type
  30
  31 set square 808.448
  32 set 2dviewer 0