-puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_1 "
-puts "TODO OCC23068 ALL: Error : The offset is not valid"
-puts "TODO OCC23068 ALL: Error : The area of face result_4 of the resulting shape is negative."
+puts "TODO ?OCC23748 ALL: ERROR. offsetperform operation not done."
+puts "TODO ?OCC23748 ALL: Tcl Exception: ERROR. offsetperform operation not done."
+puts "TODO ?OCC23748 ALL: TEST INCOMPLETE"
+
pcone s 5 0 12 270
OFFSETSHAPE 1 {s_4} $calcul $type