#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D ' U N E   D O U B L E   H E L I C E  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HELI.21.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20131119123347).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 PaRaMeTrEs="$K_VIDE"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" p=$_____Palette"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" centrer_coordonnees=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" isoles=FAUX chainer=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" ajuster_points=VRAI equidistance=VRAI"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" distance_minimale=$_____DistanceMini"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" Vrayon=$_____VRayon"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" grossissement=$_____Grossissement"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" Lz=1000"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" ZOOM=$_____Zoom"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" Zmaximum=1 ZmaximumT=1"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" N_au_carre=FAUX"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" fond=VRAI F=$_____ImageR"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" Zfond=VRAI ZF=$ZBuFfEr ATTENTION=FAUX CAL1=FAUX"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" ZBuffer=VRAI Z=$ZBuFfEr ATTENTION=FAUX"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" $_____ParticulePara2"
$Z                  set                 PaRaMeTrEs="$PaRaMeTrEs"" chiffres=0"
$Z                                      # Les parametres "ATTENTION=FAUX CAL1=FAUX" sont destines a eliminer les messages edites      #
$Z                                      # par 'v $xiii/files$FON VERIFICATION_HEURISTIQUE_DES_genere_Float' ainsi que ceux de         #
$Z                                      # 'v $xrv/champs_5.1A$I PRINT_ATTENTION..c.est.le..Z.Buffer..qui.va.etre.memorise.'           #

$Z                  if                  ($?LiStE_RAYON_1 == $NEXIST) then
$Z                                      set                 LiStE_RAYON_1="$K_VIDE"
$Z                  else
$Z                  endif

$Z                  if                  ($?LiStE_RAYON_2 == $NEXIST) then
$Z                                      set                 LiStE_RAYON_2="$K_VIDE"
$Z                  else
$Z                  endif

$Z                  eval      $xrv/particule.10$X npoints=$_____NPaires                                                                 \
$Z                                                LISTE_X=$FCoOrDoNnEeS$COORD_X.1                                                       \
$Z                                                LISTE_Y=$FCoOrDoNnEeS$COORD_Y.1                                                       \
$Z                                                LISTE_Z=$FCoOrDoNnEeS$COORD_Z.1                                                       \
$Z                                                LISTE_NIVEAU=$FNivEaUx.1                                                              \
$Z                                                $LiStE_RAYON_1                                                                        \
$Z                                                $PaRaMeTrEs                                                                           \
$Z                                                R=$_____ImageR                                                                        \
$Z                                                                                                                      $formatI        \
$Z                                                                                                            $_____Redirection
$Z                                      # Le 'eval' a ete introduit le 20140203100440 a cause de l'eventuelle '$_____Redirection'...  #

$Z                  eval      $xrv/particule.10$X npoints=$_____NPaires                                                                 \
$Z                                                LISTE_X=$FCoOrDoNnEeS$COORD_X.2                                                       \
$Z                                                LISTE_Y=$FCoOrDoNnEeS$COORD_Y.2                                                       \
$Z                                                LISTE_Z=$FCoOrDoNnEeS$COORD_Z.2                                                       \
$Z                                                LISTE_NIVEAU=$FNivEaUx.2                                                              \
$Z                                                $LiStE_RAYON_2                                                                        \
$Z                                                $PaRaMeTrEs                                                                           \
$Z                                                R=$_____ImageR                                                                        \
$Z                                                                                                                      $formatI        \
$Z                                                                                                            $_____Redirection
$Z                                      # Le 'eval' a ete introduit le 20140203100440 a cause de l'eventuelle '$_____Redirection'...  #