Script
Retour

@options;

@figure;
 A = point(0.5,-0.5)  {croix0,fixe,sansnom};
  B = point(7.93,-0.5)  {fixe,i};
  dAB =droite(A,B)  {i};
  cerayA3 =cerclerayon(A,3)  {i};
  C2 =intersection(dAB,cerayA3,2)  {i};
  C =intersection(dAB,cerayA3,1)  {rond1,sansnom};
  perpCdAB =perpendiculaire(C,dAB)  {i};
  perpAdAB =perpendiculaire(A,dAB)  {i};
  D2 =intersection(perpAdAB,cerayA3,1)  {i};
  D =intersection(perpAdAB,cerayA3,2)  {croix0,sansnom};
  perpDperpAdAB =perpendiculaire(D,perpAdAB)  {i};
  E =intersection(perpDperpAdAB,perpCdAB)  {croix0,sansnom};
  polyACED =polygone(A,C,E,D)  {marron,plein50};
  W = point(1,-1.6)  {croix0,fixe,sansnom};
  texte1 =texte(W,"Batiment")  {marronfonce,dec2,car+2,gras};
  J = point(1.45,-1.8)  {croix0,fixe,sansnom};
  L = point(1.55,-1.7)  {croix0,fixe,sansnom};
  sJL =segment(J,L)  {marronfonce};
  O = point(1.65,-1.8)  {croix0,fixe,sansnom};
  sLO =segment(L,O)  {marronfonce};
  cerayC6 =cerclerayon(C,6)  {i};
  G =intersection(perpCdAB,cerayC6,1)  {i};
  G2 =intersection(perpCdAB,cerayC6,2)  {i};
  sCG =segment(C,G)  {i};
  sCH =segment(C,H)  {i};
  a =entier(0,0,179,1)  {noir,anime,(6.83,-17.03)};
  r_angleC =rotation(C,a)  {noir};
  var b =a-90 {-90};
  r_angleA =rotation(A,b)  {noir};
  G' =image(r_angleC,G)  {(0,-1.07),i};
  sCG' =segment(C,G')  {i};
  cerayC5.8 =cerclerayon(C,5.8)  {i};
  F =intersection(sCG,cerayC5.8,1)  {i};
  F2 =intersection(sCG,cerayC5.8,2)  {i};
  c =entier(0,0,89,1)  {noir,anime,(6.82,-17.8)};
  r_angleC1 =rotation(C,c)  {noir};
  F' =image(r_angleC1,F)  {i};
  cerayF'0.2 =cerclerayon(F',0.2)  {i};
  M =intersection(sCG',cerayF'0.2,1)  {noir,trace,rond2,sansnom,(-1,-0.03)};
  M2 =intersection(sCG',cerayF'0.2,2)  {i};
  H2 =intersection(dAB,cerayC6,1)  {i};
  H =intersection(dAB,cerayC6,2)  {i};
  sAH =segment(A,H)  {i};
  H' =image(r_angleA,H)  {i};
  sAH' =segment(A,H')  {i};
  cerayA2.8 =cerclerayon(A,2.8)  {i};
  K =intersection(sAH,cerayA2.8,1)  {i};
  K2 =intersection(sAH,cerayA2.8,2)  {i};
  r_angleA1 =rotation(A,c)  {noir};
  K' =image(r_angleA1,K)  {i};
  cerayK'0.2 =cerclerayon(K',0.2)  {i};
  N =intersection(sAH',cerayK'0.2,1)  {noir,trace,rond2,sansnom,(-1,-0.03)};
  N2 =intersection(sAH',cerayK'0.2,2)  {i};
  sCM =segment(C,M)  {2};
  polyCANA =polygone(C,A,N,A)  {2};
  I = point(3.5,1.3)  {fixe,i};
  paraIperpCdAB =parallele(I,perpCdAB)  {i};
  P = point(3.52,-11);
  Q = point(3.52,11);
  R = point(3.68,11);
  S = point(3.68,-11);
  polyQRSP =polygone(Q,R,S,P)  {marron,plein50};
  texte2 =texte(M,"Le Chien")  {noir,(-2.7,-0.8),dec2,car+1,gras};
  texte3 =texte(N,"Le Chien")  {noir,(-2.7,-0.8),dec2,car+1,gras};
  U = point(4.5,-5)  {croix0,fixe,sansnom};
  V = point(-2.5,-5)  {croix0,fixe,sansnom};
  texte4 =texte(U,"La rue")  {grisfonce,dec2,car+2,gras};
  texte5 =texte(V,"Le jardin")  {vertfonce,dec2,car+2,gras};


@config ;
couleurfonddessin=0xceddff ;
boutons=animation ;


Retour