#######################################################################################################################################
# #
# 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 8 - D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirs/.CAYA.O3.3.$U' : #
# #
# Jean-Francois COLONNA (20230205102851). #
# #
#######################################################################################################################################
$Z setParam _____UPrime 0
$Z setParam _____VPrime 0
$Z # Parametres introduits le 20230207120817... #
$Z SETParam _____NImages 1
$Z SETParam _____images $xTV/CAYA
$Z SETParam _____Permuter_ROX_ROY $NEXIST
$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... #
$Z endif
$Z SETParam _____ZCminimum 0.4
$Z SETParam _____ZCmaximum 1.0
$Z SETParam _____ZCminimumT 0.4
$Z SETParam _____ZCmaximumT 1.0
$Z SETParam _____Lister $NEXIST
$Z setParam _____Arg_CalabiYau "$K_VIDE"
$Z SETParam _____ZoomLister 1.0
$Z set LiStEr_PoInTs="$K_VIDE"
$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 $xrs/CalabiYau.32$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 u_prime=$_____UPrime \
$Z v_prime=$_____VPrime \
$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 chiffres=0 \
$Z R=$_____imagesR \
$Z $LiStEr_PoInTs \
$Z $_____Arg_CalabiYau \
$Z $formatI \
$Z > $FiChIeR_LiStE
$Z else
$Z Fvide $FiChIeR_LiStE
$Z endif