exemples/cercles/cercles1.mp

   1 input gdd;
   2 input gdd-rep;
   3 input gdd-lbl;
   4 input gdd-tra;
   5 input svgnames;
   6
   7 lblPreambule := "\usepackage[frenchb]{babel}"       &
   8                 "\usepackage[garamond]{mathdesign}" &
   9                 "\usepackage{amsmath}";
  10
  11
  12 labeloffset := 6;
  13
  14 gddTaillePoint := 3;
  15 gddCouleurPoint := Yellow;
  16
  17
  18
  19
  20 beginfig(1);
  21
  22
  23  Repere(9,9,4,5,0.8,0.8);
  24  Axes;
  25  Debut;
  26   Axes;
  27   Graduations; Unites(1);
  28
  29   C1 = Cercle((1,1),3);
  30   C2 = Cercle((-1,-2),1);
  31
  32   P1 = IntersectionCercles(C1,C2);
  33   P2 = IntersectionCercles(C2,C1);
  34
  35   drawoptions(withcolor LightSlateGrey);
  36   trace C1;
  37   trace C2;
  38
  39   drawoptions();
  40   pointe Point(1,1);
  41   pointe Point(-1,-2);
  42   pointe P1;
  43   pointe P2;
  44   label.urt(TEX("\(P_1\)"),PtR(P1));
  45   label.top(TEX("\(P_2\)"),PtR(P2));
  46
  47  Fin;
  48
  49
  50 endfig;
  51
  52 end