Retour

Source : panthere.mp

Animation flash

panthere.mp
prologues:=2;
input geometriesyr16
%1
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair A,B,C,F;
A=pp(0,0);
B=pp(-2,2);
C=pp(2,2);
F=pp(0,8);
path cc[];
cc1=cercles(B,C);
cc2=cercles(C,B);
cc3=cercles(A,2.5u);
cc14=cercles(F,3.5u);
marque_p:="plein";
pointe(A,B,C,F);
drawoptions(withcolor violet);
trace cc1;trace cc2;
drawoptions(dashed evenly withcolor gris);
trace cc3;trace cc14;
drawoptions();
fin;
%2
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,F);
trace cc1;trace cc2;
drawoptions(withcolor violet);
trace cc3 cutbefore (subpath(length cc1/2,3*length cc1/4) of cc1) cutafter cc2;
drawoptions(dashed evenly withcolor gris);
trace cc14;
drawoptions();
fin;
%3
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,F);
trace cc1;trace cc2;
trace cc3 cutbefore (subpath(length cc1/2,3*length cc1/4) of cc1) cutafter cc2;
drawoptions(withcolor violet);
trace cc14 cutbefore cc2 cutafter cc1;
drawoptions(dashed evenly withcolor gris);
drawoptions();
picture etape[];
etape1=image(
  trace cc1;trace cc2;
  trace cc3 cutbefore (subpath(length cc1/2,3*length cc1/4) of cc1) cutafter cc2;
  trace cc14 cutbefore cc2 cutafter cc1;
  );
fin;
%4
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair D,E,K,L;
D=pp(-4,10);
E=pp(4,10);
K=pp(-3,14);
L=pp(3,14);
pointe(D,E,K,L);
cc4=cercles(D,4.5u);
cc5=cercles(E,4.5u);
cc8=cercles(K,2.5u);
cc9=cercles(L,2.5u);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc5;trace cc8;trace cc9;
drawoptions();
fin;
%5
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(D,E,K,L);
trace etape1;
drawoptions(withcolor violet);
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
drawoptions(dashed evenly withcolor gris);
trace cc5;trace cc8;trace cc9;
drawoptions();
fin;
%6
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(D,E,K,L);
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
drawoptions(withcolor violet);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
drawoptions(dashed evenly withcolor gris);
trace cc8;trace cc9;
drawoptions();
fin;
%7
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair I,J;
I=pp(-10,9);
J=pp(10,9);
pointe(K,L,I,J,cc1 intersectionpoint demidroite(B,I),cc2 intersectionpoint demidroite(C,J));
cc6=cercles(I,cc1 intersectionpoint demidroite(B,I));
cc7=cercles(J,cc2 intersectionpoint demidroite(C,J));
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc8;trace cc9;trace cc6;trace cc7;
trace demidroite(B,I);
trace demidroite(C,J);
drawoptions();
fin;
%8
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(K,L,I,J,cc1 intersectionpoint demidroite(B,I),cc2 intersectionpoint demidroite(C,J));
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
drawoptions(withcolor violet);
trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
drawoptions(dashed evenly withcolor gris);
trace cc8;trace cc9;trace cc7;
trace demidroite(B,I);
trace demidroite(C,J);
drawoptions();
fin;
%9
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(K,L,I,J,cc1 intersectionpoint demidroite(B,I),cc2 intersectionpoint demidroite(C,J));
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
drawoptions(withcolor violet);
trace cc7 cutbefore cc5 cutafter segment(cc2 intersectionpoint demidroite(C,J),cc2 intersectionpoint demidroite(C,J));
drawoptions(dashed evenly withcolor gris);
trace cc8;trace cc9;
trace demidroite(B,I);
trace demidroite(C,J);
drawoptions();
fin;
%10
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(K,L,I,J,cc1 intersectionpoint demidroite(B,I),cc2 intersectionpoint demidroite(C,J));
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
trace cc7 cutbefore cc5 cutafter segment(cc2 intersectionpoint demidroite(C,J),cc2 intersectionpoint demidroite(C,J));
drawoptions(withcolor violet);
trace cc8 cutbefore cc6 cutafter cc6;
drawoptions(dashed evenly withcolor gris);
trace cc9;
trace demidroite(B,I);
trace demidroite(C,J);
drawoptions();
fin;
%11
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(K,L,I,J,cc1 intersectionpoint demidroite(B,I),cc2 intersectionpoint demidroite(C,J));
trace etape1;
trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
trace cc5 cutafter cc8;
trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
trace cc7 cutbefore cc5 cutafter segment(cc2 intersectionpoint demidroite(C,J),cc2 intersectionpoint demidroite(C,J));
trace cc8 cutbefore cc6 cutafter cc6;
drawoptions(withcolor violet);
trace symetrie(cc8 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
drawoptions(dashed evenly withcolor gris);
trace demidroite(B,I);
trace demidroite(C,J);
drawoptions();
etape2=image(
  trace etape1;
  trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
  trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
  trace cc5 cutafter cc8;
  trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
  trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
  trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
  trace cc7 cutbefore cc5 cutafter segment(cc2 intersectionpoint demidroite(C,J),cc2 intersectionpoint demidroite(C,J));
  trace cc8 cutbefore cc6 cutafter cc6;
  trace symetrie(cc8 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
  );
fin;
%etape3 fin des yeux
%12
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair O,P;
O=pp(-3,15);
P=pp(3,15);
cc10=cercles(O,3u);
cc11=cercles(P,3u);
pointe(O,P);
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc10;trace cc11;
drawoptions();
fin;
%13
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(O,P);
trace etape2;
drawoptions(withcolor violet);
trace cc10 cutbefore cc6 cutafter cc6;
drawoptions(dashed evenly withcolor gris);
trace cc11;
drawoptions();
fin;
%14
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(O,P);
trace etape2;
trace cc10 cutbefore cc6 cutafter cc6;
drawoptions(withcolor violet);
trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%15
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(F);
cc12=cercles(F,3.5u);
trace etape2;
trace cc10 cutbefore cc6 cutafter cc6;
trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc12;
drawoptions();
fin;
%16
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(F);
trace etape2;
trace cc10 cutbefore cc6 cutafter cc6;
trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
drawoptions(withcolor violet);
trace cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(dashed evenly withcolor gris);
trace cc12;
drawoptions();
fin;
%17
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(F);
trace etape2;
trace cc10 cutbefore cc6 cutafter cc6;
trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
trace cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(withcolor violet);
trace symetrie(cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7),A,A+u*(0,1));
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape3=image(
  trace etape2;
  trace cc10 cutbefore cc6 cutafter cc6;
  trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
  trace cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
  trace symetrie(cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7),A,A+u*(0,1));
  );
fin;
%etape4:oreilles
%18
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair G,H;
H=pp(-11,16);
G=pp(11,16);
cc15=cercles(G,2.5u);
cc16=cercles(H,2.5u);
pointe(G,H);
trace etape3;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;
drawoptions();
fin;
%19
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(G,H);
trace etape3;
drawoptions(withcolor violet);
trace cc16 cutbefore cc4 cutafter cc4;
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;
drawoptions();
fin;
%20
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(G,H);
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
drawoptions(withcolor violet);
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%21
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair M,N;
M=pp(-12,14);
N=pp(12,14);
cc17=cercles(N,3u);
cc18=cercles(M,3u);
pointe(M,N);
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc18;
drawoptions();
fin;
%22
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(M,N);
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
drawoptions(withcolor violet);
trace cc18 cutbefore cc4 cutafter cc16;
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc18;
drawoptions();
fin;
%23
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
pointe(M,N);
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
trace cc18 cutbefore cc4 cutafter cc16;
drawoptions(withcolor violet);
trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape4=image(
  trace etape3;
  trace cc16 cutbefore cc4 cutafter cc4;
  trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
  trace cc18 cutbefore cc4 cutafter cc16;
  trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
  );
fin;
%24
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair Q;
Q=pp(0,-6);
cc20=cercles(Q,2.5u);
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
trace cc18 cutbefore cc4 cutafter cc16;
trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc20;
drawoptions();
fin;
%25
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
trace cc18 cutbefore cc4 cutafter cc16;
trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
drawoptions(withcolor violet);
trace cc20 cutafter demidroite(pp(2,-5),pp(2,0));
drawoptions(dashed evenly withcolor gris);
trace cc20;
drawoptions();
fin;
%26
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
trace cc18 cutbefore cc4 cutafter cc16;
trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
trace cc20 cutafter demidroite(pp(2,-5),pp(2,0));
drawoptions(withcolor violet);
trace cc20 cutbefore demidroite(pp(-2,-5),pp(-2,0));
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%27
figure(0,0,17u,14u);
trace grille(0.5) withcolor blanc;
origine((17,6));
trace etape3;
trace cc16 cutbefore cc4 cutafter cc4;
trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
trace cc18 cutbefore cc4 cutafter cc16;
trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
trace cc20 cutafter demidroite(pp(2,-5),pp(2,0));
trace cc20 cutbefore demidroite(pp(-2,-5),pp(-2,0));
etape5=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,17u,14u);
  trace etape5;
  fin;
endfor;
end