catch { OFFSETSHAPE $distance {s_4} $calcul $type }
-set square 889.96
-
+checkprops result -s 889.96
+checkshape result
checknbshapes result -vertex 12 -edge 18 -wire 10 -face 9 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 51
set index [lsearch [whatis s] Closed]