opti dime 2 elem tri3 echo 1 ;
dens 0.20 ;
p1 = 0.0 0.0 ;
p2 = 1.0 0.5 ;
p3 = 2.0 1.5 ;
p4 = 3.0 1.1 ;
l1 = cubp p1 p2 p3 p4 ;
trac (l1 et p2 et p3) qual ;
dens 0.020 ;
p1 = 0.0 0.0 ;
p2 = 1.0 0.5 ;
p3 = 2.0 1.5 ;
p4 = 3.0 1.1 ;
l1 = cubp p1 p2 p3 p4 ;
trac (l1 et p2 et p3) qual ;
fin ;