exemples/cercles/cercles2.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 labeloffset := 6;
  12
  13 gddTaillePoint := 2;
  14 gddCouleurPoint := Yellow;
  15
  16
  17
  18 beginfig(1);
  19
  20  Repere(9,9,4,5,0.8,0.8);
  21  Axes;
  22  Debut;
  23   Axes;
  24   Graduations; Unites(1);
  25
  26   C1 = Cercle((1,1),3);
  27   C2 = Cercle((-1,-2),1);
  28
  29   T1 = TangenteCommuneExterieure(C1,C2);
  30   T2 = TangenteCommuneExterieure(C2,C1);
  31
  32   drawoptions(withcolor LightSlateGrey);
  33   trace C1;
  34   trace C2;
  35
  36   drawoptions(withcolor Olive);
  37   trace T1;
  38   trace T2;
  39
  40   drawoptions();
  41   pointe Point(1,1);
  42   pointe Point(-1,-2);
  43
  44  Fin;
  45
  46
  47 endfig;
  48
  49 end