#######################################################################################################################################
#                                                                                                                                     #
#         C R O I X   F R A C T A L E   T R I D I M E N S I O N N E L L E   A V E C   S P L I N E S  :                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CROF.42.$U' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20130701140233).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____GraineX                  1789

$Z                  setParam            _____GraineY                  1947

$Z                  setParam            _____GraineZ                  2001

$Z                  set       _____Cubique=FAUX
$m4                 _____include(_____xiirv/.HILB.11._____U)
$Z                  set       _____Cubique=VRAI

$Z                  set       ItErEr=$EXIST
$Z                  set       CoMpTeUr=0
$Z                  set       BoRnEs=0

$Z                  set       _____ParticuleFond="$K_VIDE"
$Z                  set       _____ParticuleFond="$_____ParticuleFond"" fond=VRAI"
$Z                  set       _____ParticuleFond="$_____ParticuleFond"" F=$_____ImageR.1"

$Z                  while     ($ItErEr == $EXIST)
$Z                            execRVB   $xci/neutre$X                                                                                   \
$Z                                                          A=$_____ImageR%s                                                            \
$Z                                                          R=$_____ImageR.1%s                                                          \
$Z                                                                                                            $formatI

$Z                            FileTmpB  FSpLiNeS

$Z                            set  BoRnEs=`$xcg/ADD2.01$X a=$BoRnEs b=0.1 signe="$K_VIDE"`

$Z                            set       _____DeriveeX=$FSpLiNeS$COORD_X
$Z                            $xci/valeurs_alea$X premiere=1 derniere=$Npart                                                            \
$Z                                                graine=$_____GraineX                                                                  \
$Z                                                inf=-$BoRnEs sup=+$BoRnEs                                                             \
$Z                                                                                                            > $_____DeriveeX

$Z                            set       _____DeriveeY=$FSpLiNeS$COORD_Y
$Z                            $xci/valeurs_alea$X premiere=1 derniere=$Npart                                                            \
$Z                                                graine=$_____GraineY                                                                  \
$Z                                                inf=-$BoRnEs sup=+$BoRnEs                                                             \
$Z                                                                                                            > $_____DeriveeY

$Z                            set       _____DeriveeZ=$FSpLiNeS$COORD_Z
$Z                            $xci/valeurs_alea$X premiere=1 derniere=$Npart                                                            \
$Z                                                graine=$_____GraineZ                                                                  \
$Z                                                inf=-$BoRnEs sup=+$BoRnEs                                                             \
$Z                                                                                                            > $_____DeriveeZ

$m4                           _____include(_____xiirv/.HILB.11._____U)

$Z                            FileTmpE  FSpLiNeS

$Z                            @         CoMpTeUr = $CoMpTeUr + 1
$Z                            if        ($CoMpTeUr >= $_____NSplines) then
$Z                                      set       ItErEr=$NEXIST
$Z                            else
$Z                            endif
$Z                  end

$Z                  execRVB   $xci/neutre$X                                                                                             \
$Z                                                A=$_____ImageR%s                                                                      \
$Z                                                R=$xiirv/`GetLeaf $_____ImageR`%s                                                     \
$Z                                                                                                  $formatI