/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E L A L I S T E D E S N I V E A U X */
/* D ' U N E I M A G E A P A R T I R D E D E U X */
/* L I S T E S D E C O O R D O N N E E S C A R T E S I E N N E S : */
/* */
/* */
/* Note : */
/* */
/* Le 20161114155346, je note qu'une */
/* utilisation "neutre" possible est la */
/* suivante : */
/* */
/* */
/* :Debut_listG_load_image__store_image: */
/* */
/* $Z $xci/valeurs_imag$X \ */
/* $Z denormalisees=VRAI \ */
/* $Z premiere=1 \ */
/* $Z derniere=$tailleI \ */
/* $Z PX=1 \ */
/* $Z PY=0 \ */
/* $Z $formatI \ */
/* $Z >& $xTV/COORDONNEES$COORD_X */
/* $Z $xci/valeurs_imag$X \ */
/* $Z denormalisees=VRAI \ */
/* $Z premiere=1 \ */
/* $Z derniere=$tailleI \ */
/* $Z PX=0 \ */
/* $Z PY=1 \ */
/* $Z $formatI \ */
/* $Z > $xTV/COORDONNEES$COORD_Y */
/* $Z */
/* $Z $xrv/load_image$X \ */
/* $Z A=$xTV/IMAGE.1 \ */
/* $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ */
/* $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ */
/* $Z $formatI \ */
/* $Z > $xTV/COORDONNEES$LUMIN */
/* $Z $xrv/store_image$X \ */
/* $Z ne=0 \ */
/* $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ */
/* $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ */
/* $Z LISTE_NIVEAU=$xTV/COORDONNEES$LUMIN \ */
/* $Z R=$xTV/IMAGE.2 \ */
/* $Z Ndenormalises=VRAI \ */
/* $Z Xdenormalisees=VRAI \ */
/* $Z Ydenormalisees=VRAI \ */
/* $Z $formatI */
/* */
/* :Fin_listG_load_image__store_image: */
/* */
/* */
/* A la fin de ce processus, les deux images */
/* '$xTV/IMAGE.1/ et '$xTV/IMAGE.2' doivent */
/* evidemment etre identiques... */
/* */
/* */
/* Author of '$xrv/load_image$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20140430203720). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
#include image_image_IMAGESF_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R S I M P L I C I T E S D E S P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define LISTER_TOUTE_L_IMAGE \
FAUX \
/* Afin de pouvoir lister globalement l'image (introduit le 20221024102324, la valeur par */ \
/* defaut garantissant la compatibilite anterieure...). */
#define LES_COORDONNEES_X_SONT_NORMALISEES \
FAUX
#define LES_COORDONNEES_Y_SONT_NORMALISEES \
FAUX
#define LES_NIVEAUX________SONT_NORMALISES_ \
FAUX
/* Afin d'eviter des problemes d'arrondis lors des operations de denormalisation... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S F I C H I E R S : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define X_IMPLICITE \
FZERO
#define Y_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_X,liste_initiale_des_X);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y,liste_initiale_des_Y);
/* Definition en memoire des fichiers de coordonnees cartesiennes. */
#define ELEMENT_DU_FICHIER_LISTE_X(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_X,index)
#define ELEMENT_DU_FICHIER_LISTE_Y(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Y,index)
/* Acces a un element courant des fichiers de coordonnees cartesiennes. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D ' U N N I V E A U : */
/* */
/*************************************************************************************************************************************/
#define EDITION_DU_NIVEAU_DU_POINT_COURANT(coordonnee_X_denormalisee,coordonnee_Y_denormalisee) \
Bblock \
DEFV(genere_p,INIT(niveau_courant_denormalise,NIVEAU_UNDEF)); \
DEFV(Float,INIT(niveau_courant_normalise,FLOT__NIVEAU_UNDEF)); \
/* Definition du niveau courant... */ \
\
Test(EST_VRAI(les_images_sont_standards)) \
Bblock \
EGAL(niveau_courant_denormalise \
,load_point_valide(ImageA,coordonnee_X_denormalisee,coordonnee_Y_denormalisee) \
); \
\
Test(EST_VRAI(les_niveaux________sont_normalises_)) \
Bblock \
EGAL(niveau_courant_normalise,______NORMALISE_NIVEAU(niveau_courant_denormalise)); \
Eblock \
ATes \
Bblock \
EGAL(niveau_courant_normalise,FLOT(niveau_courant_denormalise)); \
Eblock \
ETes \
Eblock \
ATes \
Bblock \
EGAL(niveau_courant_normalise \
,loadF_point_valide(IFmageA,coordonnee_X_denormalisee,coordonnee_Y_denormalisee) \
); \
Eblock \
ETes \
\
EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(niveau_courant_normalise); \
/* Introduit sous cette forme le 20160804095801... */ \
Eblock \
/* Procedure introduite le 20221024102324... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E L A L I S T E D E S N I V E A U X */
/* D ' U N E I M A G E A P A R T I R D E D E U X */
/* L I S T E S D E C O O R D O N N E E S C A R T E S I E N N E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(CHAR,INIT(POINTERc(nom_imageA),NOM_PIPE_Local));
/* Nom de l'image a "etudier"... */
DEFV(Logical,INIT(lister_toute_l_image,LISTER_TOUTE_L_IMAGE));
/* Afin de pouvoir lister globalement l'image (introduit le 20221024102324, la valeur par */
/* defaut garantissant la compatibilite anterieure...). */
DEFV(Logical,INIT(les_coordonnees_X_sont_normalisees,LES_COORDONNEES_X_SONT_NORMALISEES));
DEFV(Logical,INIT(les_coordonnees_Y_sont_normalisees,LES_COORDONNEES_Y_SONT_NORMALISEES));
DEFV(Logical,INIT(les_niveaux________sont_normalises_,LES_NIVEAUX________SONT_NORMALISES_));
/* Afin d'eviter des problemes d'arrondis lors des operations de denormalisation... */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
,BLOC(VIDE;)
,BLOC(Bblock
PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
Eblock
)
);
PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;
PROKESF_ARGUMENT_FICHIER("LISTE_X="
,fichier_LISTE_X
,liste_initiale_des_X
,X_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Y="
,fichier_LISTE_Y
,liste_initiale_des_Y
,Y_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_L("standard=",les_images_sont_standards);
GET_ARGUMENT_L("toute_image=""ti=""all=",lister_toute_l_image);
/* Option introduite le 20221024102324... */
GET_ARGUMENT_L("Xnormalisees=""Xnorm=""Xn=",les_coordonnees_X_sont_normalisees);
GET_ARGUMENT_N("Xdenormalisees=""Xdenorm=""Xdn=",les_coordonnees_X_sont_normalisees);
GET_ARGUMENT_L("Ynormalisees=""Ynorm=""Yn=",les_coordonnees_Y_sont_normalisees);
GET_ARGUMENT_N("Ydenormalisees=""Ydenorm=""Ydn=",les_coordonnees_Y_sont_normalisees);
GET_ARGUMENT_L("Nnormalises=""Nnorm=""Nn=",les_niveaux________sont_normalises_);
GET_ARGUMENT_N("Ndenormalises=""Ndenorm=""Ndn=",les_niveaux________sont_normalises_);
)
);
Test(EST_VRAI(les_images_sont_standards))
Bblock
Eblock
ATes
Bblock
Test(EST_VRAI(les_niveaux________sont_normalises_))
Bblock
PRINT_ATTENTION("la normalisation des niveaux n'a de sens que pour les images standards");
EGAL(les_niveaux________sont_normalises_,FAUX);
/* Message introduit le 20140502091851... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ETes
Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA,IFmageA,nom_imageA))))
Bblock
Test(IL_FAUT(lister_toute_l_image))
/* Test introduit le 20221024102324... */
Bblock
begin_image
Bblock
EDITION_DU_NIVEAU_DU_POINT_COURANT(X,Y);
Eblock
end_image
Eblock
ATes
Bblock
DoIn(index
,PREMIER_ELEMENT_D_UN_FICHIER
,DERNIER_ELEMENT_D_UN_FICHIER
,I
)
Bblock
DEFV(Float,INIT(coordonnee_X_normalisee,ELEMENT_DU_FICHIER_LISTE_X(index)));
DEFV(Float,INIT(coordonnee_Y_normalisee,ELEMENT_DU_FICHIER_LISTE_Y(index)));
/* Recuperation des coordonnees normalisees {X,Y} courantes dans les fichiers. */
DEFV(Int,INIT(coordonnee_X_denormalisee,UNDEF));
DEFV(Int,INIT(coordonnee_Y_denormalisee,UNDEF));
/* Coordonnees denormalisees {X,Y} courantes dans les fichiers. */
Test(EST_VRAI(les_coordonnees_X_sont_normalisees))
Bblock
EGAL(coordonnee_X_denormalisee,SUPER_cDENORMALISE_OX(coordonnee_X_normalisee));
/* Recuperation des coordonnees denormalisees {X,Y} courantes dans les fichiers. */
Eblock
ATes
Bblock
EGAL(coordonnee_X_denormalisee,coordonnee_X_normalisee);
/* Les coordonnees 'X' sont supposees deja denormalisees. */
Eblock
ETes
Test(EST_VRAI(les_coordonnees_Y_sont_normalisees))
Bblock
EGAL(coordonnee_Y_denormalisee,SUPER_cDENORMALISE_OY(coordonnee_Y_normalisee));
/* Recuperation des coordonnees denormalisees {X,Y} courantes dans les fichiers. */
Eblock
ATes
Bblock
EGAL(coordonnee_Y_denormalisee,coordonnee_Y_normalisee);
/* Les coordonnees 'Y' sont supposees deja denormalisees. */
Eblock
ETes
EDITION_DU_NIVEAU_DU_POINT_COURANT(coordonnee_X_denormalisee,coordonnee_Y_denormalisee);
/* Mis sous cette forme le 20221024102324... */
Eblock
EDoI
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
lGENERATION_D_UN_FICHIER(liste_initiale_des_Y,Y_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_X,X_IMPLICITE);
RETU_Commande;
Eblock
ECommande