#######################################################################################################################################
# #
# V I S U A L I S A T I O N D ' U N E S T R U C T U R E D E T Y P E #
# P E A N O T R I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiird/.PEA3.1.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20060209175400). #
# #
#######################################################################################################################################
$Z setParam _____Donnees $xie/Peano_3D.Filoche.11
$Z setParam _____Palette $xiP/cercle.35
$Z setParam _____TranslationX -0.15
$Z setParam _____TranslationY -0.17
$Z setParam _____TranslationZ 0
$Z setParam _____RotationX +2.0
$Z setParam _____RotationY +0.4
$Z setParam _____RotationZ 0
$Z setParam _____Zoom 1.05
$Z setParam _____Rayon 0.005
$Z setParam _____Zminimum 0.05
#20250211120737____:$Z setenv LONGUEUR_NOMS 64 #
$Z set DoNnEeS=`GetXTmp`
$Z $CP $_____Donnees$GZIP $DoNnEeS$GZIP
$Z $UNCOMPRES $DoNnEeS$GZIP
$Z # Duplication, puis decompression des donnees... #
$Z $CA $DoNnEeS | \
$Z $GRE -v '^#' | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/normalise.01$X ne=0 fichier== minimum=0 maximum=1 \
$Z > $DoNnEeS$COORD_X
$Z # Recuperation des coordonnees 'X'... #
$Z $CA $DoNnEeS | \
$Z $GRE -v '^#' | \
$Z $AW ' { print $2 } ' | \
$Z $xrv/normalise.01$X ne=0 fichier== minimum=0 maximum=1 \
$Z > $DoNnEeS$COORD_Y
$Z # Recuperation des coordonnees 'Y'... #
$Z $CA $DoNnEeS | \
$Z $GRE -v '^#' | \
$Z $AW ' { print $3 } ' | \
$Z $xrv/normalise.01$X ne=0 fichier== minimum=0 maximum=0.5 \
$Z > $DoNnEeS$COORD_Z
$Z # Recuperation des coordonnees 'Z'... #
$Z $CA $DoNnEeS | \
$Z $GRE -v '^#' | \
$Z $AW ' { print $5 } ' | \
$Z $xrv/normalise.01$X ne=0 fichier== minimum=$NOIR_PLANCHER maximum=$BLANC \
$Z > $DoNnEeS$RVB
$Z # Recuperation des "activites" definissant les niveaux... #
$Z set NpointsX=`$CA $DoNnEeS$COORD_X | $WCl`
$Z set NpointsY=`$CA $DoNnEeS$COORD_Y | $WCl`
$Z set NpointsZ=`$CA $DoNnEeS$COORD_Z | $WCl`
#20220615102305____:$Z set NpointsXYZ=`$xcg/MAX3.01$X x=$NpointsX y=$NpointsY z=$NpointsZ` #
$Z set NpointsXYZ=`$xcg/MIN3.01$X x=$NpointsX y=$NpointsY z=$NpointsZ`
$Z set NpointsN=`$CA $DoNnEeS$RVB | $WCl`
$Z set Npoints=`$xcg/MIN2.01$X a=$NpointsXYZ b=$NpointsN`
$Z $xrv/particule.10$X \
$Z npoints=$Npoints \
$Z LISTE_X=$DoNnEeS$COORD_X \
$Z LISTE_Y=$DoNnEeS$COORD_Y \
$Z LISTE_Z=$DoNnEeS$COORD_Z \
$Z ARVB=1 BRVB=0 \
$Z LISTE_NIVEAU=$DoNnEeS$RVB \
$Z palette=$_____Palette \
$Z TRANSLATION_OX=$_____TranslationX \
$Z TRANSLATION_OY=$_____TranslationY \
$Z TRANSLATION_OZ=$_____TranslationZ \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OZ=$_____RotationZ \
$Z ZOOM=$_____Zoom \
$Z rayon_de_visualisation=$_____Rayon \
$Z ZminimumT=$_____Zminimum ZmaximumT=1.0 Zminimum=$_____Zminimum Zmaximum=1.0 \
$Z Lz=100 \
$Z N_AU_CARRE=FAUX \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # ATTENTION : a l'ordre des rotations {OY,OX,OZ}... #
$Z $DELETE $DoNnEeS >& $nul
$Z $DELETE $DoNnEeS.* >& $nul