#debug "\nCreation de l'Allee .........\n"

#declare Allee=
union{
   #declare X_Position = 1;
   #declare Y_Position = 1;
      object{A_Brique      translate <X_Position + 12,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 34,0,Y_Position>}
   #declare Y_Position = Y_Position + 12;
      object{A12_Brique          translate <X_Position + 12,0,Y_Position>}
      object{V12_Joint_Allee     translate <X_Position + 12,0,Y_Position - 2>}
      object{H_Joint_Allee       translate <X_Position + 22,0,Y_Position>}
      object{A12_Brique          translate <X_Position + 24,0,Y_Position>}
      object{H_Joint_Allee       translate <X_Position + 34,0,Y_Position>}
      object{V12_Joint_Allee_Fin translate <X_Position + 22,0,Y_Position - 2>}
   #declare Y_Position = Y_Position + 12;

      object{A12_Brique    translate <X_Position     ,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 10,0,Y_Position>}
      object{A_Brique      translate <X_Position + 12,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 34,0,Y_Position>}
      object{V12_Joint_Allee     translate <X_Position + 12,0,Y_Position - 2>}
      object{V12_Joint_Allee_Fin translate <X_Position + 22,0,Y_Position - 2>}

   #declare Y_Position = Y_Position + 12;
      object{A_Brique      translate <X_Position     ,0,Y_Position>}
      object{V_Joint_Allee translate <X_Position     ,0,Y_Position - 2>}
      object{H_Joint_Allee translate <X_Position + 22,0,Y_Position>}
      object{A12_Brique    translate <X_Position + 24,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 34,0,Y_Position>}
      object{V12_Joint_Allee_Fin translate <X_Position  + 22   ,0,Y_Position - 2>}
   #declare Y_Position = Y_Position + 12;



   #declare Compteur = 1;
   #while (Compteur < 6)
      object{A12_Brique    translate <X_Position     ,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 10,0,Y_Position>}
      object{V_Joint_Allee translate <X_Position  ,0,Y_Position - 2>}
      object{A_Brique      translate <X_Position + 12,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 34,0,Y_Position>}
      object{V12_Joint_Allee_Fin translate <X_Position + 22 ,0,Y_Position - 2>}
   #declare Y_Position = Y_Position + 12;
      object{A_Brique      translate <X_Position     ,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 22,0,Y_Position>}
      object{V12_Joint_Allee translate <X_Position     ,0,Y_Position - 2>}
      #if (Compteur = 5 )
         object{V_Joint_Allee translate <X_Position  ,0,Y_Position + 10>}
      #end
      object{A12_Brique    translate <X_Position + 24,0,Y_Position>}
      object{H_Joint_Allee translate <X_Position + 34,0,Y_Position>}
      object{V_Joint_Allee_Fin translate <X_Position + 10,0,Y_Position - 2>}
       #if (Compteur = 5 )
         object{V12_Joint_Allee_Fin translate <X_Position + 22,0,Y_Position + 10>}
      #end
  #declare Y_Position = Y_Position + 12;
   #declare Compteur = Compteur + 1;
   #end
     }
