prologues:=2;
input geometrie2;
u=1cm;
beginfig(1);
  z0=u*(1,1);label.lft(btex $C$ etex,z0);
  z1=u*(5,1);dotlabel.llft(btex $R$ etex,z1);
  draw demidroite(z0,z1,2);
  z2=1.5[z0,z1];dotlabel.llft(btex $D$ etex,z2);
  z3=u*(3,4);dotlabel.top(btex $S$ etex,z3);
  draw demidroite(z0,z3,2);
  z4=1.5[z0,z3];dotlabel.top(btex $E$ etex,z4);
  draw droite(z2,z4,1.1);
  draw droite(z1,z3,1.1);
endfig;
beginfig(-2);
  z0=u*(1,1);
  z1=u*(7,2);label.top(btex $A$ etex,z1);
  z2=1.6[z0,z1];dotlabel.lrt(btex $M$ etex,z2);
  z3=0.4[z1,z0];dotlabel.lrt(btex $C$ etex,z3);
  z4=u*(2,5);
  z5=1.6[z4,z1];dotlabel.rt(btex $N$ etex,z5);
  z6=0.4[z1,z4];dotlabel.rt(btex $B$ etex,z6);
  draw droite(z6,z3,1.5);
  draw droite(z2,z5,1.5);
  draw droite(z6,z1,3);
  draw droite(z3,z1,3);
endfig;
end