Fichier figure015.mp (figure 1) — Modifié le 23 Mars 2008 à 21 h 37

figure015.mp (figure 1)
Source

input geometriesyr16;
u:=6.25mm;
unit=1cm;
path arthur[];
arthur1=u*(0.5,2.2)..u*(0.15,1.8)..u*(0.15,1.4)..u*(0.15,1.4)..u*(-0.2,1.25)..%
u*(-0.3,1)..u*(-0.3,0.8)..u*(-0.1,0.5)..u*(-0.1,0.5)..u*(-0.6,1)..u*(-0.55,1.1)%
..u*(-0.6,1.25)..u*(-0.57,1.4)..u*(-0.75,1.4)..u*(-0.75,1.15)..u*(-1.2,1.4)..%
u*(-0.9,1.05)..u*(-1.3,1.2)..u*(-0.95,0.95)..u*(-1.35,1)..u*(-1,0.85)..u*(-1.3,0.8)%
..u*(-0.8,0.75)..u*(-0.5,0.25)..u*(-0.3,0.35)..u*(-0.5,0)..u*(-0.6,-0.6)..%
u*(-0.25,-1)..u*(-0.6,-1.7)..u*(-0.4,-2)..u*(0,-1)..u*(0,-1)..u*(0.6,-0.6)..%
u*(0.5,0.25)..u*(0.5,0.25)..u*(1.1,0.8)..u*(1.17,0.85)..u*(1.4,0.81)..u*(1.7,0.8)%
..u*(1.5,0.9)..u*(1.8,1)..u*(1.5,1.05)..u*(1.8,1.3)..u*(1.4,1.2)..u*(1.7,1.5)..%
u*(1.3,1.3)..u*(1.4,1.6)..u*(1.2,1.6)..u*(1.25,1.5)..u*(1.1,1.3)..u*(1,1.05)..%
u*(0.4,0.5)..u*(0.4,0.5)..u*(0.65,0.9)..u*(0.6,1.2)..u*(0.4,1.35)..u*(0.4,1.35)..cycle;
arthur1:=arthur1 shifted(u*(0,2.05));
arthur2=symetrie(arthur1,u*(0,0),u*(0,1));

figure(-unit,0,20unit,16unit);
path cc,cd;
pair O;
O=unit*(7.5,7.5);
marque_p:="plein";
nomme.bot(O);
marque_p:="non";
cc=cercles(O,5unit);
cd=cercles(O,3unit);
trace cc dashed evenly;
trace cd dashed evenly;
trace arthur1 shifted pointarc(cc,80);
remplis rotation(arthur1 shifted pointarc(cc,80),O,-30) withcolor bleu;
trace rotation(arthur1 shifted pointarc(cc,80),O,-30);
remplis rotation(arthur2 shifted pointarc(cc,80),O,50) withcolor bleu;
trace rotation(arthur2 shifted pointarc(cc,80),O,50);
remplis rotation(arthur1 shifted pointarc(cc,80),O,-120) withcolor bleu;
trace rotation(arthur1 shifted pointarc(cc,80),O,-120);
remplis rotation(arthur1 shifted pointarc(cc,80),O,90) withcolor bleu;
trace rotation(arthur1 shifted pointarc(cc,80),O,90);
remplis rotation(arthur2 shifted pointarc(cc,80),O,150) withcolor bleu;
trace rotation(arthur2 shifted pointarc(cc,80),O,150);
%cercle 2
remplis arthur1 shifted pointarc(cd,105) withcolor orange;
trace arthur1 shifted pointarc(cd,105);
remplis rotation(arthur1 shifted pointarc(cd,100),O,100) withcolor jaune;
trace rotation(arthur1 shifted pointarc(cd,100),O,100);
remplis rotation(arthur2 shifted pointarc(cd,100),O,180) withcolor jaune;
trace rotation(arthur2 shifted pointarc(cd,100),O,180);
remplis rotation(arthur1 shifted pointarc(cd,100),O,-100) withcolor jaune;
trace rotation(arthur1 shifted pointarc(cd,100),O,-100);
fin;

end