_______________________________________________________________________________________________________________________________________
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N S   D E   B A S E   A   U N   A L B U M  :                                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Ce fichier contient toutes les fonctions                                                                       */
/*                  de base de gestion et de manipulation de                                                                         */
/*                  d'un album raster, quelle que soit la definition.                                                                */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xiii/mono_album$FON' :                                                                                         */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20091101095214).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M U L T I P L E X A G E   E N   C O L O N N E S   D ' U N   A L B U M  :                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

BFonctionP

DEFV(Common,DEFV(FonctionP,POINTERp(Amultiplexage_en_colonnes(imageR,albumA))))
DEFV(Argument,DEFV(image,imageR));
                                        /* Image Resultat, telle que : imageR[X][Y]=albumA[X][Y][Z].                                 */
DEFV(Argument,DEFV(album,albumA));
                                        /* Album Argument.                                                                           */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Int,INIT(Z,Zmin));
                                        /* Afin d'acceder aux pages de l'album 'albumA'.                                             */
     /*..............................................................................................................................*/
     begin_ligne
          Bblock
          begin_colonne
               Bblock
               store_point(Aload_point(albumA,X,Y,Z),imageR,X,Y,FVARIABLE);
                                        /* La colonne 'Y' de la page 'Z' de l'album 'albumA' donne la colonne 'Y' de l'image         */
                                        /* 'imageR'.                                                                                 */
               Eblock
          end_colonne

          INCR(Z,pasZ);
          EGAL(Z,MODU(Z,Zmin,Zmax));
                                        /* Changement de page de l'album 'albumA' modulo [Zmin,Zmax]...                              */
          Eblock
     end_ligne

     RETI(imageR);
     Eblock

EFonctionP

_______________________________________________________________________________________________________________________________________