/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A C C E S   S I M P L E   A   U N E   I M A G E   E T   S U B S T I T U T I O N   E V E N T U E L L E  :                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/acces$K' :                                                                                                 */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1987??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xci/acces.01.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xci/acces.02.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A C C E S   S I M P L E   A   U N E   I M A G E   E T   S U B S T I T U T I O N   E V E N T U E L L E  :                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));

#include  xci/acces.03.I"

     /*..............................................................................................................................*/
     EGAL(les_images_standards_sont_a_renormaliser,IL_FAUT_RENORMALISER);
                                        /* Il ne faut pas renormaliser l'image ('v $xci/acces.01$I IL_FAUT_RENORMALISER')...         */

     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_L("IFnormalisation_____compatibilite_20120705=""compatibilite_20120705="
                                       ,IFnormalisation_____compatibilite_20120705
                                        );
                                        /* Parametre introduit le 20120705165840...                                                  */

                         GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_L("detruire=""delete=",detruire_l_image);
                         GET_ARGUMENT_L("standard=",les_images_sont_standards);

                         GET_ARGUMENT_L("cs=""convertir_standard=""convertir=",il_faut_convertir_les_images_standards);

                         GET_ARGUMENT_L("norm=""normaliser=""Frenormaliser="
                                       ,il_faut_normaliser_apres_conversion_les_images_standards
                                        );
                                        /* L'argument "Frenormaliser=" a ete introduit le 20201225120010 afin de pouvoir utiliser    */
                                        /* '$xci/acces$X' dans 'v '$xiirv/.CUBV.11.1.$U Frenormaliser='...                           */
                         GET_ARGUMENT_F("origine=""o=",IFnormalisation_____niveau_origine___de_normalisation);
                         GET_ARGUMENT_F("extremite=""e=",IFnormalisation_____niveau_extremite_de_normalisation);
                                        /* Les parametres du normalisation ont ete introduits le 20090318142049...                   */
                         GET_ARGUMENT_L("partie_entiere=""entiers=""pe=",IFnormalisation_____prendre_la_partie_entiere);
                                        /* Cet argument a ete introduit le 20150305211517...                                         */
                         GET_ARGUMENT_L("equilibrer_partie_entiere=""equilibrer=""epe="
                                       ,IFnormalisation_____equilibrer_la_partie_entiere
                                        );
                                        /* Cet argument a ete introduit le 20150307083449...                                         */

                         GET_ARGUMENT_L("interpoler=",il_faut_interpoler_apres_conversion_les_images_standards);
                         GET_ARGUMENT_F("geometrique=",Istd_float_avec_interpolation_____ponderation_de_la_moyenne_geometrique);
                         GET_ARGUMENT_F("horizontale=",Istd_float_avec_interpolation_____ponderation_de_l_interpolation_horizontale);
                         GET_ARGUMENT_F("verticale=",Istd_float_avec_interpolation_____ponderation_de_l_interpolation_verticale);
                         GET_ARGUMENT_F("facteur=",Istd_float_avec_interpolation_____facteur_des_derivees_numeriques);
                         GET_ARGUMENT_I("seuil=",Istd_float_avec_interpolation_____seuil_d_interpolation);
                         GET_ARGUMENT_L("lineaire=",il_faut_interpoler_lineairement);
                         GET_ARGUMENT_N("cubique=",il_faut_interpoler_lineairement);

                         GET_ARGUMENT_L("convertir_non_standard=""cns=",il_faut_convertir_les_images_non_standards);
                         GET_ARGUMENT_L("zero=",conserver_le_zero);
                         GET_ARGUMENT_L("rn=""renorm=""renormaliser=""r=",les_images_standards_sont_a_renormaliser);
                                        /* Le 20121211135244 "renom=" (erronne) a ete remplace par "renorm="...                      */
                         GET_ARGUMENT_P("rNOIR=",Ifloat_std_____niveau_NOIR);
                         GET_ARGUMENT_P("rBLANC=",Ifloat_std_____niveau_BLANC);
                                        /* Options {"rNOIR=","rBLANC="} introduites le 20070210094246. Je rappelle le 20180711105233 */
                                        /* qu'elles permettent lors du passage de "standard=FAUX" a "standard=VRAI" de definir des   */
                                        /* extrema differents de [NOIR,BLANC]...                                                     */
                         GET_ARGUMENT_P("niveau_extrema_egaux=""nee="
                                       ,Ifloat_std_____niveau_plancher_a_utiliser_si_les_extrema_sont_egaux
                                        );
                         GET_ARGUMENT_L("calculer_niveau_extrema_egaux=""cnee="
                                       ,Ifloat_std_____calculer_le_niveau_plancher_a_utiliser_si_les_extrema_sont_egaux
                                        );
                                        /* Options introduite le 20120706084213 et complete le 20200120141103 pour ce qui est        */
                                        /* de l'utilisation de l'unique niveau normalise...                                          */
                         GET_ARGUMENT_L("brutal=",convertir_brutalement);
                                        /* Option introduite le 20080902111355...                                                    */
                         GET_ARGUMENT_L("message_extrema=""me=",Ifloat_std_____editer_le_message_d_attention_relatif_aux_extrema);
                                        /* Option introduite le 20110421131148...                                                    */
                         GET_ARGUMENT_L("extrema=",il_faut_calculer_les_extrema_des_images_non_standards);
                         GET_ARGUMENT_L("tronquer=",tronquer_les_niveaux);
                         GET_ARGUMENT_L("NOIR_unique=",Ifloat_std_____seul_le_niveau_minimal_donnera_du_NOIR);
                                        /* Option introduite le 20040909095826...                                                    */
                         GET_ARGUMENT_L("eviter_faux_NOIRs=""eviter=",Ifloat_std_avec_troncation_____eviter_les_faux_points_NOIRs);
                         GET_ARGUMENT_P("noir=""niveau=""n=""NOIR=",niveau_de_NOIR_remonte);

                         GET_ARGUMENT_F("minimum=""min=",minimum_force);
                         GET_ARGUMENT_F("maximum=""max=",maximum_force);
                         GET_ARGUMENT_F("epsilon=",Ifloat_std_____epsilon_de_seuillage_inferieur_par_rapport_au_niveau_minimal);

                         GET_ARGUMENT_L("zbuffer=""zBuffer=""Zbuffer=""ZBuffer=""Z-Buffer=",l_image_non_standard_est_un_Z_Buffer);
                         )
                    );

     ACCES_A_UNE_IMAGE_ET_CONVERSIONS_EVENTUELLES(nom_imageR,nom_imageA);
                                        /* Acces et conversions de l'image Argument...                                               */

     RETU_Commande;
     Eblock
ECommande