opti dime 2 elem tri3 echo 0 ;
n = 5 ;
m = enti (1.414*n) ;
p1 = 0.0 0.0 ;
p2 = 10.0 0.0 ;
p3 = 10.0 10.0 ;
p4 = 0.0 10.0 ;
p5 = 0.0 20.0 ;
l1 = droi n p1 p2 ;
l2 = droi n p2 p3 ;
l3 = droi n p3 p4 ;
l4 = droi n p4 p1 ;
l5 = droi m p3 p5 ;
l6 = droi n p5 p4 ;
cont1 = l1 et l2 et l3 et l4 ;
cont2 = l3 et l5 et l6 ;
trac (cont1 et cont2) qual ;
mail1 = surf cont1 ;
mail2 = surf cont2 ;
mail0 = mail1 et mail2 ;
trac mail0 ;
*
dens 1.60 ;
p1 = 0.0 0.0 ;
p2 = 10.0 0.0 ;
p3 = 10.0 10.0 ;
p4 = 0.0 10.0 ;
dens 0.40 ;
p5 = 0.0 20.0 ;
l1 = droi p1 p2 ;
l2 = droi p2 p3 ;
l3 = droi p3 p4 ;
l4 = droi p4 p1 ;
l5 = droi p3 p5 ;
l6 = droi p5 p4 ;
cont1 = l1 et l2 et l3 et l4 ;
cont2 = l3 et l5 et l6 ;
mail1 = surf cont1 ;
mail2 = surf cont2 ;
mail0 = mail1 et mail2 ;
trac mail0 ;
fin ;