/* L'extension geometry de Philippe Ivaldi
   introduit une nouvelle structure pour les coniques :
   struct conic { real e, p, h; point F; line D; }
   - e est l'excentricité ;
   - F est un foyer et D la directrice associée ;
   - h est la distance de F à D
   - p est le paramètre, il vérifie l'égalité p=he.
   
   Une des deux principales routines 
   pour définir une conique quelconque est :
       conic conic(point F, line l, real e)
*/
// import geometry_dev; // extension devenue l'extension geometry officielle
import geometry;        // le 12/05/09, dans la version 1.71 d'asymptote. :-))

size(7.5cm,0);
point foyer=(0,0); dot("F", foyer, W);

line directrice=line((1,-1),(1,1)); 
draw(directrice,dashed+.7bp+green);

// Une ellipse lorsque 0 < e < 1
conic ell=conic(foyer,directrice,.8); 
draw(ell,.8bp+blue);

// Une parabole lorsque e = 1
conic par=conic(foyer,directrice,1); 
draw(par,.8bp+red);

draw(box((-2,-3), (2,3)), invisible);