@options;
  etat("a",{trace},A);
  etat("t",{v},sIO,sOA,arcIOA,texte1,dOI);

@enonce;
- Bouger A
- etat A pour en voir la trace
- etat T pour afficher les éléments de rotation

@figure;
//avion original;
  O = point( 0 , 0 )  { fixe };
  I = point( 5.75 , 6 )  { fixe , sansnom };
  B = point( 5.25 , 4 )  { fixe , i };
  C = point( 3.5 , 3 )  { fixe , i };
  D = point( 3.5 , 2.5 )  { fixe , i };
  E = point( 5 , 3 )  { fixe , i };
  F = point( 5.5 , 3 )  { fixe , i };
  G = point( 5.5 , 1 )  { fixe , i };
  H = point( 5 , 0.5 )  { fixe , i };
  J = point( 5 , 0 )  { fixe , i };
  K = point( 6.5 , 0 )  { fixe , i };
  L = point( 6.5 , 0.5 )  { fixe , i };
  M = point( 6 , 1 )  { fixe , i };
  N = point( 6 , 3 )  { fixe , i };
  P = point( 6.5 , 3 )  { fixe , i };
  Q = point( 8 , 2.5 )  { fixe , i };
  R = point( 8 , 3 )  { fixe , i };
  S = point( 6.25 , 4 )  { fixe , i };
  polyIBCDEFGHJKLMNPQRS = polygone( I , B , C , D , E , F , G , H , J , K , L , M , N , P , Q , R , S  )  { rouge , 2 , plein100 };
//A : point de traction pour tourner;
  ceOI = cercle( O , I )  { i };
  A = pointsur( ceOI , 46.27 )  { (0.13,-0.9) };
//rotation pour image de l'avion;
  var ang = anglev(IOA) { 359.7456090671 };
  r_angleO = rotation( O , ang )  { noir };
//infos : rayons, arc et angle;
  dOI = droite( O , I )  { vert , sansnom , i };
  sIO = segment( I , O )  { 6 , / , i };
  sOA = segment( A , O )  { 6 , / , i };
  arcIOA = arc( I , O , A )  { rouge , 2 , i };
  texte1 = texte( -10 , 8.5 ,"L'avion a tourné de $ang$ °")  { rouge , dec0 , car+2,i };
//avion image;
  B' = image( r_angleO , B )  { i };
  C' = image( r_angleO , C )  { i };
  D' = image( r_angleO , D )  { i };
  E' = image( r_angleO , E )  { i };
  F' = image( r_angleO , F )  { i };
  G' = image( r_angleO , G )  { i };
  H' = image( r_angleO , H )  { i };
  J' = image( r_angleO , J )  { i };
  K' = image( r_angleO , K )  { i };
  L' = image( r_angleO , L )  { i };
  M' = image( r_angleO , M )  { i };
  N' = image( r_angleO , N )  { i };
  P' = image( r_angleO , P )  { i };
  Q' = image( r_angleO , Q )  { i };
  R' = image( r_angleO , R )  { i };
  S' = image( r_angleO , S )  { i };
  poly2 = polygone( A , B' , C' , D' , E' , F' , G' , H' , J' , K' , L' , M' , N' , P' , Q' , R' , S'  )  { rouge , 2 , plein100 };