#######################################################################################################################################
#                                                                                                                                     #
#         N O R M A L I S A T I O N   D E S   C O O R D O N N E E S                                                                   #
#         D ' U N E   P Y R A M I D E   D E   S I E R P I N S K I   O B T E N U E   A   L ' A I D E                                   #
#         D E   " I T E R A T E D   F U N C T I O N   S E T " S  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.IFS3S.54.1.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20140812092126).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            FSpHeReS

$Z                  set       NoRmAlIsE_X="origine=0.05 extremite=0.95"
$Z                  set       NoRmAlIsE_Y="origine=0.25 extremite=0.95"
$Z                  set       NoRmAlIsE_Z="origine=0.10 extremite=0.90"

$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/SPHERES$COORD_X                                                                    \
$Z                                      $NoRmAlIsE_X                                                                                    \
$Z                                                                                                  >>! $FSpHeReS$COORD_X
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/SPHERES$COORD_Y                                                                    \
$Z                                      $NoRmAlIsE_Y                                                                                    \
$Z                                                                                                  >>! $FSpHeReS$COORD_Y
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/SPHERES$COORD_Z                                                                    \
$Z                                      $NoRmAlIsE_Z                                                                                    \
$Z                                                                                                  >>! $FSpHeReS$COORD_Z

$Z                  FilSTmpB            FLiStEP

$Z                  $PAST                                                                                                               \
$Z                                      $FSpHeReS$COORD_X                                                                               \
$Z                                      $FSpHeReS$COORD_Y                                                                               \
$Z                                      $FSpHeReS$COORD_Z                                                                         |     \
$Z                  $AW                 ' { print " X=" $1 " Y=" $2 " Z=" $3 " " } '                                                    \
$Z                                                                                                  >> $FLiStEP