/*************************************************************************************************************************************/
/* */
/* M I S E A L ' E C H E L L E D ' U N E I M A G E : */
/* */
/* */
/* Author of '$xci/scale$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1989??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
#define IMPOSER_LES_EXTREMA \
FAUX \
/* Indique si l'on doit imposer les extrema ('VRAI') ou bien les determiner suivant */ \
/* certains criteres ('FAUX'). */
#define NIVEAU_MINIMUM_IMPOSE \
FZERO
#define NIVEAU_MAXIMUM_IMPOSE \
FU
/* Extrema implicites lorsqu'ils sont imposes... */
#define MODE_RAPIDE \
FAUX \
/* Indique si le mode rapide (en entier) est a utiliser ('VRAI') ou bien si c'est le mode */ \
/* lent (en flottant) qui doit l'etre ('FAUX'). */
#define FACTEUR_D_ECHELLE \
FU \
/* Coefficient 'A' de mise a l'echelle, en general dans [0,1]. */
#define FACTEUR_DE_TRANSLATION \
FLOT__NOIR \
/* Coefficient 'B' de translation, en general dans [NOIR,BLANC]. */
#define EDITER_LE_MESSAGE_HORS_NOIR_BLANC \
VRAI \
/* Possibilite introduite le 20220628111407 pour 'v $xiirv/.DELA.11.1.$U message_hors'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M I S E A L ' E C H E L L E D ' U N E I M A G E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
DEFV(Logical,INIT(imposer_les_extrema,IMPOSER_LES_EXTREMA));
/* Indique si l'on doit imposer les extrema ('VRAI') ou bien les determiner suivant */
/* certains criteres ('FAUX'). */
DEFV(Float,INIT(niveau_minimum_impose,NIVEAU_MINIMUM_IMPOSE));
DEFV(Float,INIT(niveau_maximum_impose,NIVEAU_MAXIMUM_IMPOSE));
/* Afin de forcer les niveaux minimal et maximal de 'imageR'. */
DEFV(Logical,INIT(mode_rapide,MODE_RAPIDE));
/* Indique si le mode rapide (en entier) est a utiliser ('VRAI') ou bien si c'est le mode */
/* lent (en flottant) qui doit l'etre ('FAUX'). */
DEFV(Float,INIT(facteur_d_echelle,FACTEUR_D_ECHELLE));
/* Coefficient 'A' de mise a l'echelle, en general dans [0,1]. */
DEFV(Float,INIT(facteur_de_translation,FACTEUR_DE_TRANSLATION));
/* Coefficient 'B' de translation, en general dans [NOIR,BLANC]. */
DEFV(genere_Float,INIT(niveau_minimum,FLOT__NIVEAU_UNDEF));
DEFV(genere_Float,INIT(niveau_maximum,FLOT__NIVEAU_UNDEF));
/* Afin de rechercher les niveaux minimal et maximal de 'imageA'. */
DEFV(Logical,INIT(editer_le_message_hors_NOIR_BLANC,EDITER_LE_MESSAGE_HORS_NOIR_BLANC));
/* Possibilite introduite le 20220628111407 pour 'v $xiirv/.DELA.11.1.$U message_hors'... */
/*..............................................................................................................................*/
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);
GET_ARGUMENT_L("imposer=""extrema=",imposer_les_extrema);
GET_ARGUMENT_L("rapide=",mode_rapide);
GET_ARGUMENT_F("a=",facteur_d_echelle);
GET_ARGUMENT_F("b=",facteur_de_translation);
GET_ARGUMENT_F("minimum=",niveau_minimum_impose);
GET_ARGUMENT_F("maximum=",niveau_maximum_impose);
GET_ARGUMENT_L("conserver_NOIR=""NOIR=",Iscale_____conserver_le_NOIR);
/* Argument introduit le 20230814110117... */
GET_ARGUMENT_L("message_hors_NOIR_BLANC=""mhNB=",editer_le_message_hors_NOIR_BLANC);
/* Argument introduit le 20220628111407... */
)
);
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))))
Bblock
Test(EST_VRAI(les_images_sont_standards))
Bblock
/* Cas d'une image 'image' : */
Test(IL_FAUT(imposer_les_extrema))
Bblock
PRINT_ATTENTION("en mode standard, les extrema ne peuvent etre imposes");
Eblock
ATes
Bblock
Eblock
ETes
Test(IFET(IL_FAUT(Iscale_____conserver_le_NOIR),IL_NE_FAUT_PAS(mode_rapide)))
/* Test introduit le 20230814111111... */
Bblock
PRINT_ATTENTION("conserver le NOIR ne peut se faire qu'en mode 'rapide' que l'on force donc");
EGAL(mode_rapide,VRAI);
Eblock
ATes
Bblock
Eblock
ETes
Test(IL_FAUT(mode_rapide))
Bblock
CALS(Iscale(ImageR
,facteur_d_echelle
,ImageA
,facteur_de_translation
)
);
/* Execution de la fonction (en entier) : */
/* */
/* R = a.I + b */
/* */
Eblock
ATes
Bblock
CALS(Istd_float(IFmage_PI,FLOT__NOIR,FLOT__BLANC,ImageA));
/* Mise en flottant de l'image Argument. */
CALS(IFscale(IFmageR
,facteur_d_echelle
,IFmage_PI
,facteur_de_translation
)
);
/* Execution de la fonction (en flottant) : */
/* */
/* R = a.I + b */
/* */
CALS(IFnivo_extrema(IFmageR
,ADRESSE(niveau_minimum)
,ADRESSE(niveau_maximum)
)
);
/* Recherche des extrema de 'imageA'. */
Test(IFOU(IFLT(niveau_minimum,FLOT__NOIR),IFGT(niveau_maximum,FLOT__BLANC)))
Bblock
Test(IL_FAUT(editer_le_message_hors_NOIR_BLANC))
/* Test introduit le 20220628111407... */
Bblock
PRINT_ATTENTION("la mise a l'echelle conduit hors de [NOIR,BLANC]");
Eblock
ATes
Bblock
Eblock
ETes
CALS(Ifloat_std_avec_renormalisation(ImageR,IFmageR));
/* On doit donc renormaliser, et perdre le benefice de l'operation... */
Eblock
ATes
Bblock
CALS(Ifloat_std(ImageR
,IFmageR
,FLOT__NOIR
,FLOT__BLANC
)
);
/* Generation de 'imageR' (sans renormalisation). */
/* */
/* ATTENTION, il pourra etre utile d'utiliser le parametre : */
/* */
/* translation_Ifloat_std=0 */
/* */
/* ('v $xiak/.NCOS.F.23.$U translation_Ifloat_std'). */
Eblock
ETes
Eblock
ETes
Eblock
ATes
Bblock
/* Cas d'une image 'imageF' : */
Test(IL_FAUT(imposer_les_extrema))
Bblock
CALS(IFnormalisation_automatique(IFmage_PI
,IFmageA
)
);
/* Mise dans [0,1], */
CALS(IFscale(IFmageR
,SOUS(niveau_maximum_impose,niveau_minimum_impose)
,IFmage_PI
,niveau_minimum_impose
)
);
/* Puis forcage des extrema... */
Eblock
ATes
Bblock
CALS(IFscale(IFmageR
,facteur_d_echelle
,IFmageA
,facteur_de_translation
)
);
/* Execution de la fonction (en flottant) : */
/* */
/* R = a.I + b */
/* */
/* avec : */
/* */
/* a E [0,1] */
/* b E [NOIR,BLANC] */
/* */
Eblock
ETes
Eblock
ETes
CALi(gIupdate_image(les_images_sont_standards,nom_imageR,ImageR,IFmageR));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande