/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        O P E R A T I O N   D E   S I G N A T U R E  :                                                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/signature.11$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20001102152358).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P R O C E D U R E S   U T I L E S  :                                                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   gNOM_D_UNE_COMPOSANTE(nom_image,nom_de_la_composante,nom_de_la_couleur)                                                       \
                    COND(IL_FAUT(recuperer_une_image_en_vraies_couleurs)                                                                \
                        ,chain_Aconcaten2_sauf_nom_pipe(nom_image,nom_de_la_couleur)                                                    \
                        ,nom_de_la_composante                                                                                           \
                         )
#define   NOM_D_UNE_COMPOSANTE(nom_de_la_composante,nom_de_la_couleur)                                                                  \
                    gNOM_D_UNE_COMPOSANTE(nom_imageA,nom_de_la_composante,nom_de_la_couleur)                                            \
                                        /* Nom d'une composante chromatique a charger. La procedure 'gNOM_D_UNE_COMPOSANTE(...)'     */
                                        /* a ete introduite le 20021231173859 pour 'v $xci/sequence$K gNOM_D_UNE_COMPOSANTE'.        */

#define   SIGNATURE_GENERALE(composante)                                                                                                \
                    Bblock                                                                                                              \
                    Test(IL_FAUT(signer))                                                                                               \
                         Bblock                                                                                                         \
                         Test(IL_FAUT(signer_avec_une_estampille))                                                                      \
                              Bblock                                                                                                    \
                              CALS(Isignature_invisible(composante                                                                      \
                                                       ,composante                                                                      \
                                                       ,ADRESSE(emplacement_de_la_signature_invisible)                                  \
                                                       ,lisible                                                                         \
                                                        )                                                                               \
                                   );                                                                                                   \
                                        /* Cas de l'estampillage...                                                                  */ \
                              Eblock                                                                                                    \
                         ATes                                                                                                           \
                              Bblock                                                                                                    \
                              SIGNATURE(composante);                                                                                    \
                                        /* Cas de la signature "standard"...                                                         */ \
                              Eblock                                                                                                    \
                         ETes                                                                                                           \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Signature d'une image ou d'une composante d'image...                                      */