/*************************************************************************************************************************************/
/* */
/* O M B R A G E D ' U N A L B U M : */
/* */
/* */
/* Author of '$xci/ombrage.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20100622172458). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
#include image_image_DI_ALBUM_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#include xci/sequence.01.I"
/* ATTENTION, on definit ainsi le symbole 'DERNIERE_IMAGE' qui ne sert a rien ici, puisque */
/* c'est en effet 'Zmax' qui joue ce role... */
#define CALCULER_LES_OMBRES \
VRAI \
/* Introduire le 20180124093028 afin de pouvoir lors de phases de mise au point d'une */ \
/* image accelerer le processus en ne calculant pas les ombres. Ceci a ete utilise en */ \
/* particulier dans 'v $xiirc/.MANE.41.3.$U _____Ombrage'... */
#define INVERSER_L_AXE_OZ \
FAUX \
/* Indique s'il faut inverser l'ordre de parcours de l'ensemble des images. On a : */ \
/* */ \
/* FAUX : l'image d'arriere-plan est la premiere de la liste, */ \
/* VRAI : l'image d'arriere-plan est la derniere de la liste. */ \
/* */ \
/* Ceci fut introduit le 20100623084932... */
#define INCOMPLET_AXE_OZ \
FAUX \
/* Indique s'il peut manquer des images (ceci fut introduit le 20120322085625)... */
#define INCOMPLET_AXE_OZ_VALEUR_STANDARD \
NOIR
#define INCOMPLET_AXE_OZ_VALEUR_NON_STANDARD \
FLOT__NOIR
/* Donne la valeur des images manquantes (ceci fut introduit le 20120322092744)... */
#define BINARISER_L_ALBUM \
VRAI \
/* Faut-il binariser l'album ('VRAI') ou le laisser tel quel ? Ceci a ete introduit le */ \
/* 20100624170147... */
#define SEUIL_NOIR_BLANC \
NOIR
#define F_SEUIL_NOIR_BLANC \
FLOT__NOIR
/* Seuil de discrimination entre le 'NOIR' et le 'BLANC'... */
#define NIVEAU_INFERIEUR \
NOIR
#define NIVEAU_SUPERIEUR \
BLANC
#define F_NIVEAU_INFERIEUR \
FLOT__NOIR
#define F_NIVEAU_SUPERIEUR \
FLOT__BLANC
/* Niveaux jouant le role du 'NOIR' et du 'BLANC'... */
#define ROTATION_OX_IMPLICITE \
FZERO
#define ROTATION_OY_IMPLICITE \
FZERO
#define ROTATION_OZ_IMPLICITE \
FZERO
/* Angles de rotation de la source lumineuse (introduite le 20111124092854). */
#define INVERSER_LES_ROTATIONS \
VRAI \
/* Faut-il inverser les rotations (indicateur introduit le 20111126095341...). */
#define TRANSLATION_OX_IMPLICITE \
FZERO
#define TRANSLATION_OY_IMPLICITE \
FZERO
#define TRANSLATION_OZ_IMPLICITE \
FZERO
/* Translation de l'origine de la source lumineuse (introduite le 20111124092854). */
#define COMPATIBILITE_20140929 \
FAUX \
/* Permet de proceder a des calculs compatibles a ceux qui furent effectues anterieurement */ \
/* au 20140929114148. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#include xci/ombrage.11.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* O M B R A G E D ' U N A L B U M : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_albumR),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_albumA),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_postfixe),NOM_UNDEF_VIDE));
/* Nom d'un eventuel postfixe a placer derriere <nom_albumA><numero> (par exemple '$ROUGE'). */
DEFV(Int,INIT(premiere_image,PREMIERE_IMAGE));
/* Numero de la premiere image, */
DEFV(Int,INIT(pas_des_images,PAS_DES_IMAGES));
/* Pas de passage d'un numero d'image a une autre. */
DEFV(Int,INIT(nombre_de_chiffres,NOMBRE_DE_CHIFFRES));
/* Nombre de chiffres codant le numero des images de la serie... */
DEFV(Logical,INIT(calculer_les_ombres,CALCULER_LES_OMBRES));
/* Introduire le 20180124093028 afin de pouvoir lors de phases de mise au point d'une */
/* image accelerer le processus en ne calculant pas les ombres. Ceci a ete utilise en */
/* particulier dans 'v $xiirc/.MANE.41.3.$U _____Ombrage'... */
DEFV(Logical,INIT(inverser_l_axe_OZ,INVERSER_L_AXE_OZ));
/* Indique s'il faut inverser l'ordre de parcours de l'ensemble des images. On a : */
/* */
/* FAUX : l'image d'arriere-plan est la premiere de la liste, */
/* VRAI : l'image d'arriere-plan est la derniere de la liste. */
/* */
/* Ceci fut introduit le 20100623084932... */
DEFV(Logical,INIT(incomplet_axe_OZ,INCOMPLET_AXE_OZ));
/* Indique s'il peut manquer des images (ceci fut introduit le 20120322085625)... */
DEFV(genere_p,INIT(incomplet_axe_OZ_valeur_standard,INCOMPLET_AXE_OZ_VALEUR_STANDARD));
DEFV(genere_Float,INIT(incomplet_axe_OZ_valeur_non_standard,INCOMPLET_AXE_OZ_VALEUR_NON_STANDARD));
/* Donne la valeur des images manquantes (ceci fut introduit le 20120322092744)... */
DEFV(Logical,INIT(binariser_l_album,BINARISER_L_ALBUM));
/* Faut-il binariser l'album ('VRAI') ou le laisser tel quel ? Ceci a ete introduit le */
/* 20100624170147... */
DEFV(genere_p,INIT(seuil,SEUIL_NOIR_BLANC));
DEFV(genere_Float,INIT(Fseuil,F_SEUIL_NOIR_BLANC));
/* Seuil de discrimination flottant (introduit le 20040908165025)... */
DEFV(genere_p,INIT(niveau_inferieur,NIVEAU_INFERIEUR));
DEFV(genere_p,INIT(niveau_superieur,NIVEAU_SUPERIEUR));
DEFV(genere_Float,INIT(Fniveau_inferieur,F_NIVEAU_INFERIEUR));
DEFV(genere_Float,INIT(Fniveau_superieur,F_NIVEAU_SUPERIEUR));
/* Niveaux flottants jouant le role du 'NOIR' et du 'BLANC'. */
DEFV(Float,INIT(angle_de_ROTATION_OX,ROTATION_OX_IMPLICITE));
DEFV(Float,INIT(angle_de_ROTATION_OY,ROTATION_OY_IMPLICITE));
DEFV(Float,INIT(angle_de_ROTATION_OZ,ROTATION_OZ_IMPLICITE));
/* Angles de rotation de la source lumineuse (introduite le 20111124092854). */
DEFV(Logical,INIT(inverser_les_rotations,INVERSER_LES_ROTATIONS));
/* Faut-il inverser les rotations (indicateur introduit le 20111126095341...). */
DEFV(Float,INIT(translation_OX,TRANSLATION_OX_IMPLICITE));
DEFV(Float,INIT(translation_OY,TRANSLATION_OY_IMPLICITE));
DEFV(Float,INIT(translation_OZ,TRANSLATION_OZ_IMPLICITE));
/* Translation de l'origine de la source lumineuse (introduite le 20111124092854). */
DEFV(Common,DEFV(Float,SINT(source_lumineuse_X,AFombrage_____source_lumineuse_X)));
DEFV(Common,DEFV(Float,SINT(source_lumineuse_Y,AFombrage_____source_lumineuse_Y)));
DEFV(Common,DEFV(Float,SINT(source_lumineuse_Z,AFombrage_____source_lumineuse_Z)));
/* Position de la source lumineuse avant rotation (introduite le 20111124092854). */
DEFV(Logical,INIT(compatibilite_20140929,COMPATIBILITE_20140929));
/* Permet de proceder a des calculs compatibles a ceux qui furent effectues anterieurement */
/* au 20140929114148. */
/*..............................................................................................................................*/
BSaveModifyVariable(Logical,S_ACCELERATEUR__ALOAD_POINT_COORDONNEES_01_____utiliser_l_accelerateur,FAUX);
/* Introduit le 20120620092557... */
/* */
/* Le 20150309134739, suite aux experiences 'v $xiirc/.MANE.41.3.$U 20150309120210', la */
/* valeur par defaut est passee de 'VRAI' a 'FAUX' car, en effet, ces experiences ont */
/* montre que l'accelerateur etait penalisant pour l'ombrage... */
EGAL(valider_les_axes_OX_OY_OZ,VRAI);
EGAL(coefficient_de_forme_de_l_espace_tridimensionnel,COEFFICIENT_DE_FORME_DE_L_ESPACE_TRIDIMENSIONNEL);
/* Introduit le 20140105182600 lors de la mise au point de 'v $xiirv/PIPO.F1.21' a cause */
/* du probleme 'v $xiii/di_album$FON 20120321113814' qui se manifeste, par exemple, si */
/* l'axe 'OZ' est beaucoup plus "court" que les axes 'OX' et/ou 'OY'. */
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("compatibilite_20140929=",compatibilite_20140929);
/* Argument introduit le 20140929114148... */
GET_ARGUMENTS2_L(chain_Aconcaten3("Aombrage_____compatibilite_20101008="
,"AFombrage_____compatibilite_20101008="
,"compatibilite_20101008="
)
,Aombrage_____compatibilite_20101008
,AFombrage_____compatibilite_20101008
);
/* Arguments introduits le 20101008122657... */
GET_ARGUMENTS2_L(chain_Aconcaten3("Aombrage_____compatibilite_20110816="
,"AFombrage_____compatibilite_20110816="
,"compatibilite_20110816="
)
,Aombrage_____compatibilite_20110816
,AFombrage_____compatibilite_20110816
);
/* Arguments introduits le 20110816111247... */
GET_ARGUMENTS2_L(chain_Aconcaten3("Aombrage_____compatibilite_20140917="
,"AFombrage_____compatibilite_20140917="
,"compatibilite_20140917="
)
,Aombrage_____compatibilite_20140917
,AFombrage_____compatibilite_20140917
);
/* Arguments introduits le 20140917151121... */
GET_ARGUMENTS2_L(chain_Aconcaten4("Aombrage_____compatibilite_20170517="
,"AFombrage_____compatibilite_20170517="
,"compatibilite_20170517="
,"optimiser1="
)
,Aombrage_____compatibilite_20170517
,AFombrage_____compatibilite_20170517
);
/* Arguments introduits le 20170517115229 et completes le 20170826100804 avec "optimiser1=", */
/* car c'est bien de cela qu'il s'agit... */
GET_ARGUMENTS2_L(chain_Aconcaten3("Aombrage_____optimisation_2="
,"AFombrage_____optimisation_2="
,"optimiser2="
)
,Aombrage_____optimisation_2
,AFombrage_____optimisation_2
);
/* Arguments introduits le 20170826104014... */
GET_ARGUMENT_C("imageA=""A=",nom_albumA);
GET_ARGUMENT_C("imageR=""R=",nom_albumR);
GET_ARGUMENT_C("postfixe=",nom_postfixe);
GET_ARGUMENT_I("premiere=",premiere_image);
GET_ARGUMENTS2_I("pas=",pas_des_images,pasZ);
/* L'argument 'pasZ' fut introduit le 20110119140029... */
GET_ARGUMENT_I("chiffres=",nombre_de_chiffres);
GET_ARGUMENT_L("ombres=""ombrage=",calculer_les_ombres);
GET_ARGUMENT_N("soleil=",calculer_les_ombres);
/* Arguments introduits le 20180124093028... */
GET_ARGUMENT_L("inverser_Z=""inv_Z=",inverser_l_axe_OZ);
/* Argument introduit le 20100623084932... */
GET_ARGUMENT_L("incomplet_Z=""inc_Z=",incomplet_axe_OZ);
/* Argument introduit le 20120322085625... */
GET_ARGUMENT_P("valeur_standard_incomplet_Z=""vsinc_Z=",incomplet_axe_OZ_valeur_standard);
GET_ARGUMENT_F("valeur_non_standard_incomplet_Z=""vnsinc_Z=",incomplet_axe_OZ_valeur_non_standard);
/* Argument introduit le 20120322092744... */
GET_ARGUMENT_L("standardA=",les_imagesA_sont_standards);
GET_ARGUMENT_L("standardR=""standard=",les_imagesR_sont_standards);
/* Arguments introduits le 20100624173304... */
GET_ARGUMENT_L("binariser_album=""binariser=",binariser_l_album);
GET_ARGUMENT_P("Pseuil=""Ps=",seuil);
GET_ARGUMENT_P("Pinferieur=""Pinf=",niveau_inferieur);
GET_ARGUMENT_P("Psuperieur=""Psup=",niveau_superieur);
/* Arguments introduits le 20140929111454... */
GET_ARGUMENT_F("Fseuil=""Fs=""seuil=""s=",Fseuil);
GET_ARGUMENT_F("Finferieur=""Finf=""inferieur=""inf=",Fniveau_inferieur);
GET_ARGUMENT_F("Fsuperieur=""Fsup=""superieur=""sup=",Fniveau_superieur);
/* Arguments introduits le 20100624170147... */
GET_ARGUMENTS2_F("facteur_increment_lambda=""fil=""lambda="
,Aombrage_____facteur_de_l_increment_de_lambda
,AFombrage_____facteur_de_l_increment_de_lambda
);
/* Argument introduit le 20100622185409... */
PROCESS_ARGUMENT_F("ROTATION_OX=",angle_de_ROTATION_OX
,BLOC(VIDE;)
,BLOC(EGAL(vecteurs_____ordre_de_la_ROTATION_0X,nombre_d_arguments_recuperes);
)
);
PROCESS_ARGUMENT_F("ROTATION_OY=",angle_de_ROTATION_OY
,BLOC(VIDE;)
,BLOC(EGAL(vecteurs_____ordre_de_la_ROTATION_0Y,nombre_d_arguments_recuperes);
)
);
PROCESS_ARGUMENT_F("ROTATION_OZ=",angle_de_ROTATION_OZ
,BLOC(VIDE;)
,BLOC(EGAL(vecteurs_____ordre_de_la_ROTATION_0Z,nombre_d_arguments_recuperes);
)
);
GET_ARGUMENT_L("inverser_rotations=""inv_R=",inverser_les_rotations);
/* Argument introduit le 20111126095341... */
GET_ARGUMENT_F("tX=""TRANSLATION_OX=",translation_OX);
GET_ARGUMENT_F("tY=""TRANSLATION_OY=",translation_OY);
GET_ARGUMENT_F("tZ=""TRANSLATION_OZ=",translation_OZ);
/* Arguments introduits le 20111124092854... */
GET_ARGUMENT_F("source_lumineuse_X=""slX=""slx=",source_lumineuse_X);
GET_ARGUMENT_F("source_lumineuse_Y=""slY=""sly=",source_lumineuse_Y);
GET_ARGUMENT_F("source_lumineuse_Z=""slZ=""slz=",source_lumineuse_Z);
GET_ARGUMENTS2_F("attenuation_globale=""attenuation="
,Aombrage_____attenuation_globale_des_points
,AFombrage_____attenuation_globale_des_points
);
/* Arguments introduits le 20120904125317... */
GET_ARGUMENTS2_F("attenuation_ombre=""ombre="
,Aombrage_____attenuation_des_points_a_l_ombre
,AFombrage_____attenuation_des_points_a_l_ombre
);
GET_ARGUMENTS2_F("detecteur_vide=""detecteur=""dv="
,Aombrage_____detecteur_du_vide
,AFombrage_____detecteur_du_vide
);
PROCESS_ARGUMENT_F("niveau_vide=""vide="
,AFombrage_____niveau_du_vide_dans_l_album
,BLOC(VIDE;)
,BLOC(Bblock
EGAL(Aombrage_____niveau_du_vide_dans_l_album
,GENP(AFombrage_____niveau_du_vide_dans_l_album)
);
/* Le type de 'Aombrage_____niveau_du_vide_dans_l_album' etant different de celui de */
/* 'AFombrage_____niveau_du_vide_dans_l_album' implique 'PROCESS_ARGUMENT_F(...)'... */
Eblock
)
);
GET_ARGUMENTS2_L("periodiser_X=""periodX="
,Aombrage_____periodiser_X
,AFombrage_____periodiser_X
);
GET_ARGUMENTS2_L("periodiser_Y=""periodY="
,Aombrage_____periodiser_Y
,AFombrage_____periodiser_Y
);
GET_ARGUMENTS2_L("periodiser_Z=""periodZ="
,Aombrage_____periodiser_Z
,AFombrage_____periodiser_Z
);
GET_ARGUMENTS2_L("symetriser_X=""symetrX="
,Aombrage_____symetriser_X
,AFombrage_____symetriser_X
);
GET_ARGUMENTS2_L("symetriser_Y=""symetrY="
,Aombrage_____symetriser_Y
,AFombrage_____symetriser_Y
);
GET_ARGUMENTS2_L("symetriser_Z=""symetrZ="
,Aombrage_____symetriser_Z
,AFombrage_____symetriser_Z
);
GET_ARGUMENTS2_L("prolonger_X=""prolX="
,Aombrage_____prolonger_X
,AFombrage_____prolonger_X
);
GET_ARGUMENTS2_L("prolonger_Y=""prolY="
,Aombrage_____prolonger_Y
,AFombrage_____prolonger_Y
);
GET_ARGUMENTS2_L("prolonger_Z=""prolZ="
,Aombrage_____prolonger_Z
,AFombrage_____prolonger_Z
);
PROCESS_ARGUMENT_F("niveau_hors_album=""nha=""niveau_hors_image=""nhi=""niveau="
,AFombrage_____niveau_hors_album
,BLOC(VIDE;)
,BLOC(Bblock
EGAL(Aombrage_____niveau_hors_album
,GENP(AFombrage_____niveau_hors_album)
);
/* Le type de 'Aombrage_____niveau_hors_album' etant different de celui de */
/* 'AFombrage_____niveau_hors_album' implique 'PROCESS_ARGUMENT_F(...)'... */
Eblock
)
);
GET_ARGUMENT_L("AccelerateurALoadPoint=""AccALP="
,S_ACCELERATEUR__ALOAD_POINT_COORDONNEES_01_____utiliser_l_accelerateur
);
/* Arguments introduits le 20120310145414... */
GET_ARGUMENTS2_L("appliquer_une_matrice_de_transformation=""matrice=""transformation="
,FAload_point_coordonnees_01_____appliquer_une_matrice_de_transformation
,FFAload_point_coordonnees_01_____appliquer_une_matrice_de_transformation
);
GET_ARGUMENTS2_F("mxx=""mtxx="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cx,cx)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cx,cx)
);
GET_ARGUMENTS2_F("mxy=""mtxy="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cx,cy)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cx,cy)
);
GET_ARGUMENTS2_F("mxz=""mtxz="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cx,cz)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cx,cz)
);
GET_ARGUMENTS2_F("myx=""mtyx="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cy,cx)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cy,cx)
);
GET_ARGUMENTS2_F("myy=""mtyy="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cy,cy)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cy,cy)
);
GET_ARGUMENTS2_F("myz=""mtyz="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cy,cz)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cy,cz)
);
GET_ARGUMENTS2_F("mzx=""mtzx="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cz,cx)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cz,cx)
);
GET_ARGUMENTS2_F("mzy=""mtzy="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cz,cy)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cz,cy)
);
GET_ARGUMENTS2_F("mzz=""mtzz="
,ASD2(FAload_point_coordonnees_01_____matrice_de_transformation,cz,cz)
,ASD2(FFAload_point_coordonnees_01_____matrice_de_transformation,cz,cz)
);
GET_ARGUMENTS2_F("pre_atrx="
,FAload_point_coordonnees_01_____PreAntiTranslation_Xf
,FFAload_point_coordonnees_01_____PreAntiTranslation_Xf
);
GET_ARGUMENTS2_F("post_trx="
,FAload_point_coordonnees_01_____Post___Translation_Xf
,FFAload_point_coordonnees_01_____Post___Translation_Xf
);
GET_ARGUMENTS2_F("pre_atry="
,FAload_point_coordonnees_01_____PreAntiTranslation_Yf
,FFAload_point_coordonnees_01_____PreAntiTranslation_Yf
);
GET_ARGUMENTS2_F("post_try="
,FAload_point_coordonnees_01_____Post___Translation_Yf
,FFAload_point_coordonnees_01_____Post___Translation_Yf
);
GET_ARGUMENTS2_L("interpoler=""inter="
,FAload_point_coordonnees_01_____interpoler_bilineairement_ou_bicubiquement
,FFAload_point_coordonnees_01_____interpoler_bilineairement_ou_bicubiquement
);
GET_ARGUMENTS2_F("interpolerX=""interX="
,FAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_X
,FFAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_X
);
GET_ARGUMENTS2_F("interpolerY=""interY="
,FAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_Y
,FFAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_Y
);
GET_ARGUMENTS2_F("interpolerZ=""interZ="
,FAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_Z
,FFAload_point_coordonnees_01_____ponderation_du_barycentre_d_interpolation_Z
);
GET_ARGUMENTS2_L("interpoler_lineairement=""lineaire=""bilineaire="
,FAload_point_coordonnees_01_____utiliser_l_interpolation_bilineaire
,FFAload_point_coordonnees_01_____utiliser_l_interpolation_bilineaire
);
/* Arguments completes ("interpoler_lineairement=") le 20150305104710 pour ameliorer */
/* les sorties de "use"... */
GET_ARGUMENTS2_N("interpoler_cubiquement=""cubique=""bicubique="
,FAload_point_coordonnees_01_____utiliser_l_interpolation_bilineaire
,FFAload_point_coordonnees_01_____utiliser_l_interpolation_bilineaire
);
/* Arguments completes ("interpoler_cubiquement=") le 20150305104710 pour ameliorer */
/* les sorties de "use"... */
)
);
DEFINITION_DE_LA_MATRICE_DE_ROTATION_POUR_L_OMBRAGE;
/* Definition de la matrice de rotation introduite sous cette forme le 20111126100425... */
/* */
/* ATTENTION : on notera l'usage de 'DEFINITION_DE_LA_MATRICE_DE_ROTATION_POUR_L_OMBRAGE' */
/* definie dans 'v $xci/ombrage.11$I' a cause de l'operateur 'OPC1(...)' que cette */
/* definition contient et qui ne peut figurer au premier niveau (celui d'un '$K'...). */
EGAL(AFombrage_____source_lumineuse_X
,TRANSFORMATION_GEOMETRIQUE_3D_Fx(source_lumineuse_X,source_lumineuse_Y,source_lumineuse_Z
,translation_OX
)
);
EGAL(AFombrage_____source_lumineuse_Y
,TRANSFORMATION_GEOMETRIQUE_3D_Fy(source_lumineuse_X,source_lumineuse_Y,source_lumineuse_Z
,translation_OY
)
);
EGAL(AFombrage_____source_lumineuse_Z
,TRANSFORMATION_GEOMETRIQUE_3D_Fz(source_lumineuse_X,source_lumineuse_Y,source_lumineuse_Z
,translation_OZ
)
);
EGAL(Aombrage_____source_lumineuse_X,AFombrage_____source_lumineuse_X);
EGAL(Aombrage_____source_lumineuse_Y,AFombrage_____source_lumineuse_Y);
EGAL(Aombrage_____source_lumineuse_Z,AFombrage_____source_lumineuse_Z);
/* La rotation de la source lumineuse a ete introduite le 20111124092854. On notera */
/* qu'evidemment cela pourrait etre fait a l'exterieur de ce programme, mais c'est pour */
/* faciliter son utilisation, par exemple, dans une boucle de rotation d'un champ afin */
/* d'obtenir des couples de stereogrammes, auquel cas, le champ d'ombres devra etre */
/* recalcule pour chaque nouvelle position et non pas une fois pour toute comme cela */
/* est fait jusqu'a cette date ('v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X'... */
/* */
/* On notera, si je ne dis pas de betises, que lorsque l'on fait tourner un champ a */
/* visualiser, il convient de faire tourner de la meme facon (meme angle et meme signe) */
/* la source lumineuse. Ainsi, les ombres seront les memes par rapport au champ et ce */
/* quel que soit le point de vue... */
Test(IFET(IL_NE_FAUT_PAS(compatibilite_20140929)
,IFET(EST_VRAI(les_imagesA_sont_standards)
,EST_VRAI(les_imagesR_sont_standards)
)
)
)
/* Test introduit le 20140929104756... */
Bblock
BDEFV(album,album_d_imagesA);
BDEFV(album,album_d_imagesR);
/* Definition des albums d'images Argument et Resultat... */
CALS(dAnoir(album_d_imagesR));
/* Initialisation de l'image Resultat. */
CALi(idAload_album(album_d_imagesA
,nom_albumA
,nom_postfixe
,premiere_image
,pas_des_images
,nombre_de_chiffres
,FAUX
,UNDEF
,inverser_l_axe_OZ
,incomplet_axe_OZ
,incomplet_axe_OZ_valeur_standard
)
);
/* Chargement de l'album Argument... */
Test(PAS_D_ERREUR(CODE_ERREUR))
Bblock
Test(IL_FAUT(binariser_l_album))
Bblock
BDEFV(album,album_d_imagesA_binarise);
/* Definition de l'album d'images Argument binarise... */
CALS(Abinarisation_generale(album_d_imagesA_binarise
,album_d_imagesA
,seuil
,niveau_inferieur,niveau_superieur
)
);
CALS(Amove(album_d_imagesA,album_d_imagesA_binarise));
/* Binarisation de l'album d'images Argument... */
EDEFV(album,album_d_imagesA_binarise);
/* Definition de l'album d'images Argument binarise... */
Eblock
ATes
Bblock
Eblock
ETes
Test(IL_FAUT(calculer_les_ombres))
Bblock
CALS(Aombrage(album_d_imagesR,album_d_imagesA));
/* Ombrage... */
Eblock
ATes
Bblock
CALS(dAinitialisation(album_d_imagesR,POINT_A_PRIORI_AU_SOLEIL));
/* Lorsque l'ombrage n'est pas calcule tous les points sont au soleil (ceci a ete */
/* introduit le 20180124093028....). */
Eblock
ETes
Eblock
ATes
Bblock
Eblock
ETes
CALi(dAupdate_album(nom_albumR
,nom_postfixe
,premiere_image
,pas_des_images
,album_d_imagesR
,nombre_de_chiffres
,FAUX
)
);
EDEFV(album,album_d_imagesR);
EDEFV(album,album_d_imagesA);
/* Definition des albums d'images Argument et Resultat... */
Eblock
ATes
Bblock
BDEFV(albumF,album_d_imagesA);
BDEFV(albumF,album_d_imagesR);
/* Definition des albums d'images Argument et Resultat... */
CALS(dAFinitialisation(album_d_imagesR,FZERO));
/* Initialisation de l'album Resultat. */
Test(EST_VRAI(les_imagesA_sont_standards))
/* Possibilite introduite le 20100623092431... */
Bblock
BDEFV(album,album_d_imagesA_standard);
/* Definition de l'album d'images Argument... */
CALi(idAload_album(album_d_imagesA_standard
,nom_albumA
,nom_postfixe
,premiere_image
,pas_des_images
,nombre_de_chiffres
,FAUX
,UNDEF
,inverser_l_axe_OZ
,incomplet_axe_OZ
,incomplet_axe_OZ_valeur_standard
)
);
/* Chargement de l'album Argument... */
CALS(Astd_float_brutal(album_d_imagesA,album_d_imagesA_standard));
/* Conversion de l'album Argument standard en un album non standard... */
EDEFV(album,album_d_imagesA_standard);
/* Definition de l'album d'images Argument... */
Eblock
ATes
Bblock
CALi(idAloadF_album(album_d_imagesA
,nom_albumA
,nom_postfixe
,premiere_image
,pas_des_images
,nombre_de_chiffres
,FAUX
,UNDEF
,inverser_l_axe_OZ
,incomplet_axe_OZ
,incomplet_axe_OZ_valeur_non_standard
)
);
/* Chargement de l'album Argument... */
/* */
/* L'argument 'Inv' (='FAUX') a ete parametre le 20100623084938 par 'inverser_l_axe_OZ'... */
Eblock
ETes
Test(PAS_D_ERREUR(CODE_ERREUR))
Bblock
Test(IL_FAUT(binariser_l_album))
/* Possibilite introduite le 20100624170147... */
Bblock
BDEFV(albumF,album_d_imagesA_binarise);
/* Definition de l'album d'images Argument binarise... */
CALS(AFbinarisation_generale(album_d_imagesA_binarise
,album_d_imagesA
,Fseuil
,Fniveau_inferieur,Fniveau_superieur
)
);
CALS(AFmove(album_d_imagesA,album_d_imagesA_binarise));
/* Binarisation de l'album d'images Argument... */
EDEFV(albumF,album_d_imagesA_binarise);
/* Definition de l'album d'images Argument binarise... */
Eblock
ATes
Bblock
Eblock
ETes
CALS(AFombrage(album_d_imagesR,album_d_imagesA));
/* Ombrage... */
Eblock
ATes
Bblock
Eblock
ETes
Test(EST_VRAI(les_imagesR_sont_standards))
/* Possibilite introduite le 20100624081619... */
Bblock
BDEFV(album,album_d_imagesR_standard);
/* Definition de l'album d'images Resultat... */
CALS(Afloat_std_brutal(album_d_imagesR_standard,album_d_imagesR));
/* Conversion de l'album Resultat non standard en un album standard... */
CALi(dAupdate_album(nom_albumR
,nom_postfixe
,premiere_image
,pas_des_images
,album_d_imagesR_standard
,nombre_de_chiffres
,FAUX
)
);
/* L'argument 'Inv' (='FAUX') a ete introduit le 20100624090629... */
EDEFV(album,album_d_imagesR_standard);
/* Definition de l'album d'images Resultat... */
Eblock
ATes
Bblock
CALi(dAupdateF_album(nom_albumR
,nom_postfixe
,premiere_image
,pas_des_images
,album_d_imagesR
,nombre_de_chiffres
,FAUX
)
);
/* L'argument 'Inv' (='FAUX') a ete introduit le 20100624090629... */
Eblock
ETes
EDEFV(albumF,album_d_imagesR);
EDEFV(albumF,album_d_imagesA);
/* Definition des albums d'images Argument et Resultat... */
Eblock
ETes
ESaveModifyVariable(Logical,S_ACCELERATEUR__ALOAD_POINT_COORDONNEES_01_____utiliser_l_accelerateur);
RETU_Commande;
Eblock
ECommande