opti dime 2 elem seg2 echo 0 ;
mess 'la longueur des éléments du contour' ;
mess 'fera environ 2.30 dans l unité des longueurs' ;
dens 2.30 ;
p0 = 0.0 0.0 ;
p1 = 10.0 0.0 ;
p2 = 10.0 10.0 ;
p3 = 0.0 10.0 ;
c1 = 5.0 10.0 ;
l1 = droi p0 p1 ;
l2 = droi p1 p2 ;
l3 = droi p2 p3 ;
l4 = c p3 c1 p0 ;
cont0 = l1 et l2 et l3 et l4 ;
mail0 = surf cont0 ;
trac mail0 qual ;
fin ;