/*************************************************************************************************************************************/
/* */
/* L I S T E D E S C O N N E X I O N S D ' U N E N S E M B L E D E P O I N T S { X , Y , Z } : */
/* */
/* */
/* Author of '$xrv/connexions.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20180517075321). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 LA_MATRICE_DE_CONNEXION_EST_SYMETRIQUE \
VRAI \
/* Indique si la matrice est symetrique ('VRAI') ou pas ('FAUX'). Ceci a ete introduit */ \
/* le 20180522183531 a cause de 'v $xiird/NETW.21'... */
#define RENVERSER_L_AXE_OX \
FAUX
#define RENVERSER_L_AYE_OX \
FAUX
/* Indique s'il faut renverser les axes ('VRAI') ou pas ('FAUX'). Ceci a ete introduit */ \
/* le 20180523060909 a cause de 'v $xiird/NETW.21'... */
#define INDICATEUR_DE_CONNEXION \
FLOT(EXIST) \
/* Indique si la connexion est presente ('EXIST') ou pas ('NEXIST'). */
#define PONDERATION_OX_IMPLICITE_1 \
FZERO
#define PONDERATION_OY_IMPLICITE_1 \
FZERO
#define PONDERATION_OZ_IMPLICITE_1 \
FZERO
#define PONDERATION_OX_IMPLICITE_2 \
FZERO
#define PONDERATION_OY_IMPLICITE_2 \
FZERO
#define PONDERATION_OZ_IMPLICITE_2 \
FZERO
/* Ponderation de selection des coordonnees apres detection des connexions. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
#define Z_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_X,liste_initiale_des_X);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y,liste_initiale_des_Y);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Z,liste_initiale_des_Z);
/* 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)
#define ELEMENT_DU_FICHIER_LISTE_Z(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Z,index)
/* Acces a un element courant des fichiers de coordonnees cartesiennes. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L I S T E D E S C O N N E X I O N S D ' U N E N S E M B L E D E P O I N T S { X , Y , Z } : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
DEFV(Logical,INIT(la_matrice_de_connexion_est_symetrique,LA_MATRICE_DE_CONNEXION_EST_SYMETRIQUE));
/* Indique si la matrice est symetrique ('EXIST') ou pas ('NEXIST'). Ceci a ete introduit */
/* le 20180522183531 a cause de 'v $xiird/NETW.21'... */
DEFV(Logical,INIT(renverser_l_axe_OX,RENVERSER_L_AXE_OX));
DEFV(Logical,INIT(renverser_l_axe_OY,RENVERSER_L_AYE_OX));
/* Indique s'il faut renverser les axes ('VRAI') ou pas ('FAUX'). Ceci a ete introduit */
/* le 20180523060909 a cause de 'v $xiird/NETW.21'... */
DEFV(Float,INIT(indicateur_de_connexion,INDICATEUR_DE_CONNEXION));
/* Indique si la connexion est presente ('EXIST') ou pas ('NEXIST'). */
DEFV(Float,INIT(ponderation_OX_1,PONDERATION_OX_IMPLICITE_1));
DEFV(Float,INIT(ponderation_OY_1,PONDERATION_OY_IMPLICITE_1));
DEFV(Float,INIT(ponderation_OZ_1,PONDERATION_OZ_IMPLICITE_1));
DEFV(Float,INIT(ponderation_OX_2,PONDERATION_OX_IMPLICITE_2));
DEFV(Float,INIT(ponderation_OY_2,PONDERATION_OY_IMPLICITE_2));
DEFV(Float,INIT(ponderation_OZ_2,PONDERATION_OZ_IMPLICITE_2));
/* Ponderation de selection des coordonnees apres detection des connexions. */
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
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
)
);
GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_L("standard=",les_images_sont_standards);
GET_ARGUMENT_L("matrice_symetrique=""symetrique=",la_matrice_de_connexion_est_symetrique);
/* Argument introduit le 20180522183531... */
GET_ARGUMENT_L("renverser_X=""rX=",renverser_l_axe_OX);
GET_ARGUMENT_L("renverser_Y=""rY=",renverser_l_axe_OY);
/* Argument introduit le 20180523060909... */
GET_ARGUMENT_F("connexion=""connecte=",indicateur_de_connexion);
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_Z="
,fichier_LISTE_Z
,liste_initiale_des_Z
,Z_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("px1=""pX1=",ponderation_OX_1);
GET_ARGUMENT_F("py1=""pY1=",ponderation_OY_1);
GET_ARGUMENT_F("pz1=""pZ1=",ponderation_OZ_1);
GET_ARGUMENT_F("px2=""pX2=",ponderation_OX_2);
GET_ARGUMENT_F("py2=""pY2=",ponderation_OY_2);
GET_ARGUMENT_F("pz2=""pZ2=",ponderation_OZ_2);
)
);
Test(IFEQ(dimX,dimY))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA,IFmageA,nom_imageA))))
Bblock
begin_image
Bblock
Test(IFOU(EST_FAUX(la_matrice_de_connexion_est_symetrique)
,IFET(EST_VRAI(la_matrice_de_connexion_est_symetrique)
,IFGT(COND(IL_NE_FAUT_PAS(renverser_l_axe_OX),NEUT(X),RENX(X))
,COND(IL_NE_FAUT_PAS(renverser_l_axe_OY),NEUT(Y),RENY(Y))
)
)
)
)
/* Test introduit le 20180522183531... */
Bblock
DEFV(Logical,INIT(editer_la_connexion,FAUX));
Test(EST_VRAI(les_images_sont_standards))
Bblock
EGAL(editer_la_connexion,IFEQ(load_point(ImageA,X,Y),INTE(indicateur_de_connexion)));
Eblock
ATes
Bblock
EGAL(editer_la_connexion,IFEQ(loadF_point(IFmageA,X,Y),NEUT(indicateur_de_connexion)));
Eblock
ETes
Test(IL_FAUT(editer_la_connexion))
Bblock
DEFV(Int,INIT(numero_P1,ADD2(COXR(X),PREMIER_ELEMENT_D_UN_FICHIER)));
DEFV(Int,INIT(numero_P2,ADD2(COYR(Y),PREMIER_ELEMENT_D_UN_FICHIER)));
EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(LIZ6(ponderation_OX_1
,ELEMENT_DU_FICHIER_LISTE_X(numero_P1)
,ponderation_OY_1
,ELEMENT_DU_FICHIER_LISTE_Y(numero_P1)
,ponderation_OZ_1
,ELEMENT_DU_FICHIER_LISTE_Z(numero_P1)
,ponderation_OX_2
,ELEMENT_DU_FICHIER_LISTE_X(numero_P2)
,ponderation_OY_2
,ELEMENT_DU_FICHIER_LISTE_Y(numero_P2)
,ponderation_OZ_2
,ELEMENT_DU_FICHIER_LISTE_Z(numero_P2)
)
);
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ATes
Bblock
Eblock
ETes
Eblock
end_image
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
PRINT_ERREUR("l'image doit etre carree puisqu'il s'agit d'une matrice de connexion");
Eblock
ETes
lGENERATION_D_UN_FICHIER(liste_initiale_des_Z,Z_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