#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D ' U N E   T A P I S S E R I E   D E   N O E U D S  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.KNOT.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20060821173402).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Iterations               5

$Z                  setParam            _____Aduv                     +1

$Z                  setParam            _____Bduv                     -1

$Z                  setParam            _____Cduv                     0

$Z                  setParam            _____Zoom                     1

$Z                  setParam            _____RotationOX               0.0

$Z                  setParam            _____RotationOY               0.0

$Z                  setParam            _____RotationOZ               0.0

$Z                  set       N_Au_CaRrE=VRAI
$Z                                      # Pour simplifier l'acceleration temporaires du processus lors de tests de mise au point      #
$Z                                      # des parametres...                                                                           #

$Z                  if        ($?_____SurfaceA == $EXIST) then

$Z                            set       SurfaceEffective=$_____SurfaceA

$Z                            if        (! -e $SurfaceEffective) then
$Z                                      set       SurfaceEffective=$xrs/$SurfaceEffective

$Z                                      if        (! -e $SurfaceEffective) then
$Z                                                set       SurfaceEffective=$SurfaceEffective$X
$Z                                      else
$Z                                      endif
$Z                            else
$Z                            endif

$Z                  setParam            _____Pu                       0.5

$Z                  setParam            _____Pv                       0.5

$Z                  setParam            _____SurfaceParam1            "$K_VIDE"

$Z                  setParam            _____SurfaceParam2            "$K_VIDE"

$Z                  setParam            _____RayonDroite              0.200

$Z                            execRVB   $xci/init$X         niveau=$NOIR R=$xTV/FOND%s              $formatI
$Z                                      # Initialisation du fond...                                                                   #

$Z                            set       CoMpTeUr=$_____Iterations

$Z                            while     ($CoMpTeUr > 0)
$Z                                      $SurfaceEffective                                                                               \
$Z                                                          np=1                                                                        \
$Z                                                          pu=$_____Pu pv=$_____Pv                                                     \
$Z                                                          eu=40       ev=40                                                           \
$Z                                                          dpu=80      dpv=80                                                          \
$Z                                                          maillage_uv=FAUX droite_uv=VRAI                                             \
$Z                                                          tracer_une_droite_du_plan_uv_____compatibilite_20170130=VRAI                \
$Z                                                          Aduv=$_____Aduv Bduv=$_____Bduv Cduv=$_____Cduv                             \
$Z                                                          Lz=1000                                                                     \
$Z                                                          ROTATION_OX=$_____RotationOX                                                \
$Z                                                          ROTATION_OY=$_____RotationOY                                                \
$Z                                                          ROTATION_OZ=$_____RotationOZ                                                \
$Z                                                          ZOOM=$_____Zoom                                                             \
$Z                                                          rayon_de_visualisation=$_____RayonDroite                                    \
$Z                                                          N_AU_CARRE=$N_Au_CaRrE                                                      \
$Z                                                          extrema_differentielles_veritables=VRAI                                     \
$Z                                                          extrema_hors=FAUX                                                           \
$Z                                                          fond=VRAI F=$xTV/FOND                                                       \
$Z                                                          $_____SurfaceParam1                                                         \
$Z                                                          $_____SurfaceParam2                                                         \
$Z                                                          R=$xTV/SURFACE chiffres=0                                                   \
$Z                                                                                                            $formatI
$Z                                      # Definition d'une droite de la surface...                                                    #
$Z
$Z                                      @         CoMpTeUr = $CoMpTeUr - 1
$Z
$Z                                      if        ($CoMpTeUr > 0) then
$Z                                                execRVB   $xci/tapisserie$X   A=$xTV/SURFACE%s R=$xTV/FOND%s          $formatI
$Z                                      # Generation du fond, sauf la derniere fois...                                                #
$Z                                      else
$Z                                      endif
$Z                            end

$Z                            execRVB   $xci/neutre$X       A=$xTV/SURFACE%s R=$_____ImageR%s                 $formatI
$Z                                      # Initialisation du fond...                                                                   #
$Z                  else
$Z                            EROR                "La surface '$_____SurfaceA' n'existe pas."
$Z                  endif