puts "TODO ?OCC23068 ALL: \\*\\* Exception" puts "TODO ?OCC23068 ALL: An exception was caught" puts "TODO ?OCC23068 ALL: TEST INCOMPLETE" puts "TODO ?OCC23068 ALL: Error : The offset is not valid" puts "TODO ?OCC23748 ALL: ERROR. offsetperform operation not done." puts "TODO ?OCC23748 ALL: Tcl Exception: ERROR. offsetperform operation not done." ellipse w1 0 0 0 15 10 mkedge w1 w1 0 pi/2 trotate w1 0 0 0 1 0 0 90 polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0 wire w w1 w2 mkplane w w revol s w 0 0 0 0 0 1 90 OFFSETSHAPE -1 {s_4 s_5} $calcul $type set volume 0