opti dime 2 elem tri3 echo 0 dens 1.0 ;
p0 = 0.0 0.0 ;
p1 = 10.0 0.0 ;
dens 0.20 ;
p2 = 10.0 10.0 ;
dens 2.0 ;
p3 = 0.0 10.0 ;
c1 = 5.0 10.0 ;
l1 = droi 10 p0 p1 ;
l2 = droi p1 p2 ;
n2 = nbel l2 ;
l3 = droi -10 p2 p3 ;
l4 = c ((-1)*n2) p3 c1 p0 ;
cont0 = l1 et l2 et l3 et l4 ;
mail0 = surf cont0 ;
trac mail0 qual ;
fin ;