/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S I M P L E   C O P I E   D ' U N   A L B U M  :                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/transformation_3D.11$I' :                                                                                  */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20180506081739).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#define   TRANSFORMATION_QUELCONQUE_D_UN_ALBUM(Atransformation,AFtransformation)                                                        \
                    Bblock                                                                                                              \
                    Test(IFET(EST_VRAI(les_imagesA_sont_standards)                                                                      \
                             ,EST_VRAI(les_imagesR_sont_standards)                                                                      \
                              )                                                                                                         \
                         )                                                                                                              \
                         Bblock                                                                                                         \
                         BDEFV(album,album_d_imagesA);                                                                                  \
                         BDEFV(album,album_d_imagesR);                                                                                  \
                                        /* Definition des albums d'images Argument et Resultat...                                    */ \
                                                                                                                                        \
                         CALS(dAnoir(album_d_imagesR));                                                                                 \
                                        /* Initialisation de l'image Resultat.                                                       */ \
                                                                                                                                        \
                         CALi(idAload_album(album_d_imagesA                                                                             \
                                           ,nom_albumA                                                                                  \
                                           ,nom_postfixe                                                                                \
                                           ,premiere_image                                                                              \
                                           ,pas_des_images                                                                              \
                                           ,nombre_de_chiffres                                                                          \
                                           ,FAUX                                                                                        \
                                           ,UNDEF                                                                                       \
                                           ,inverser_l_axe_OZ                                                                           \
                                           ,incomplet_axe_OZ                                                                            \
                                           ,incomplet_axe_OZ_valeur_standard                                                            \
                                            )                                                                                           \
                              );                                                                                                        \
                                        /* Chargement de l'album Argument...                                                         */ \
                                                                                                                                        \
                         Test(PAS_D_ERREUR(CODE_ERREUR))                                                                                \
                              Bblock                                                                                                    \
                              CALS(Atransformation(album_d_imagesR,album_d_imagesA));                                                   \
                                        /* Transformation quelconque...                                                              */ \
                                                                                                                                        \
                              Test(IL_FAUT(binariser_l_album))                                                                          \
                                   Bblock                                                                                               \
                                   BDEFV(album,album_d_imagesR_binarise);                                                               \
                                        /* Definition de l'album d'images Resultat binarise...                                       */ \
                                                                                                                                        \
                                   CALS(Abinarisation_generale(album_d_imagesR_binarise                                                 \
                                                              ,album_d_imagesR                                                          \
                                                              ,seuil                                                                    \
                                                              ,niveau_inferieur,niveau_superieur                                        \
                                                               )                                                                        \
                                        );                                                                                              \
                                   CALS(Amove(album_d_imagesR,album_d_imagesR_binarise));                                               \
                                        /* Binarisation de l'album d'images Resultat...                                              */ \
                                                                                                                                        \
                                   EDEFV(album,album_d_imagesR_binarise);                                                               \
                                        /* Definition de l'album d'images Resultat binarise...                                       */ \
                                   Eblock                                                                                               \
                              ATes                                                                                                      \
                                   Bblock                                                                                               \
                                   Eblock                                                                                               \
                              ETes                                                                                                      \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                                                                                                                                        \
                         CALi(dAupdate_album(nom_albumR                                                                                 \
                                            ,nom_postfixe                                                                               \
                                            ,premiere_image                                                                             \
                                            ,pas_des_images                                                                             \
                                            ,album_d_imagesR                                                                            \
                                            ,nombre_de_chiffres                                                                         \
                                            ,FAUX                                                                                       \
                                             )                                                                                          \
                              );                                                                                                        \
                                                                                                                                        \
                         EDEFV(album,album_d_imagesR);                                                                                  \
                         EDEFV(album,album_d_imagesA);                                                                                  \
                                        /* Definition des albums d'images Argument et Resultat...                                    */ \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         BDEFV(albumF,album_d_imagesA);                                                                                 \
                         BDEFV(albumF,album_d_imagesR);                                                                                 \
                                        /* Definition des albums d'images Argument et Resultat...                                    */ \
                                                                                                                                        \
                         CALS(dAFinitialisation(album_d_imagesR,FZERO));                                                                \
                                        /* Initialisation de l'album Resultat.                                                       */ \
                                                                                                                                        \
                         Test(EST_VRAI(les_imagesA_sont_standards))                                                                     \
                              Bblock                                                                                                    \
                              BDEFV(album,album_d_imagesA_standard);                                                                    \
                                        /* Definition de l'album d'images Argument...                                                */ \
                                                                                                                                        \
                              CALi(idAload_album(album_d_imagesA_standard                                                               \
                                                ,nom_albumA                                                                             \
                                                ,nom_postfixe                                                                           \
                                                ,premiere_image                                                                         \
                                                ,pas_des_images                                                                         \
                                                ,nombre_de_chiffres                                                                     \
                                                ,FAUX                                                                                   \
                                                ,UNDEF                                                                                  \
                                                ,inverser_l_axe_OZ                                                                      \
                                                ,incomplet_axe_OZ                                                                       \
                                                ,incomplet_axe_OZ_valeur_standard                                                       \
                                                 )                                                                                      \
                                   );                                                                                                   \
                                        /* Chargement de l'album Argument...                                                         */ \
                                                                                                                                        \
                              CALS(Astd_float_brutal(album_d_imagesA,album_d_imagesA_standard));                                        \
                                        /* Conversion de l'album Argument standard en un album non standard...                       */ \
                                                                                                                                        \
                              EDEFV(album,album_d_imagesA_standard);                                                                    \
                                        /* Definition de l'album d'images Argument...                                                */ \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              CALi(idAloadF_album(album_d_imagesA                                                                       \
                                                 ,nom_albumA                                                                            \
                                                 ,nom_postfixe                                                                          \
                                                 ,premiere_image                                                                        \
                                                 ,pas_des_images                                                                        \
                                                 ,nombre_de_chiffres                                                                    \
                                                 ,FAUX                                                                                  \
                                                 ,UNDEF                                                                                 \
                                                 ,inverser_l_axe_OZ                                                                     \
                                                 ,incomplet_axe_OZ                                                                      \
                                                 ,incomplet_axe_OZ_valeur_non_standard                                                  \
                                                  )                                                                                     \
                                   );                                                                                                   \
                                        /* Chargement de l'album Argument...                                                         */ \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                                                                                                                                        \
                         Test(PAS_D_ERREUR(CODE_ERREUR))                                                                                \
                              Bblock                                                                                                    \
                              CALS(AFtransformation(album_d_imagesR,album_d_imagesA));                                                  \
                                        /* Transformation quelconque...                                                              */ \
                              Test(IL_FAUT(binariser_l_album))                                                                          \
                                   Bblock                                                                                               \
                                   BDEFV(albumF,album_d_imagesR_binarise);                                                              \
                                        /* Definition de l'album d'images Resultat binarise...                                       */ \
                                                                                                                                        \
                                   CALS(AFbinarisation_generale(album_d_imagesR_binarise                                                \
                                                               ,album_d_imagesR                                                         \
                                                               ,Fseuil                                                                  \
                                                               ,Fniveau_inferieur,Fniveau_superieur                                     \
                                                                )                                                                       \
                                        );                                                                                              \
                                   CALS(AFmove(album_d_imagesR,album_d_imagesR_binarise));                                              \
                                        /* Binarisation de l'album d'images Resultat...                                              */ \
                                                                                                                                        \
                                   EDEFV(albumF,album_d_imagesR_binarise);                                                              \
                                        /* Definition de l'album d'images Resultat binarise...                                       */ \
                                   Eblock                                                                                               \
                              ATes                                                                                                      \
                                   Bblock                                                                                               \
                                   Eblock                                                                                               \
                              ETes                                                                                                      \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                                                                                                                                        \
                         Test(EST_VRAI(les_imagesR_sont_standards))                                                                     \
                              Bblock                                                                                                    \
                              BDEFV(album,album_d_imagesR_standard);                                                                    \
                                        /* Definition de l'album d'images Resultat...                                                */ \
                                                                                                                                        \
                              CALS(Afloat_std_brutal(album_d_imagesR_standard,album_d_imagesR));                                        \
                                        /* Conversion de l'album Resultat non standard en un album standard...                       */ \
                                                                                                                                        \
                              CALi(dAupdate_album(nom_albumR                                                                            \
                                                 ,nom_postfixe                                                                          \
                                                 ,premiere_image                                                                        \
                                                 ,pas_des_images                                                                        \
                                                 ,album_d_imagesR_standard                                                              \
                                                 ,nombre_de_chiffres                                                                    \
                                                 ,FAUX                                                                                  \
                                                  )                                                                                     \
                                   );                                                                                                   \
                                                                                                                                        \
                              EDEFV(album,album_d_imagesR_standard);                                                                    \
                                        /* Definition de l'album d'images Resultat...                                                */ \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              CALi(dAupdateF_album(nom_albumR                                                                           \
                                                  ,nom_postfixe                                                                         \
                                                  ,premiere_image                                                                       \
                                                  ,pas_des_images                                                                       \
                                                  ,album_d_imagesR                                                                      \
                                                  ,nombre_de_chiffres                                                                   \
                                                  ,FAUX                                                                                 \
                                                   )                                                                                    \
                                   );                                                                                                   \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                                                                                                                                        \
                         EDEFV(albumF,album_d_imagesR);                                                                                 \
                         EDEFV(albumF,album_d_imagesA);                                                                                 \
                                        /* Definition des albums d'images Argument et Resultat...                                    */ \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock