puts "TODO OCC23068 ALL: ERROR. offsetperform operation not done."
puts "TODO OCC23068 ALL: TEST INCOMPLETE"

puts "========================"
puts " OCC427 "
puts "(case 6)"
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"

circle w -20 0 0 20
mkedge w w 0 pi*2/5
wire w w
polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
mkplane profile profile
pipe s w profile

OFFSETSHAPE 1 {s_4 s_5} $calcul $type

set square 808.448
set 2dviewer 0
