#######################################################################################################################################
# #
# 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.A1.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20091104172820). #
# #
#######################################################################################################################################
$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 _____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 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=1.0"
$Z
$Z set FiChIeR_LiStE=$xTV/LISTE_POINTS
$Z
$Z $DELETE $FiChIeR_LiStE
$Z endif
$Z $xrs/CalabiYau.11$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_K1=$_____Param_K1 \
$Z PARAMETRE_K2=$_____Param_K2 \
$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=0.4 Zmaximum=1.0 ZminimumT=0.4 ZmaximumT=1.0 \
$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... #