input newcourbes;
input couleur;
input geometriesyr16;
input TEX;


verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\usepackage{color}
\def\E{\mathrm{e}}
\let\ve\vec
\def\DR{\mathcal{D}}
\def\CR{\mathcal{C}}
\def\HR{\mathcal{H}}
\newcommand{\Mathbold}[1]{\mbox{\boldmath$#1$\unboldmath}}
\begin{document}
etex
%%%%%%%%%%%%%%%
%
%
%   Géométrie analytique
%
%
   
beginfig( 6)


repere(0,0,-7,7,-5,4,1cm,1cm);
r_axes;
%r_origine;
%r_unites;
r_labelxy;
%quad_xy(0.2,bleu_ciel);
quadu_xy(0.2white);
%grad_x(1,1,0.4white);
%grad_y(1,1,0.4white);

dotlabel.top(btex A etex, r_p(2,2) );
dotlabel.ulft(btex B etex, r_p(-4,-1) );
dotlabel.bot(btex C etex, r_p(-3,-3) );
dotlabel.urt(btex E etex, r_p(3,0) );
dotlabel.lrt(btex I etex, r_p(-.5,-.5) );
dotlabel.ulft(btex K etex, r_p(-.5,.75) );
label.llft(btex $\Delta$ etex,r_p(4,-2) ) withcolor blue;

draw r_droite(2,2,0.5) withcolor orange withpen pencircle scaled 1.5bp;

draw r_droite(0,6,-2)withcolor blue withpen pencircle scaled 1.5bp;

draw r_seg(-3,-3,-4,-1)withpen pencircle scaled 1.1bp withcolor 0.5white;
draw r_seg(-3,-3,2,2)withpen pencircle scaled 1.1bp withcolor 0.5white;
draw r_seg(-3,-3,3,0)withpen pencircle scaled 1.1bp withcolor 0.5white;

draw rx_droite(-.5) withcolor red withpen pencircle scaled 1.5bp;

draw codesegments(r_p(2,2),r_p(-.5,-.5),r_p(-.5,-.5),r_p(-3,-3),2)withpen pencircle scaled 1.1bp withcolor 0.5white ;

draw codeperp(r_p(-3,-3),r_p(-4,-1),r_p(2,2),8)withpen pencircle scaled 1.1bp withcolor 0.5white;

r_fin;
endfig;

end