opti dime 2 elem tri3 echo 0 ;
n = 8 ;
l = 10.0 ;
de0 = (l/(flot n)) ;
mess de0 ;
*
dens de0 ;
p0 = 0.0 0.0 ;
p1 = l 0.0 ;
dens (de0/10.0) ;
p2 = l l ;
dens de0 ;
p3 = 0.0 l ;
c1 = (l/2.0) l ;
*
l1 = droi n p0 p1 ;
l2 = droi p1 p2 ;
l3 = droi p2 p3 ;
l4 = c n p3 c1 p0 ;
cont0 = l1 et l2 et l3 et l4 ;
mail0 = surf cont0 ;
trac mail0 qual ;
fin ;