#F3----------------------------------------------
puts "TODO OCC22803 All: Error in depouille"
puts "TODO OCC22803 All: Error : The skin cannot be built."
puts "TODO OCC22803 All: Error: The command cannot be built"

polyline p 0 0 7  0 0 0  10 0 0  10 0 7  
beziercurve bc 4 10 0 7  7 0 7  3 0 7  0 0 7
mkedge bc bc
wire p p bc
mkplane p p
revol p p 0 0 0 0 0 1 360
pcone pc 5 4 15
bfuse f p pc
nexplode f f
if { [catch { depouille result f 0 0 1 f_4 1 0 0 15 0 0 1 } ] != 0 } {
  puts "Error in depouille"
}

checkprops result -s 0