puts "TODO OCC23068 ALL: result is not a topological shape"
puts "TODO OCC23068 ALL: TEST INCOMPLETE"

cpulimit 500

pcone s 9 4 15 270

OFFSETSHAPE 1 {} $calcul $type

set volume 0
