%%% -------------------------------------------------------------------------- %%% mp-gdd %%% Courbes du second degré %%% -------------------------------------------------------------------------- if unknown Pi: input gdd-fct; fi; %%% -------------------------------------------------------------------------- %%% Paraboles %%% -------------------------------------------------------------------------- % Parabole par Foyer-Directrice. gddParabolePar := 15; vardef ParaboleFD(expr F,D) = save u, v, w, d, i; (u,v,w) = EquationDroite(D); d := u * gddA[F] + v * gddB[F] + w; i := -gddParabolePar-1; ( (i*(v,-u)+((i*i-d*d)/(2d))*(u,v)) for i:= -gddParabolePar upto gddParabolePar: ..(i*(v,-u)+((i*i-d*d)/(2d))*(u,v)) endfor ) shifted PairImp(F) enddef; % Parabole par Foyer-Sommet vardef ParaboleFS(expr F,S) = enddef; endinput