#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N P L A N P E R T U B E V E R T I C A L E M E N T P A R U N E I M A G E #
# P A R L A M E T H O D E D E S P R O J E C T O R S : #
# #
# #
# Author of '$xiirs/.PROK.G1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20191110092821). #
# #
#######################################################################################################################################
$Z SETParam _____NormaliserFx $NEXIST
$Z SETParam _____NormaliserFy $NEXIST
$Z SETParam _____NormaliserFz $NEXIST
$Z setParam _____Pnp 40
$Z setParam _____Pnpip 40
$Z setParam _____Pnm 40
$Z setParam _____Pnpim 40
$Z setParam _____dxyzFxyz "$K_VIDE"
$Z setParam _____FacteurX 1
$Z setParam _____FacteurY 1
$Z setParam _____FacteurZ 1
$Z setParam _____Zoom 1.0
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____TranslationX 0
$Z setParam _____TranslationY 0
$Z setParam _____TranslationZ 0
$Z setParam _____DepthCueing 0.2
$Z # On rappelle que : #
$Z # #
$Z # _____DepthCueing=1 : pas de depth-cueing, #
$Z # _____DepthCueing=0 : depth-cueing maximal. #
$Z # #
$Z setParam _____Rayon 0.012
$Z setParam _____Fz_prolonger_u FAUX
$Z setParam _____Fz_periodiser_u VRAI
$Z setParam _____Fz_prolonger_v FAUX
$Z setParam _____Fz_periodiser_v VRAI
$Z setParam _____NAuCarre VRAI
$Z # Parametre introduit le 20191110165045... #
$Z setParam _____Arguments "$K_VIDE"
$Z if ($_____NormaliserFx == $EXIST) then
$Z $xci/normalise.01$X \
$Z A=$xTV/Fx \
$Z R=$xTV/Fx \
$Z $formatI
$Z else
$Z endif
$Z if ($_____NormaliserFy == $EXIST) then
$Z $xci/normalise.01$X \
$Z A=$xTV/Fy \
$Z R=$xTV/Fy \
$Z $formatI
$Z else
$Z endif
$Z if ($_____NormaliserFz == $EXIST) then
$Z $xci/normalise.01$X \
$Z A=$xTV/Fz \
$Z R=$xTV/Fz \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____ImagesRFx == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fx \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____ImagesRFx \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____ImagesRFy == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fy \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____ImagesRFy \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____ImagesRFz == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fz \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____ImagesRFz \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____ImagesRZ == $EXIST) then
$Z set Z_BuFfEr="Z-Buffer=VRAI imageZ=$_____ImagesRZ mrz=VRAI"
$Z else
$Z set Z_BuFfEr="$K_VIDE"
$Z endif
$Z set Parametres="$K_VIDE"
$Z set Parametres="$Parametres"" np=1"
$Z set Parametres="$Parametres"" brume=FAUX"
$Z set Parametres="$Parametres"" nombre_paralleles=$_____Pnp"
$Z set Parametres="$Parametres"" nombre_points_entre_deux_paralleles=$_____Pnpip"
$Z set Parametres="$Parametres"" nombre_meridiens=$_____Pnm"
$Z set Parametres="$Parametres"" nombre_points_entre_deux_meridiens=$_____Pnpim"
$Z set Parametres="$Parametres"" faciliter_parametrage_u_v=VRAI"
$Z set Parametres="$Parametres"" $_____dxyzFxyz"
$Z set Parametres="$Parametres"" ddu=0.001 ddv=0.001"
$Z set Parametres="$Parametres"" ZOOM=$_____Zoom"
$Z set Parametres="$Parametres"" ROTATION_OX=$_____RotationX"
$Z set Parametres="$Parametres"" ROTATION_OY=$_____RotationY"
$Z set Parametres="$Parametres"" ROTATION_OZ=$_____RotationZ"
$Z set Parametres="$Parametres"" TRANSLATION_OX=$_____TranslationX"
$Z set Parametres="$Parametres"" TRANSLATION_OY=$_____TranslationY"
$Z set Parametres="$Parametres"" TRANSLATION_OZ=$_____TranslationZ"
$Z set Parametres="$Parametres"" Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing"
$Z set Parametres="$Parametres"" Zmaximum=1 ZmaximumT=1"
$Z set Parametres="$Parametres"" Lz=100"
$Z set Parametres="$Parametres"" rayon_de_visualisation=$_____Rayon"
$Z set Parametres="$Parametres"" N_AU_CARRE=$_____NAuCarre"
$Z set Parametres="$Parametres"" edc=VRAI"
$Z $xrs/project2D.11$X \
$Z aFx=$_____FacteurX Fx=$xTV/Fx \
$Z aFy=$_____FacteurY Fy=$xTV/Fy \
$Z aFz=$_____FacteurZ Fz=$xTV/Fz \
$Z mu=0 Mu=1.0 \
$Z mv=0 Mv=1.0 \
$Z Fx_periodiser_u=FAUX Fy_periodiser_u=FAUX Fz_periodiser_u=$_____Fz_periodiser_u \
$Z Fx_symetriser_u=FAUX Fy_symetriser_u=FAUX Fz_symetriser_u=FAUX \
$Z Fx_prolonger_u=VRAI Fy_prolonger_u=VRAI Fz_prolonger_u=$_____Fz_prolonger_u \
$Z Fx_periodiser_v=FAUX Fy_periodiser_v=FAUX Fz_periodiser_v=$_____Fz_periodiser_v \
$Z Fx_symetriser_v=FAUX Fy_symetriser_v=FAUX Fz_symetriser_v=FAUX \
$Z Fx_prolonger_v=VRAI Fy_prolonger_v=VRAI Fz_prolonger_v=$_____Fz_prolonger_v \
$Z $Parametres \
$Z $Z_BuFfEr \
$Z chiffres=0 \
$Z R=$_____ImagesR \
$Z $_____Arguments \
$Z $formatI
$Z # Les champs {Fx,Fy} n'etant pas periodiques (contrairement a {Fz}) ne doivent pas etre #
$Z # "periodises" mais "prolonges". Dans le cas contraire, cela donne des artefacts (des points #
$Z # "incoherents") lies a des problemes d'interpolations aux bords des champs, lorsqu'il faut #
$Z # utiliser la periodicite supposee mais inexistante... #