#######################################################################################################################################
#                                                                                                                                     #
#         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   1 6 - D I M E N S I O N N E L L E  :          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.W8.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (20230227102453).                                                                         #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Param_N1                 5
$Z                  setParam            _____Param_N2                 $_____Param_N1

$Z                  setParam            _____NW1                      8
$Z                  setParam            _____NPW1                     8

$Z                  setParam            _____NW2                      8
$Z                  setParam            _____NPW2                     8

$Z                  setParam            _____NW3                      1
$Z                  setParam            _____NPW3                     1

$Z                  setParam            _____NW4                      1
$Z                  setParam            _____NPW4                     1

$Z                  setParam            _____NW5                      1
$Z                  setParam            _____NPW5                     1

$Z                  setParam            _____NW6                      1
$Z                  setParam            _____NPW6                     1

$Z                  setParam            _____NW7                      1
$Z                  setParam            _____NPW7                     1

$Z                  setParam            _____NW8                      1
$Z                  setParam            _____NPW8                     1

$Z                  setParam            _____MinimumW1                `GetParam $xrs/CalabiYau.82$X mw1`
$Z                  setParam            _____MaximumW1                `GetParam $xrs/CalabiYau.82$X Mw1`

$Z                  setParam            _____MinimumW2                `GetParam $xrs/CalabiYau.82$X mw2`
$Z                  setParam            _____MaximumW2                `GetParam $xrs/CalabiYau.82$X Mw2`

$Z                  setParam            _____MinimumW3                0
$Z                  setParam            _____MaximumW3                0

$Z                  setParam            _____MinimumW4                0
$Z                  setParam            _____MaximumW4                0

$Z                  setParam            _____MinimumW5                0
$Z                  setParam            _____MaximumW5                0

$Z                  setParam            _____MinimumW6                0
$Z                  setParam            _____MaximumW6                0

$Z                  setParam            _____MinimumW7                0
$Z                  setParam            _____MaximumW7                0

$Z                  setParam            _____MinimumW8                0
$Z                  setParam            _____MaximumW8                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