puts "TODO OCC23748 ALL: ERROR. offsetperform operation not done." puts "TODO OCC23748 ALL: TEST INCOMPLETE" circle w -20 0 0 20 mkedge w w 0 pi*2/5 wire w w polyline profile 0 0 0 10 0 0 5 0 5 0 0 0 mkplane profile profile pipe s w profile OFFSETSHAPE 1 {s_2 s_3} $calcul $type set volume 0