#######################################################################################################################################
# #
# S U R J E C T I O N F R A C T A L E D E [ 0 , 1 ] D A N S [ 0 , 1 ] x [ 0 , 1 ] x [ 0 , 1 ] D E P E A N O : #
# #
# #
# Author of '$xiirv/.PEAN.81.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220430082702). #
# #
#######################################################################################################################################
$Z setParam _____MinX 0.05
$Z setParam _____MaxX 0.95
$Z setParam _____MinY 0.05
$Z setParam _____MaxY 0.95
$Z setParam _____MinZ 0.05
$Z setParam _____MaxZ 0.95
$Z setParam _____DemiPaveX `GetParam $xrv/store_album$X demi_pave_X`
$Z setParam _____DemiPaveY `GetParam $xrv/store_album$X demi_pave_Y`
$Z setParam _____DemiPaveZ `GetParam $xrv/store_album$X demi_pave_Z`
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*X=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinX MR=$_____MaxX \
$Z > $LiStEPoInTs$COORD_X
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Y=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinY MR=$_____MaxY \
$Z > $LiStEPoInTs$COORD_Y
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Z=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinZ MR=$_____MaxZ \
$Z > $LiStEPoInTs$COORD_Z
$Z # On notera le 20130626081843 que si la courbe est dans un plan {X,Y}, alors la coordonnee #
$Z # 'Z' est constante. Sa valeur normalisee est alors nulle ce qui est ennuyeux pour les #
$Z # rotations tridimensionnelles qui demandent que l'objet soit centre dans l'espace ; dans #
$Z # cas il faudrait avoir Z=0.5 a la place de Z=0... #
$Z $xrv/store_album$X \
$Z ne=0 \
$Z LISTE_X=$LiStEPoInTs$COORD_X \
$Z LISTE_Y=$LiStEPoInTs$COORD_Y \
$Z LISTE_Z=$LiStEPoInTs$COORD_Z \
$Z LISTE_NIVEAU=1 \
$Z demi_pave_X=$_____DemiPaveX \
$Z demi_pave_Y=$_____DemiPaveY \
$Z demi_pave_Z=$_____DemiPaveZ \
$Z epaississement_spherique=VRAI \
$Z tester_hors_bornes_naturelles=FAUX \
$Z premiere=$cPremiere \
$Z R=$_____ImageT1. \
$Z Zmin=0 Zmax=`calcul $cDerniere-$cPremiere` \
$Z $formatI