#######################################################################################################################################
# #
# M O D U L E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.PRIM.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z unsetenv PremiereA
$Z unsetenv DerniereA
$Z
$Z SET tPremiereA=1
#20150220181157____:$Z SET tDerniereA=0128 #
$Z SET tDerniereA=128
$Z set Premiere=$tPremiereA
$Z @ NimagesA = $tDerniereA - $tPremiereA
$Z @ NimagesA = $NimagesA + 1
$Z @ Nimages = $NimagesA
$Z @ Nimages = $Nimages - 1
$Z @ Derniere = $Premiere + $Nimages
$Z @ Derniere = $Derniere - 1
$Z
$Z SETENV PremiereA $tPremiereA
$Z SETENV DerniereA $tDerniereA
$Z unsetenv Theta0
$Z SETENV Theta0 $_____Theta0
$Z unsetenv ThetaN
$Z SETENV ThetaN $_____ThetaN
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z Pal
$Z
$Z set Part0=$_____Part0
$Z set PartN=$_____PartN
$Z
$Z @ PointsXY = $PartN - $Part0
$Z @ PointsXY = $PointsXY + 1
$Z
$Z unsetenv PointsXY
$Z setenv PointsXY $PointsXY
$Z # Jusqu'au 20021106165215, il y avait ci-dessus : #
$Z # #
$Z # setenv PointsXY=$PointsXY #
$Z # #
$Z # ce qui est plus que bizarre... #
$Z
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/NIVEAUX
$Z $DELETE $xTV/RAYONS
$Z
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z set RacPointsXY=`$xcg/RACX.01$X x=$PointsXY`
$Z set dimXY=`$xcg/MIN2.01$X x=$dimX y=$dimY`
$Z set Rapport=`$xcg/DIVZ.01$X x=$dimXY y=$RacPointsXY`
$Z
$Z set Pas=`$xcg/DIVZ.01$X x=$Rapport y=8 entier=VRAI`
$Z
$Z set Rayon=`$xcg/DIVZ.01$X x=$Rapport y=$_____Rayon`
$Z
$Z $xci/valeurs_prem$X \
$Z premiere=$Part0 \
$Z derniere=$PartN \
$Z > $xTV/NIVEAUX
$Z $DELETE $xTV/RHO
$Z $DELETE $xTV/THETA
$Z
$Z $xci/valeurs_inte$X \
$Z premiere=$Part0 \
$Z derniere=$PartN \
$Z cubique=FAUX \
$Z vD=$_____Rho0 vA=$_____RhoN \
$Z > $xTV/RHO
$Z $CA $xTV/NIVEAUX \
$Z > $xTV/COORDONNEES$COORD_Z
$Z $xrv/PUIX.01$X \
$Z ne=$PointsXY \
$Z fichier=$xTV/NIVEAUX \
$Z exposant=0.5 \
$Z > $xTV/RAYONS
$Z
$Z set Premiers=2
$Z @ NonPremiers = $Premiers + 1
$Z
$Z $xrv/TRON.01$X \
$Z ne=$PointsXY \
$Z fichier=$xTV/NIVEAUX \
$Z origine=$Premiers extremite=$NonPremiers | \
$Z $SE \
$Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \
$Z -e "s/^+$NonPremiers"'$'"/$GRIS_6/" \
$Z > $xTV/COULEURS$ROUGE
$Z $xrv/TRON.01$X \
$Z ne=$PointsXY \
$Z fichier=$xTV/NIVEAUX \
$Z origine=$Premiers extremite=$NonPremiers | \
$Z $SE \
$Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \
$Z -e "s/^+$NonPremiers"'$'"/$GRIS_5/" \
$Z > $xTV/COULEURS$VERTE
$Z $xrv/TRON.01$X \
$Z ne=$PointsXY \
$Z fichier=$xTV/NIVEAUX \
$Z origine=$Premiers extremite=$NonPremiers | \
$Z $SE \
$Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \
$Z -e "s/^+$NonPremiers"'$'"/$GRIS_0/" \
$Z > $xTV/COULEURS$BLEUE
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern double atof();
$c extern char *getenv();
$c
$c #define N0 (atoi(getenv("PremiereA")))
$c #define N (atoi(getenv("DerniereA")))
$c
$c #define THETAmin (atof(getenv("Theta0")))
$c #define THETAmax (atof(getenv("ThetaN")))
$c
$c int main()
$c {
$c int n;
$c double theta;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c theta = ((THETAmax*(n-N0))+(THETAmin*(N-n)))/(N-N0);
$c
$c printf("$DELETE $xTV/THETA\n");
$c printf("$xci/valeurs_inte$X
$c premiere=$Part0
$c derniere=$PartN
$c cubique=FAUX
$c vD=0 vA=%f
$c > $xTV/THETA\n"
$c ,theta
$c );
$c
$c printf("$DELETE $xTV/COORDONNEES$COORD_X\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n");
$c printf("$xrv/RPT_XYZ.01$X
$c ne=$PointsXY
$c LISTE_RHO=$xTV/RHO
$c LISTE_THETA=$xTV/THETA
$c pX=1 pY=0 pZ=0
$c > $xTV/COORDONNEES$COORD_X\n"
$c );
$c printf("$xrv/RPT_XYZ.01$X
$c ne=$PointsXY
$c LISTE_RHO=$xTV/RHO
$c LISTE_THETA=$xTV/THETA
$c pX=0 pY=0 pZ=1
$c > $xTV/COORDONNEES$COORD_Y\n"
$c );
$c
$c printf("$xrv/particule.10$X
$c np=1 iterations=$PointsXY
$c LISTE_X=$xTV/COORDONNEES$COORD_X
$c LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c Ar=$Rayon
$c LISTE_RAYON=$xTV/RAYONS
$c LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c LISTE_VERTE=$xTV/COULEURS$VERTE
$c LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c Lz=1000
$c minimumT=1.0
$c maximumT=1.0
$c ROTATION_OX=0.0
$c $_____ZoomAuto
$c coordonnees_dans_0_1=VRAI
$c $_____AXBXAYBY
$c $_____AZ
$c isoles=VRAI
$c N_au_carre=FAUX
$c RVB=VRAI
$c R=$xTV/PRIM.1.
$c $formatI\n"
$c );
$c printf("$CP
$c $xTV/PRIM.1.%04d$ROUGE
$c $_____images.%04d$ROUGE\n"
$c ,N0,n
$c );
$c printf("$CP
$c $xTV/PRIM.1.%04d$VERTE
$c $_____images.%04d$VERTE\n"
$c ,N0,n
$c );
$c printf("$CP
$c $xTV/PRIM.1.%04d$BLEUE
$c $_____images.%04d$BLEUE\n"
$c ,N0,n
$c );
$c }
$c }
$Z $xci/reduction_16$Z $_____images. $_____animation $Premiere $Derniere
$X $xci/genere$X c=' ro $_____animation$R16$%s' RVB=VRAI postfixes_RVB=FAUX
$Z $xci/reduction_64$Z $_____images. $_____animation $Premiere $Derniere
$X $xci/genere$X c=' ro $_____animation$R64$%s' RVB=VRAI postfixes_RVB=FAUX
$X $xci/genere$X c=' $xcg/unite$Z $_____animation$R16$%s' RVB=VRAI postfixes_RVB=FAUX
$X $xci/genere$X c=' $xcg/unite$Z $_____animation$R64$%s' RVB=VRAI postfixes_RVB=FAUX
$Z # Les 'unite's ont ete mis apres toutes les reductions le 20020223095533 au cas ou la #
$Z # MACHINE se retrouverait par inadvertance deconnectee alors qu'elle est magre tout en #
$Z # mode '$STAND_ALONE' egal a '$NEXIST' ; cela s'est vu a cette date sur '$LACT14' alors #
$Z # qu'elle a ete deconnectee et transportee sans etre arretee, le calcul de la sequence #
$Z # 'v _____xivPdf_14_1/020431_020942' etant en cours... Ainsi, les calculs de reduction #
$Z # se font sans etre bloques, en partie, par des 'unite's qui ne se font pas... #
$Z $DELETE $xTV/RHO
$Z $DELETE $xTV/THETA
$Z
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/NIVEAUX
$Z $DELETE $xTV/RAYONS
$Z
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE