titr 'Densite 1' ;
opti dime 2 elem seg2 echo 1 ;
dens 1.0 ;
p0 = 0.0 0.0 ;
p1 = 10.0 0.0 ;
dens 3.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 ;