ptorus s 20 5 90 

OFFSETSHAPE 1 {} $calcul $type

checkprops result -v 3779.35
