#######################################################################################################################################
#                                                                                                                                     #
#         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.R3.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (20230212100321).                                                                         #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Param_N1                 5
$Z                  setParam            _____Param_N2                 $_____Param_N1

$Z                  setParam            _____NParalleles              8
$Z                  setParam            _____NPParalleles             8

$Z                  setParam            _____NMeridiens               8
$Z                  setParam            _____NPMeridiens              8

$Z                  setParam            _____NProfondeurs             8
$Z                  setParam            _____NPProfondeurs            8

$Z                  setParam            _____NTemps                   8
$Z                  setParam            _____NPTemps                  8

$Z                  setParam            _____MinimumW                 -0.6
$Z                  setParam            _____MaximumW                 +0.6

$Z                  setParam            _____MinimumT                 -0.6
$Z                  setParam            _____MaximumT                 +0.6

$Z                  setParam            _____ProjectionOX             "xR1=1 xI1=0 xJ1=0 xK1=0 xR2=0 xI2=1 xJ2=0 xK2=0"
$Z                  setParam            _____ProjectionOY             "yR1=0 yI1=1 yJ1=0 yK1=0 yR2=0 yI2=1 yJ2=0 yK2=0"
$Z                  setParam            _____ProjectionOZ             "zR1=0 zI1=0 zJ1=0 zK1=0 zR2=1 zI2=1 zJ2=0 zK2=0"

$Z                  setParam            _____Tx                       +0.4
$Z                  setParam            _____Ty                       -0.15

$Z                  setParam            _____RotationOX               1.0
$Z                  setParam            _____RotationOY               4.0

$Z                  setParam            _____Zoom                     0.45

$Z                  setParam            _____Rayon                    0.020

$Z                  setParam            _____NAuCarre                 FAUX

$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            _____DepthCueing              0.25

$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