segment(B,C);
E:=B+i*(C-B)*longueur(A,D)/longueur(B,C);
F:=B-i*(C-B)*longueur(A,D)/longueur(B,C);
parallele(E,droite(B,C));
parallele(F,droite(B,C));