%A
vardef Deplacer=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E;
    A=u*(2/3,0.15);
    B=u*(1/3,0.85);
    C-A=u*(-0.03,-0.1);
    D-C=0.5*(B-A);
    E=rotation(D,C,25);
    path cc;
    cc=C--D--arccercle(D,E,C)--B;
    trace cc;
    trace symetrie(cc,A,B);
    trace arccercle(C,symetrie(C,B,A),B);
    );
  $
enddef;

vardef Stylo=
  save $;
  picture $;
  $=image(
    label(TEX("\faPen"),u*(0.5,0.5));
    );
  $:=homothetie($,center $,0.8u/abs(llcorner $-lrcorner $));
  trace (unitsquare scaled u) withcolor gris;
  $
enddef;

vardef Effacer=
  save $;
  picture $;
  $=image(
    label(TEX("\faEraser"),u*(0.5,0.5));
    );
  $:=homothetie($,center $,0.8u/abs(llcorner $-lrcorner $));
  trace (unitsquare scaled u) withcolor gris;
  $
enddef;

%B
vardef Point=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A;
    A=u*(0.2,0.3);
    marque_r:=35;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    labeloffset:=3*labeloffset;
    pointe(A);
    label.urt(btex \Large A etex,A);
    labeloffset:=labeloffset/3;
    drawoptions();
    trace cercles(A,marque_r/10);
    );
  $
enddef;

vardef NombreComplexe=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A;
    A=u*(0.2,0.3);
    marque_r:=35;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    labeloffset:=3*labeloffset;
    pointe(A);
    label.urt(btex \Large Z etex,A);
    labeloffset:=labeloffset/3;
    drawoptions();
    trace cercles(A,marque_r/10);
    );
  $
enddef;

vardef Extremums=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E,F;
    A=u*(0,0.5);
    B=u*(1,0.5);
    C=u*(0,0);
    D-C=u*(0.325,0.85);
    E-D=u*(0.35,-0.7);
    F=u*(1,1);
    marque_r:=15;
    trace segment(A,B) withcolor 0.8white;
    trace C{dir70}..{dir20}D{dir-40}..{dir-20}E{dir40}..{dir80}F;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(D,E);
    drawoptions();
    trace cercles(D,marque_r/10);
    trace cercles(E,marque_r/10);
    );
  $
enddef;

vardef Racines=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E,F,G,H,I;
    A=u*(0,0.5);
    B=u*(1,0.5);
    C=u*(0,0);
    D-C=u*(0.325,0.85);
    E-D=u*(0.35,-0.7);
    F=u*(1,1);
    marque_r:=15;
    path cc,cd;
    cc=segment(A,B);
    cd=C{dir70}..{dir20}D{dir-40}..{dir-20}E{dir40}..{dir80}F;
    G=(subpath(0,1) of cd) intersectionpoint cc;
    H=(subpath(1,2) of cd) intersectionpoint cc;
    I=(subpath(2,3) of cd) intersectionpoint cc;
    trace cc withcolor 0.8white;
    trace cd;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(G,H,I);
    drawoptions();
    trace cercles(G,marque_r/10);
    trace cercles(H,marque_r/10);
    trace cercles(I,marque_r/10);
    );
  $
enddef;

vardef PointSurObjet=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E;
    A=u*(0.3,0.35);
    B=u*(0.1,0.1);
    C-B=u*(0.8,0.2);
    D-C=u*(-0.3,0.6);
    E-B=u*(0,0.5);
    marque_r:=15;
    marque_p:="plein";
    fill polygone(B,C,D,E) withcolor PfCdmarron withtransparency(1,0.3);
    trace polygone(B,C,D,E) withcolor PfCdmarron;
    drawoptions(withcolor bleu);
    labeloffset:=1*labeloffset;
    pointe(A);
    label.urt(TEX("\footnotesize A"),A);
    labeloffset:=labeloffset/3;
    drawoptions();
    trace cercles(A,marque_r/10);
    );
  $
enddef;

vardef LierLiberer=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.15,0.15);
    B-A=u*(0.75,0.75);
    trace segment(A,B);
    trace cercles((0,0),A);
    ahlength:=ahlength*2;
    ahangle:=ahangle/2;
    drawdblarrow A--(B+(marque_r/10)*unitvector(A-B));
    marque_p:="plein";
    drawoptions(withcolor red);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Intersection=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    marque_r:=25;
    A=u*(0,0.25);
    B=u*(1,0.75);
    C=u*(0.75,0);
    D=u*(0,0.85);
    trace segment(A,B);
    trace C{dir90}..iso(A,B)..{dir 160}D;
    drawoptions(withcolor rouge);
    marque_p:="plein";
    pointe(iso(A,B));
    drawoptions();
    trace cercles(iso(A,B),marque_r/10);
    );
  $
enddef;

vardef MilieuOuCentre=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,I;
    A=u*(0.15,0.15);
    B=u*(0.85,0.85);
    I=iso(A,B);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions(withcolor rouge);
    pointe(I);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(I,marque_r/10);
    );
  $
enddef;

%C
vardef Droite=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.3,0.3);
    B-A=u*(0.5,0.5);
    trace droite(A,B) cutbefore (unitsquare scaled u) cutafter (unitsquare scaled u);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    );
  $
enddef;

vardef Segment=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.3,0.3);
    B-A=u*(0.5,0.5);
    trace segment(A,B);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    );
  $
enddef;

vardef SegmentLongueur=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.3,0.3);
    B-A=u*(0.5,0.5);
    trace segment(A,B) withcolor rouge;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A);
    drawoptions(withcolor rouge);
    pointe(B);
    trace appelation(A,B,2mm,TEX("a"));
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    );
  $
enddef;

vardef DemiDroite=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.3,0.3);
    B-A=u*(0.5,0.5);
    trace demidroite(A,B) cutafter (unitsquare scaled u);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    );
  $
enddef;

vardef Vecteur=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.3,0.3);
    B-A=u*(0.5,0.5);
    trace segment(A,B);
    drawarrow A--(B+(marque_r/10)*unitvector(A-B));
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    );
  $
enddef;

vardef Representant=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    ahlength:=ahlength*2;
    ahangle:=ahangle/2;
    A=u*(0.15,0.4);
    B-A=u*(0.6,0.4);
    C-A=u*(0,-0.35);
    D-C=B-A;
    drawarrow A--B withcolor red;
    drawarrow C--D;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(B);
    drawoptions(withcolor bleu);
    pointe(A);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef LigneBrisee=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.15,0.15);
    C-A=u*(0.7,0.2);
    B-A=u*(0.1,0.5);
    D-A=u*(0.6,0.7);
    trace segment(A,D) dashed evenly;
    drawoptions(withcolor rouge);
    trace A--C--B--D;
    drawoptions(withcolor bleu);
    marque_p:="plein";
    pointe(A,B,C,D);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(D,marque_r/10);
    );
  $
enddef;

%D
vardef Perpendiculaire=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.1);
    B-A=u*(0.8,0.2);
    C-A=u*(0.25,0.7);
    trace droite(A,B);
    trace perpendiculaire(A,B,C) withcolor rouge;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(C);
    drawoptions();
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Parallele=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.1);
    B-A=u*(0.8,0.2);
    C-A=u*(0.25,0.55);
    trace droite(A,B);
    trace parallele(A,B,C) withcolor rouge;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(C);
    drawoptions();
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Mediatrice=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.2,0.2);
    B-A=u*(0.7,0.4);
    trace segment(A,B);
    trace perpendiculaire(A,B,iso(A,B)) withcolor rouge;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Bissectrice=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.3);
    B-A=u*(0.75,-0.1);
    C-A=u*(0.6,0.5);
    trace chemin(C,A,B);
    trace droite(A,CentreCercleI(A,B,C)) withcolor rouge;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B,C);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

%E
vardef Polygone=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.15);
    C-A=u*(0.7,0.2);
    B-A=u*(0.2,0.7);
    fill polygone(A,B,C) withcolor PfCdmarron withtransparency(1,0.3);
    drawoptions(withcolor PfCdmarron);
    trace polygone(A,B,C);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B,C);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    );
  $
enddef;

vardef PolygoneRegulier=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E,F;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.35u);
    B=pointarc(cc,0);
    C=pointarc(cc,1*72);
    D=pointarc(cc,2*72);
    E=pointarc(cc,3*72);
    F=pointarc(cc,4*72);
    fill polygone(B,C,D,E,F) withcolor PfCdmarron withtransparency(1,0.3);
    drawoptions(withcolor PfCdmarron);
    trace polygone(B,C,D,E,F);
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(B,C,D);
    drawoptions(withcolor bleu);
    pointe(E,F);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(D,marque_r/10);
    trace cercles(E,marque_r/10);
    trace cercles(F,marque_r/10);
    );
  $
enddef;

vardef PolygoneInde=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,K;
    A=u*(0.15,0.15);
    C-A=u*(0.7,0.2);
    B-A=u*(0.2,0.7);
    K=2/3[C,rotation(A,C,-75)];
    fill polygone(A,B,C) withcolor PfCdmarron withtransparency(1,0.3);
    drawoptions(withcolor PfCdmarron);
    trace polygone(A,B,C);
    marque_p:="plein";
    drawoptions(withcolor blue);
    pointe(A,B,C);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    drawarrow C--K;
    );
  $
enddef;

vardef PolygoneSemiInde=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,K;
    A=u*(0.15,0.15);
    C-A=u*(0.7,0.2);
    B-A=u*(0.2,0.7);
    K=2/3[C,rotation(A,C,-75)];
    fill polygone(A,B,C) withcolor PfCdmarron withtransparency(1,0.3);
    drawoptions(withcolor PfCdmarron);
    trace polygone(A,B,C);
    marque_p:="plein";
    drawoptions(withcolor blue);
    pointe(A,B,C);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    drawarrow A--2/3[A,C];
    drawarrow A--2/3[A,B];
    );
  $
enddef;

%F
vardef CercleCentrePoint=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    trace cc;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef CercleCentreRayon=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    trace cc;
    trace segment(A,B);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A);
    drawoptions();
    trace cercles(A,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef CercleTroisPoints=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    C=pointarc(cc,290);
    D=pointarc(cc,170);
    trace cc;
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(B,C,D);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(D,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef DemiCercle=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    C=symetrie(B,A);
    trace arccercle(B,C,A);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(C,B);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef ArcCercleCentre=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.25,0.4);
    path cc;
    cc=cercles(A,0.55u);
    B=pointarc(cc,50);
    C=pointarc(cc,335);
    %D=pointarc(cc,170);
    trace arccercle(C,B,A);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B,C);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(A,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef SecteurCirculaireCentre=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.25,0.4);
    path cc;
    cc=cercles(A,0.55u);
    B=pointarc(cc,50);
    C=pointarc(cc,335);
    %D=pointarc(cc,170);
    trace arccercle(C,B,A);
    trace chemin(B,A,C);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B,C);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(A,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef ArcCercleTroisPoints=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    C=pointarc(cc,290);
    D=pointarc(cc,170);
    trace arccercle(C,D,A);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(B,C,D);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(D,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef SecteurCirculaireTroisPoints=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.4u);
    B=pointarc(cc,30);
    C=pointarc(cc,290);
    D=pointarc(cc,170);
    trace arccercle(C,D,A);
    trace chemin(C,A,D);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(B,C,D);
    drawoptions();
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    trace cercles(D,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

%G

%H
vardef Angle=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.3);
    B-A=u*(0.75,-0.2);
    C-A=u*(0.6,0.6);
    marque_a:=marque_a/2-2;
    fill coloreangle(B,A,C) withcolor PfCdmarron withtransparency(1,0.3);
    trace chemin(C,A,B);
    drawoptions(withcolor rouge);
    trace Codeangle(B,A,C,0,TEX("$\alpha$"));
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,B,C);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef AngleMesureDonnee=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.3);
    B-A=u*(0.75,-0.2);
    C-A=u*(0.6,0.6);
    marque_a:=marque_a/2-2;
    fill coloreangle(B,A,C) withcolor PfCdmarron withtransparency(1,0.3);
    trace chemin(A,B);
    marque_p:="plein";
    drawoptions(withcolor rouge);
    trace Codeangle(B,A,C,0,btex $\alpha$ etex);
    trace segment(A+(marque_a)*unitvector(C-A),A);
    pointe(C);
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Distance=
  save $;
  picture $;
  $=image(
    pair A,B;
    A=u*(0.15,0.15);
    B-A=u*(0.75,0.5);
    trace appelation(A,B,2mm,TEX("cm"));
    currentpicture:=homothetie(currentpicture,center currentpicture,0.5u/abs(llcorner currentpicture - lrcorner currentpicture));
    drawdblarrow A--B;
    trace (unitsquare scaled u) withcolor gris;
    );
  $
enddef;

vardef Aire=
  save $;
  picture $;
  $=image(
    pair A,B,C,D,E;
    A=u*(0.25,0.15);
    B-A=u*(0.65,0.1);
    C-B=u*(0,0.55);
    D-C=u*(-0.35,-0.35);
    E-A=u*(0,0.4);
    label.top(TEX("\small\Aire{}"),E);
    currentpicture:=homothetie(currentpicture,center currentpicture,0.4u/abs(llcorner currentpicture - lrcorner currentpicture));
    fill polygone(A,B,C,D,E) withcolor 0.5white;
    trace polygone(A,B,C,D,E);
    trace (unitsquare scaled u) withcolor gris;
    );
  $
enddef;

vardef Pente=
  save $;
  picture $;
  $=image(
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,E;
    A=u*(0,0);
    B-A=u*(1,1);
    C=0.2[A,B];
    D=0.8[A,B];
    E=(xpart(D),ypart(C));
    fill polygone(C,D,E) withcolor red withtransparency(1,0.3);
    trace chemin(C,E,D) withcolor red;
    trace chemin(A,B);
    );
  $
enddef;

vardef Liste=
  save $;
  picture $;
  $=image(
    drawoptions(withcolor DarkGreen);
    label(TEX("\large\{1,2\}"),u*(0.5,0.5));
    drawoptions();
  );
  $:=homothetie($,center $,0.9u/abs(llcorner $-lrcorner $));
  feuillet:=(unitsquare scaled u);
  trace (unitsquare scaled u) withcolor gris;
  $
enddef;

vardef Relation=
  save $;
  picture $;
  $=image(
    label(TEX("\large$a\stackrel{\textcolor{red}{?}}{=}b$"),u*(0.5,0.5));
    );
  $:=homothetie($,center $,0.9u/abs(llcorner $-lrcorner $));
  trace (unitsquare scaled u) withcolor gris;
  $
enddef;

%I
vardef SymetrieAxiale=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    C=u*(0.9,0);
    D=u*(0.1,1);
    A=u*(0.2,0.3);
    B=symetrie(A,C,D);
    trace droite(C,D);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A);
    drawoptions(withcolor rouge);
    pointe(B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef SymetrieCentrale=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D,K;
    C=u*(0.9,0);
    D=u*(0.1,1);
    A=u*(0.2,0.3);
    B=symetrie(A,C,D);
    K=iso(A,B);
    marque_p:="plein";
    drawoptions(withcolor bleu);
    pointe(A,K);
    drawoptions(withcolor rouge);
    pointe(B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(K,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Rotation=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.3);
    B-A=u*(0.75,0.2);
    C-A=u*(0.2,0.6);
    marque_a:=marque_a/2;
    fill coloreangle(B,A,C) withcolor 0.8white withtransparency(1,0.3);
    trace coloreangle(B,A,C) withcolor 0.8white;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(C);
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Translation=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    ahlength:=ahlength*2;
    ahangle:=ahangle/2;
    A=u*(0.15,0.4);
    B-A=u*(0.6,0.4);
    C-A=u*(0,-0.35);
    D-C=B-A;
    drawarrow A--B withcolor 0.8white;
    drawarrow C--D;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(B);
    drawoptions(withcolor bleu);
    pointe(A);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Homothetie=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C;
    A=u*(0.15,0.2);
    B-A=u*(0.25,0.2);
    C=homothetie(B,A,3);
    draw A--C dashed (withdots scaled 0.25) withcolor 0.8white;
    marque_p:="plein";
    drawoptions(withcolor rouge);
    pointe(C);
    drawoptions(withcolor bleu);
    pointe(A,B);
    drawoptions();
    trace cercles(A,marque_r/10);
    trace cercles(B,marque_r/10);
    trace cercles(C,marque_r/10);
    drawoptions(withcolor 0.8white);
    labeloffset:=labeloffset*1.5;
    label.top(TEX("\small$k$"),iso(A,C));
    drawoptions();
    clip currentpicture to feuillet;
    );
  $
enddef;

%J
vardef Curseur=
  save $;
  picture $;
  $=image(
    pair A,B;
    A=u*(0,0.25);
    B=u*(1,0.25);
    label.top(TEX("$a=2$"),iso(A,B));
    currentpicture:=homothetie(currentpicture,0.5*u*(1,1),0.8u/abs(llcorner currentpicture-lrcorner currentpicture));
    fill (fullcircle scaled 0.1u) shifted iso(A,B);
    trace (unitsquare scaled u) withcolor gris;
    trace segment(A,B);
    );
  $
enddef;

vardef Texte=
  save $;
  picture $;
  $=image(
    label(TEX("ABC"),u*(0.5,0.5));
    currentpicture:=homothetie(currentpicture,0.5*u*(1,1),0.8u/abs(llcorner currentpicture-lrcorner currentpicture));
    trace (unitsquare scaled u) withcolor gris;
    );
  $
enddef;

vardef Image=
  save $;
  picture $;
  $=image(
    fill (unitsquare scaled u);
    fill polygone(u*(0.1,0.1),u*(0.9,0.1),u*(0.7,0.4),u*(0.5,0.2),u*(0.3,0.3)) withcolor white;
    currentpicture:=homothetie(currentpicture,0.5*u*(1,1),0.7);
    trace (unitsquare scaled u) withcolor gris;
    );
  $
enddef;

vardef Bouton=
  save $;
  picture $;
  $=image(
    path base,basea,baseb;
    base=unitsquare scaled u;
    basea=base xscaled 0.8 yscaled 0.55;
    baseb=basea shifted(center base-center basea);
    pair A,B,C,D;
    A=llcorner baseb;
    B=lrcorner baseb;
    C=urcorner baseb;
    D=ulcorner baseb;
    label(TEX("OK"),u*(0.5,0.5));
    currentpicture:=homothetie(currentpicture,0.5*u*(1,1),0.5u/abs(lrcorner currentpicture - llcorner currentpicture));
    trace 0.10[A,B]--0.90[A,B]{dir0}..{dir90}0.10[B,C]--0.90[B,C]{dir90}..{dir180}0.10[C,D]--0.90[C,D]{dir180}..{dir-90}0.10[D,A]--0.90[D,A]{dir-90}..{dir0}cycle;
    trace (unitsquare scaled u) withcolor gris;
    );
  $
enddef;
  
%K
vardef DeplacerGraphique=
  save $;
  picture $;
  $=image(
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    pair A,B,C,D;
    A=u*(0.1,0.5);
    B=u*(0.5,0.1);
    C=u*(0.9,0.5);
    D=u*(0.5,0.9);
    ahangle:=45;
    drawdblarrow A--C;
    drawdblarrow B--D;
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Agrandissement=
  save $;
  picture $;
  $=image(
    pair A,B,C,D;
    A=u*(0.3,0.7);
    B=u*(0.9,0);
    C=u*(1,0.1);
    D=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.25u);
    drawoptions(withpen pencircle scaled 1.25);
    trace cc;
    trace chemin(D,A) cutafter cc;
    fill polygone(B,C,D);
    drawoptions();
    trace (A+u*(-0.125,0))--(A+u*(0.125,0));
    trace (A+u*(0,-0.125))--(A+u*(0,0.125));
    currentpicture:=homothetie(currentpicture,u*(0.5,0.5),0.85);
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    clip currentpicture to feuillet;
    );
  $
enddef;

vardef Reduction=
  save $;
  picture $;
  $=image(
    pair A,B,C,D;
    A=u*(0.3,0.7);
    B=u*(0.9,0);
    C=u*(1,0.1);
    D=u*(0.5,0.5);
    path cc;
    cc=cercles(A,0.25u);
    drawoptions(withpen pencircle scaled 1.25);
    trace cc;
    trace chemin(D,A) cutafter cc;
    fill polygone(B,C,D);
    drawoptions();
    trace (A+u*(-0.125,0))--(A+u*(0.125,0));
    currentpicture:=homothetie(currentpicture,u*(0.5,0.5),0.85);
    feuillet:=(unitsquare scaled u);
    trace (unitsquare scaled u) withcolor gris;
    clip currentpicture to feuillet;
    );
  $
enddef;