//a*y+b*x+c
  enveloppe3(a,b,c):={
  local ld,ld1,dd1,M;
  ld:=[a,b,c];
  ld1:=derive(ld,t);
  dd1:=ld[0]*ld1[1]-ld[1]*ld1[0];
  if (dd1!=0) {
   M:=(i*(-ld[2]*ld1[1]+ld[1]*ld1[2])+(ld[2]*ld1[0]-ld[0]*ld1[2]))/dd1;
   plotparam(M,t);
  } else {
   return("droites paralleles");
  }
  }