//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");
}
}