puts "TODO OCC23068 ALL: An exception was caught"
puts "TODO OCC23068 ALL: \\*\\* Exception \\*\\*"
puts "TODO OCC23068 ALL: TEST INCOMPLETE"
ptorus s 10 10 0 45

OFFSETSHAPE 1 {} $calcul $type

set volume 0
