#######################################################################################################################################
# #
# V I S U A L I S A T I O N R E L A T I V I S T E D E L ' O B J E T : #
# #
# #
# Author of '$xivP/disk.000000006/face.1/.RELA.1.15.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z $DELETE $xTV/TEMPS
$Z $DELETE $xTV/ORDRE
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* [Tt]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/TEMPS
$Z set Npoints=`wc $xTV/TEMPS`
$Z set Npoints=$Npoints[$WC1]
$Z $xrv/tri.11$X ne=$Npoints \
$Z fichier=$xTV/TEMPS \
$Z trier=VRAI N_AU_CARRE=FAUX \
$Z permutation=VRAI \
$Z > $xTV/ORDRE
$Z $DELETE $xTV/COORD.1$COORD_X
$Z $DELETE $xTV/COORD.1$COORD_Y
$Z $DELETE $xTV/COORD.1$COORD_Z
$Z $DELETE $xTV/COORD.2$COORD_X
$Z $DELETE $xTV/COORD.2$COORD_Y
$Z $DELETE $xTV/COORD.2$COORD_Z
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* [Xx]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORD.1$COORD_X
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* [Yy]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORD.1$COORD_Y
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* [Zz]=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORD.1$COORD_Z
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COORD.1$COORD_X \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COORD.2$COORD_X
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COORD.1$COORD_Y \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COORD.2$COORD_Y
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COORD.1$COORD_Z \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COORD.2$COORD_Z
$Z $DELETE $xTV/COULEUR.1$ROUGE
$Z $DELETE $xTV/COULEUR.1$VERTE
$Z $DELETE $xTV/COULEUR.1$BLEUE
$Z $DELETE $xTV/COULEUR.2$ROUGE
$Z $DELETE $xTV/COULEUR.2$VERTE
$Z $DELETE $xTV/COULEUR.2$BLEUE
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COULEUR.1$ROUGE
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COULEUR.1$VERTE
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COULEUR.1$BLEUE
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COULEUR.1$ROUGE \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COULEUR.2$ROUGE
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COULEUR.1$VERTE \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COULEUR.2$VERTE
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/COULEUR.1$BLEUE \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/COULEUR.2$BLEUE
$Z $DELETE $xTV/RAYON.1
$Z $DELETE $xTV/RAYON.2
$Z $CA $xTV/HISTORIQUE \
$Z | $SE \
$Z -e "s/.* RAYON=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/RAYON.1
$Z $xrv/permute.11$X ne=$Npoints \
$Z fichier=$xTV/RAYON.1 \
$Z permutation=$xTV/ORDRE \
$Z > $xTV/RAYON.2
$Z $DELETE $xTV/HISTORIQUE
$Z SET Particule0=1
$Z @ ParticuleN = $NAretes * $NConnexions
$Z SETENV Paquet0 $Particule0
$X echo "neutre"
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern char *getenv();
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define DEBUT (atoi(getenv("Paquet0")))
$c #define FIN ((atoi(getenv("NAretes")))*(atoi(getenv("NConnexions"))))
$c
$c int main()
$c {
$c int longueur=FIN-DEBUT+1;
$c int debut=DEBUT,fin=FIN;
$c
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$DELETE $xTV/COORD$COORD_X\n");
$c printf("$DELETE $xTV/COORD$COORD_Y\n");
$c printf("$DELETE $xTV/COORD$COORD_Z\n");
$c
$c printf("listMN
$c $xTV/COORD.2$COORD_X
$c %d %d > $xTV/COORD$COORD_X\n"
$c ,debut,fin
$c );
$c printf("listMN
$c $xTV/COORD.2$COORD_Y
$c %d %d > $xTV/COORD$COORD_Y\n"
$c ,debut,fin
$c );
$c printf("listMN
$c $xTV/COORD.2$COORD_Z
$c %d %d > $xTV/COORD$COORD_Z\n"
$c ,debut,fin
$c );
$c
$c printf("$DELETE $xTV/COULEUR$ROUGE\n");
$c printf("$DELETE $xTV/COULEUR$VERTE\n");
$c printf("$DELETE $xTV/COULEUR$BLEUE\n");
$c
$c printf("listMN
$c $xTV/COULEUR.2$ROUGE
$c %d %d > $xTV/COULEUR$ROUGE\n"
$c ,debut,fin
$c );
$c printf("listMN
$c $xTV/COULEUR.2$VERTE
$c %d %d > $xTV/COULEUR$VERTE\n"
$c ,debut,fin
$c );
$c printf("listMN
$c $xTV/COULEUR.2$BLEUE
$c %d %d > $xTV/COULEUR$BLEUE\n"
$c ,debut,fin
$c );
$c
$c printf("$DELETE $xTV/RAYON\n");
$c
$c printf("listMN
$c $xTV/RAYON.2
$c %d %d > $xTV/RAYON\n"
$c ,debut,fin
$c );
$c
$c printf("$xrv/particule.10$X
$c np=1 iterations=%d
$c coordonnees_dans_0_1=FAUX
$c AXYZ=1 BXYZ=0
$c LISTE_X=$xTV/COORD$COORD_X
$c LISTE_Y=$xTV/COORD$COORD_Y
$c LISTE_Z=$xTV/COORD$COORD_Z
$c Ar=1.0 Br=0
$c LISTE_RAYON=$xTV/RAYON
$c ARVB=1 BRVB=0
$c LISTE_ROUGE=$xTV/COULEUR$ROUGE
$c LISTE_VERTE=$xTV/COULEUR$VERTE
$c LISTE_BLEUE=$xTV/COULEUR$BLEUE
$c Lz=1000
$c zoom_automatique=FAUX ZOOM=1.0
$c isoles=VRAI
$c cubique=FAUX
$c RVB=VRAI
$c R=$xTV/RELA.1.
$c $formatI\n"
$c ,longueur
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/RELA.1.%04d$ROUGE
$c R=$_____images2.%04d$ROUGE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/RELA.1.%04d$VERTE
$c R=$_____images2.%04d$VERTE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/RELA.1.%04d$BLEUE
$c R=$_____images2.%04d$BLEUE
$c $formatI\n"
$c ,N0,n
$c );
$c
$c debut = debut+longueur;
$c fin = fin+longueur;
$c }
$c }
$Z $DELETE $xTV/TEMPS
$Z $DELETE $xTV/ORDRE
$Z $DELETE $xTV/COORD.1$COORD_X
$Z $DELETE $xTV/COORD.1$COORD_Y
$Z $DELETE $xTV/COORD.1$COORD_Z
$Z $DELETE $xTV/COORD.2$COORD_X
$Z $DELETE $xTV/COORD.2$COORD_Y
$Z $DELETE $xTV/COORD.2$COORD_Z
$Z $DELETE $xTV/COORD$COORD_X
$Z $DELETE $xTV/COORD$COORD_Y
$Z $DELETE $xTV/COORD$COORD_Z
$Z $DELETE $xTV/RAYON.1
$Z $DELETE $xTV/RAYON.2
$Z $DELETE $xTV/RAYON
$Z $DELETE $xTV/COULEUR.1$ROUGE
$Z $DELETE $xTV/COULEUR.1$VERTE
$Z $DELETE $xTV/COULEUR.1$BLEUE
$Z $DELETE $xTV/COULEUR.2$ROUGE
$Z $DELETE $xTV/COULEUR.2$VERTE
$Z $DELETE $xTV/COULEUR.2$BLEUE
$Z $DELETE $xTV/COULEUR$ROUGE
$Z $DELETE $xTV/COULEUR$VERTE
$Z $DELETE $xTV/COULEUR$BLEUE