/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A F F I C H A G E   D ' U N   A L B U M   D ' I M A G E S  :                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*                    Cette commande affiche une sequence                                                                            */
/*                  d'images Argument.                                                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/album.04$I' :                                                                                              */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20010113104050).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A N S P O S I T I O N   D ' U N   A L B U M   D ' I M A G E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
          Test(EST_VRAI(les_images_sont_standards))
                                        /* Test introduit le 20091206102230...                                                       */
               Bblock
               CALi(dAload_album(album_d_images
                                ,nom_imageA
                                ,nom_postfixe
                                ,premiere_image
                                ,pas_des_images
                                ,nombre_de_chiffres
                                ,attendre_les_images_inexistantes
                                ,duree_d_attente_des_images_inexistantes
                                ,FAUX
                                 )
                    );
                                        /* Chargement de l'album Argument "standard"...                                              */
                                        /*                                                                                           */
                                        /* L'argument 'Inv' ('FAUX') a ete introduit le 20091125133834...                            */
               Eblock
          ATes
               Bblock
               BDEFV(albumF,album_d_images_non_standard);

               CALi(dAloadF_album(album_d_images_non_standard
                                 ,nom_imageA
                                 ,nom_postfixe
                                 ,premiere_image
                                 ,pas_des_images
                                 ,nombre_de_chiffres
                                 ,FAUX
                                 ,UNDEF
                                 ,FAUX
                                  )
                    );
                                        /* Chargement de l'album Argument "non standard" (introduit le 20091206102230).              */

               CALS(Afloat_std_brutal(album_d_images,album_d_images_non_standard));
                                        /* Conversion en un album non standard...                                                    */

               EDEFV(albumF,album_d_images_non_standard);
               Eblock
          ETes

          PERMUTATION_DES_DIMENSIONS(PERMUTATION_XYZ_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_XYZ(album_d_images_transpose,album_d_images);)
                                     );
          PERMUTATION_DES_DIMENSIONS(PERMUTATION_XZY_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_XZY(album_d_images_transpose,album_d_images);)
                                     );
          PERMUTATION_DES_DIMENSIONS(PERMUTATION_YZX_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_YZX(album_d_images_transpose,album_d_images);)
                                     );
          PERMUTATION_DES_DIMENSIONS(PERMUTATION_YXZ_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_YXZ(album_d_images_transpose,album_d_images);)
                                     );
          PERMUTATION_DES_DIMENSIONS(PERMUTATION_ZXY_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_ZXY(album_d_images_transpose,album_d_images);)
                                     );
          PERMUTATION_DES_DIMENSIONS(PERMUTATION_ZYX_DES_DIMENSIONS_D_UN_ALBUM
                                    ,BLOC(Apermutation_ZYX(album_d_images_transpose,album_d_images);)
                                     );
                                        /* Permutation eventuelle des dimensions...                                                  */

          Test(IFNE_chaine(nom_imageR,NOM_PIPE))
                                        /* Le 20140914113805, je me demande a quoi sert ce test en notant bien qu'il n'y a rien      */
                                        /* d'equivalent dans les '$K's qui generent des albums. Peut-etre pourrait-il etre ici       */
                                        /* supprime ?                                                                                */
               Bblock
               CALi(dAupdate_album(nom_imageR
                                  ,nom_postfixe
                                  ,premiere_image
                                  ,pas_des_images
                                  ,album_d_images_transpose
                                  ,nombre_de_chiffres
                                  ,FAUX
                                   )
                    );
                                        /* L'argument 'Inv' ('FAUX') a ete introduit le 20100624091610...                            */
               Eblock
          ATes
               Bblock
               PRINT_ATTENTION("l'album Resultat n'est pas genere");
                                        /* Introduit le 20140914113805 car, en effet, a cette date, je ne comprends pas a quoi       */
                                        /* sert le 'Test(...)' qui precede. Il est donc utile d'avertir si l'on passe par ici...     */
               Eblock
          ETes