#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E D E C A L A B I - Y A U 4 - D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirs/.CAYA.11.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____NImages 1
$Z # Passage de 'set' a 'SET' le 20060608141036 pour 'v $xias/$Fnota Debut_listG_CAYA_81_16'... #
$Z SETParam _____images $xTV/CAYA
$Z SETParam _____Permuter_ROX_ROY $NEXIST
$Z # Parametre introduit le 20090404102241 afin de pouvoir choisir l'ordre des deux rotations... #
$Z if ($_____Permuter_ROX_ROY == $NEXIST) then
$Z set L_RoTaTiOnS=("ROTATION_OX=$_____RotationOX" "ROTATION_OY=$_____RotationOY")
$Z else
$Z set L_RoTaTiOnS=("ROTATION_OY=$_____RotationOY" "ROTATION_OX=$_____RotationOX")
$Z # Ainsi l'ordre des rotations 'OX' et 'OY' est parametrable (introduit le 20090404102241). #
$Z endif
$Z SETParam _____ZCminimum 0.4
$Z # Parametre introduit le 20110712113030... #
$Z SETParam _____ZCmaximum 1.0
$Z # Parametre introduit le 20110712113030... #
$Z SETParam _____ZCminimumT 0.4
$Z # Parametre introduit le 20110712113030... #
$Z SETParam _____ZCmaximumT 1.0
$Z # Parametre introduit le 20110712113030... #
$Z SETParam _____Lister $NEXIST
$Z # Parametre introduit le 20090405090527 afin de pouvoir faire des rotations a posteriori en #
$Z # plus des rotations a priori ('$_____RotationOX' et '$_____RotationOY'). #
$Z setParam _____Arg_CalabiYau "$K_VIDE"
$Z # Parametre introduit le 20090617161118 afin de pouvoir faire une anamorphose des images #
$Z # (c'est ainsi le cas de 'v $xias/$Fnota Debut_listG_HauteDefinitionStereoscopique_CAYA_C2'). #
$Z SETParam _____ZoomLister 1.0
$Z # Parametre introduit le 20121116091951... #
$Z set LiStEr_PoInTs="$K_VIDE"
$Z # La variable '$LiStEr_PoInTs' a ete placee a l'exterieur du 'if(...)' suivant afin d'etre #
$Z # systematiquement definie... #
$Z if ($_____Lister == $NEXIST) then
$Z set FiChIeR_LiStE=$nul
$Z else
$Z set LiStEr_PoInTs="$LiStEr_PoInTs"" lister_les_points=VRAI"
$Z set LiStEr_PoInTs="$LiStEr_PoInTs"" lister_les_points_apres=VRAI"
$Z set LiStEr_PoInTs="$LiStEr_PoInTs"" zoom_automatique=FAUX ZOOM=$_____ZoomLister"
$Z
$Z set FiChIeR_LiStE=$xTV/LISTE_POINTS
$Z
$Z $DELETE $FiChIeR_LiStE
$Z endif
$Z if ("$_____images" != "$K_VIDE") then
$Z # Test introduit le 20200727112534 pour 'v $xiirs/ESPA.13'... #
$Z $xrs/CalabiYau.12$X \
$Z np=$_____NImages \
$Z pu=$_____Pas_u pv=$_____Pas_v \
$Z eu=$_____Echantillon_u ev=$_____Echantillon_v \
$Z dpu=$_____DPas_u dpv=$_____DPas_v \
$Z PARAMETRE_N1=$_____Param_N1 \
$Z PARAMETRE_N2=$_____Param_N2 \
$Z TR=$xTV/TEXTURE$ROUGE \
$Z TV=$xTV/TEXTURE$VERTE \
$Z TB=$xTV/TEXTURE$BLEUE \
$Z Zminimum=$_____ZCminimum Zmaximum=$_____ZCmaximum \
$Z ZminimumT=$_____ZCminimumT ZmaximumT=$_____ZCmaximumT \
$Z r=$_____Rayon \
$Z N2=FAUX \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z $L_RoTaTiOnS \
$Z TRANSLATION_OX=$_____Tx \
$Z TRANSLATION_OY=$_____Ty \
$Z N_au_carre=$_____NAuCarre \
$Z CAL1=FAUX \
$Z R=$_____images. \
$Z $LiStEr_PoInTs \
$Z $_____Arg_CalabiYau \
$Z $formatI \
$Z > $FiChIeR_LiStE
$Z # Le parametre "N_au_carre=" a ete introduit le 20071017093159... #
$Z else
$Z Fvide $FiChIeR_LiStE
$Z endif