/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N 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 : */
/* */
/* */
/* Nota : */
/* */
/* Ce programme est une generalisation de */
/* 'v $xci/S_point$K' pour 'v $xiirk/.SYRA.F1.1.$U'... */
/* Il s'agit evidemment d'une version tres simplifiee */
/* de 'v $xrv/store_image$K'... */
/* */
/* */
/* Author of '$xrv/S_points$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20170920103713). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 LES_COORDONNEES_X_SONT_NORMALISEES \
FAUX
#define LES_COORDONNEES_Y_SONT_NORMALISEES \
FAUX
#define LES_NIVEAUX_______SONT_NORMALISES_ \
FAUX
#define EDITER_LE_MESSAGE_DES_HORS_BORNES_NATURELLES \
VRAI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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. */
#define NIVEAU_IMPLICITE \
FLOT__BLANC
gGENERATION_D_UN_FICHIER(fichier_LISTE_NIVEAU,liste_initiale_des_NIVEAU);
/* Definition en memoire du fichier des niveaux... */
#define ELEMENT_DU_FICHIER_LISTE_NIVEAU(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_NIVEAU,index)
/* Acces a un element courant du fichier des niveaux... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N 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_imageR),NOM_PIPE_Local));
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE_Local));
/* Nom de l'image a generer... .. */
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_));
DEFV(Logical,INIT(editer_le_message_des_hors_bornes_naturelles,EDITER_LE_MESSAGE_DES_HORS_BORNES_NATURELLES));
/*..............................................................................................................................*/
EGAL(AXES_COORDONNEES_FERMES_OUVERTS_____compatibilite_20090929,VRAI);
/* Introduit le 20250103104524 afin que les coordonnees 'X' et 'Y' sont bien respectivement */
/* dans [Xmin,Xmax] et [Ymin,Ymax]... */
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_L("standard=",les_images_sont_standards);
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
);
PROKESF_ARGUMENT_FICHIER("LISTE_NIVEAU="
,fichier_LISTE_NIVEAU
,liste_initiale_des_NIVEAU
,NIVEAU_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
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_);
GET_ARGUMENT_L("editer_hors_bornes_naturelles=""ehbn="
,editer_le_message_des_hors_bornes_naturelles
);
)
);
CALi(gInettoyage(les_images_sont_standards,ImageR,IFmageR));
/* Initialisation de l'image Resultat. */
Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA,IFmageA,nom_imageA))))
/* L'utilisation d'une {ImageA,IFmageA} a ete introduite le 20170921105156... */
Bblock
CALS(gImove(les_images_sont_standards
,ImageR,IFmageR
,ImageA,IFmageA
)
);
/* Ce deplacement est en fait inutile. En effet, il suffirait de faire directement : */
/* */
/* gIload_image(les_images_sont_standards,ImageR,IFmageR,nom_imageA) */
/* */
/* mais je procede ainsi par "symetrie" avec 'v $xci/S_point$K'... */
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(Int,INIT(coordonnee_X_denormalisee,UNDEF));
DEFV(Float,INIT(coordonnee_Y_normalisee,ELEMENT_DU_FICHIER_LISTE_Y(index)));
DEFV(Int,INIT(coordonnee_Y_denormalisee,UNDEF));
/* Recuperation des coordonnees normalisees {X,Y[,Z]} courantes dans les fichiers. */
DEFV(Float,INIT(niveau_courant_normalise,ELEMENT_DU_FICHIER_LISTE_NIVEAU(index)));
DEFV(genere_Float,INIT(niveau_courant_denormalise,FLOT__NIVEAU_UNDEF));
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[,Z]} 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[,Z]} courantes dans les fichiers. */
Eblock
ATes
Bblock
EGAL(coordonnee_Y_denormalisee,coordonnee_Y_normalisee);
/* Les coordonnees 'Y' sont supposees deja denormalisees... */
Eblock
ETes
Test(EST_VRAI(les_niveaux_______sont_normalises_))
Bblock
EGAL(niveau_courant_denormalise,__DENORMALISE_NIVEAU(niveau_courant_normalise));
/* Recuperation du niveau normalise et denormalise du point courant {X,Y} dans le fichier. */
Eblock
ATes
Bblock
EGAL(niveau_courant_denormalise,niveau_courant_normalise);
/* Les niveaux sont supposes deja denormalises... */
Eblock
ETes
Test(IL_FAUT(editer_le_message_des_hors_bornes_naturelles))
Bblock
Test(TEST_HORS_IMAGE(coordonnee_X_denormalisee,coordonnee_Y_denormalisee))
Bblock
PRINT_ERREUR("un point est hors image");
CAL1(Prer2("(ses coordonnees sont {x,y} = {%d,%d})\n",coordonnee_X_denormalisee,coordonnee_Y_denormalisee));
Eblock
ATes
Bblock
Eblock
ETes
Test(EST_VRAI(les_images_sont_standards))
Bblock
Test(IFEXff(niveau_courant_denormalise,FLOT__NOIR,FLOT__BLANC))
Bblock
PRINT_ERREUR("un niveau est hors [NOIR,BLANC]");
CAL1(Prer3("(niveau(%d,%d)=%d)\n"
,coordonnee_X_denormalisee,coordonnee_Y_denormalisee
,niveau_courant_denormalise
)
);
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ATes
Bblock
Eblock
ETes
Test(EST_VRAI(les_images_sont_standards))
Bblock
store_point_valide(GENP(niveau_courant_denormalise)
,ImageR
,coordonnee_X_denormalisee
,coordonnee_Y_denormalisee
,FVARIABLE
);
/* Et on marque le point courant... */
Eblock
ATes
Bblock
storeF_point_valide(niveau_courant_normalise
,IFmageR
,coordonnee_X_denormalisee
,coordonnee_Y_denormalisee
);
/* Et on marque le point courant... */
Eblock
ETes
Eblock
EDoI
CALi(gIupdate_image(les_images_sont_standards,nom_imageR,ImageR,IFmageR));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
lGENERATION_D_UN_FICHIER(liste_initiale_des_NIVEAU,NIVEAU_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_Y,Y_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_X,X_IMPLICITE);
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2019-2025.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2025.