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

@figure;
  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 };
  ceOI = cercle( O , I )  { i };
  A = pointsur( ceOI , 46.21 )  { (0.13,-0.9) };
  var ang = anglev(IOA) { 0 };
  varsi z = [ang=180_20%,1,0] { 0 };
  texte1 = µ(z) texte( -5.2 , 4.2 ,"L'avion a fait un demi-tour")  { rouge , dec2 , car+3 , i };
  sIO = µ(z) segment( I , O )  { 6 , / , i };
  sOA = µ(z) segment( A , O )  { 6 , / , i };
  arcIOA = µ(z) arc( I , O , A )  { rouge , 2 , i };
  varsi z1 = [ang<179.8,[ang>0.2,1,0],0] { 0 };
  texte3 = µ(z1) texte( -5 , 8.4 ,"L'avion a fait moins d'un demi-tour")  { rouge , dec2 , car+3 , i };
  varsi z2 = [ang>180.2,1,0] { 0 };
  texte2 = µ(z2) texte( -5 , 8.4 ,"L'avion a fait plus d'un demi-tour")  { rouge , dec2 , car+3 , i };
  r_angleO = rotation( O , ang )  { noir };
  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 };