/* Une autre routine pour définir une conique est
        conic conic(bqe bqe) 
  qui retourne la conique dont une équation est représentée par bqe.
  bqe signifie 'bivariate quartic equation, c'est à la fois :
- un type dont la structure est : coordsys coordsys
                                  real[] a
  avec a tableau des 6 coefficients tels que : 
  a[0]x^2+a[1]xy+a[2]y^2+a[3]x+a[4]y+a[0]=0
- une fonction :
  bqe(coordsys R=currentcoordsys,real a,real b,real c,real d,real e,real f)
  retourne un objet de type bqe représentant l'équation 
  ax^2 + bxy + cy^2 + dx + ey + f = 0, relativement au repère R.
*/
// 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);

show(currentcoordsys,dotpen=invisible);

// hyperbole d'équation x^2-xy-y^2+3y+3=0
conic c1=conic(bqe(1,-1,-1,0,3,3));
draw(c1,.8bp+blue);

// ellipse d'équation x^2+2y^2+2x-5=0
conic c2=conic(bqe(1,0,2,2,0,-5));
draw(c2,.8bp+red);

// cercle d'équation x^2+y^2-4x+2y-5=0
conic c2=conic(bqe(1,0,1,-4,2,-5));
draw(c2,.8bp+black);

draw(box((-2,-4), (5,5)), invisible);