#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E T R I M E N S I O N N E L L E P S E U D O - F R A C T A L E #
# P A R L A M E T H O D E D E S P R O J E C T O R S : #
# #
# #
# Author of '$xiirs/.PROK.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20050625185131). #
# #
#######################################################################################################################################
$Z setParam _____Alpha 0.8
$Z setParam _____Beta 0.2
$Z setParam _____Rotation_OX 0.7
$Z setParam _____Rotation_OY 0.5
$Z setParam _____Rotation_OZ 0.0
$Z setParam _____Zoom 1.0
$Z setParam _____Grossissement 2.0
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z amplificateur=1 translateur=0 \
$Z A=1 B=0 C=0 \
$Z TRANSLATION_OX=0 TRANSLATION_OY=0 \
$Z R=$xTV/CHAMP_X \
$Z $formatI
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z amplificateur=1 translateur=0 \
$Z A=0 B=1 C=0 \
$Z TRANSLATION_OX=0 TRANSLATION_OY=0 \
$Z R=$xTV/CHAMP_Y \
$Z $formatI
$Z SET Premiere=1
$Z SET Derniere=16
$Z # Le passage de 8 a 16 pour '$Derniere' est destine a permettre des '$xci/reduction_16$X'... #
$Z SET Nimages=128
$Z # Le 20050911085501 je note que '$Nimages' n'est pas egal a '$Derniere-$Premiere+1', ce qui #
$Z # me semble anormal, mais je conserve cela malgre tout a cause des images ainsi generees #
$Z # 'v $xiirs/PROK.11')... #
$Z # #
$Z # Le 20110719102009 je comprend pourquoi la valeur de '$Nimages' vaut 128 et non pas #
$Z # '$Derniere-$Premiere+1' : elle donne en fait le nombre d'images contenues dans la #
$Z # sequence '$xiim/FRAC.X.????'. #
#20101004151736____:$Z Pal #
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c #define NOMBRE Nimages
$c
$c int main()
$c {
$c int k=N0;
$c int n;
$c
$c double translateur=0.01;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=$_____Alpha
$c A1=$xTV/CHAMP_X
$c beta=$_____Beta
$c A2=$xiim/FRAC.X.%04d
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_X.%04d
$c $formatI\n"
$c ,k,n
$c );
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=$_____Alpha
$c A1=$xTV/CHAMP_Y
$c beta=$_____Beta
$c A2=$xiim/FRAC.X.%04d
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_Y.%04d
$c $formatI\n"
$c ,k,n
$c );
$c /* On notera que '$xiim/FRAC.X' est la sequence : */
$c /* */
$c /* xivPdf 7 2 / 021273_021400 */
$c /* */
$c /* recalculee aux environs du 20050617090000. */
$c /* */
$c /* ATTENTION : on notera le 20101004120514 que la sequence '$xiim/FRAC.X' contient 128 */
$c /* images, alors qu'ici on en utilise que 16. Ainsi, c'est seulement une image sur huit */
$c /* de '$xiim/FRAC.X' qui est utilisee ({0001,0009,...,0113,0121}). */
$c printf("$xci/gauss$X
$c standard=FAUX
$c amplificateur=%f
$c translateur=%f
$c R=$xTV/CHAMP$COORD_Z.%04d
$c $formatI\n"
$c ,(n <= N/2) ? -0.2 : +0.2
$c ,(((-1.0)*((double)(N-n)))+((+1.0)*((double)(n-N0))))/((double)(N-N0))
$c ,n
$c );
$c printf("$xci/gauss$X
$c standard=FAUX
$c amplificateur=0.01
$c translateur=%f
$c R=$xTV/CHAMP.r.%04d
$c $formatI\n"
$c ,translateur
$c ,n
$c );
$c
$c if (n < N/2)
$c {
#20050625231547____:$c translateur = translateur + 0.01; #
$c translateur = translateur + 0.005;
$c }
$c else
$c {
$c if (n == N/2)
$c {
$c }
$c else
$c {
#20050625231547____:$c translateur = translateur - 0.01; #
$c translateur = translateur - 0.005;
$c }
$c }
$c
$c k = k + (NOMBRE)/(N-N0+1);
$c }
$c }
$Z @ Zmax = $Derniere - $Premiere
$Z $xci/acces_3D.11$X \
$Z A=$xTV/CHAMP$COORD_X. \
$Z premiere=$Premiere \
$Z zero=VRAI \
$Z R=$xTV/dCHAMP$COORD_X. \
$Z Zmax=$Zmax ValiderAxes=FAUX \
$Z $formatI
$Z $xci/acces_3D.11$X \
$Z A=$xTV/CHAMP$COORD_Y. \
$Z premiere=$Premiere \
$Z zero=VRAI \
$Z R=$xTV/dCHAMP$COORD_Y. \
$Z Zmax=$Zmax ValiderAxes=FAUX \
$Z $formatI
$Z $xci/acces_3D.11$X \
$Z A=$xTV/CHAMP$COORD_Z. \
$Z premiere=$Premiere \
$Z zero=VRAI \
$Z R=$xTV/dCHAMP$COORD_Z. \
$Z Zmax=$Zmax ValiderAxes=FAUX \
$Z $formatI
$Z $xrs/project3D.11$X \
$Z np=1 \
$Z albumFx=$xTV/CHAMP$COORD_X. premiereFx=$Premiere \
$Z albumFy=$xTV/CHAMP$COORD_Y. premiereFy=$Premiere \
$Z albumFz=$xTV/CHAMP$COORD_Z. premiereFz=$Premiere \
$Z albumRAYON=$xTV/CHAMP.r. premiereR=$Premiere \
$Z ROTATION_OX=$_____Rotation_OX \
$Z ROTATION_OY=$_____Rotation_OY \
$Z ROTATION_OZ=$_____Rotation_OZ \
$Z ZOOM=$_____Zoom \
$Z pu=0.1 eu=80 dpu=40 \
$Z pv=0.1 ev=80 dpv=40 \
$Z pw=0.1 ew=80 dpw=40 \
$Z lignes_de_coordonnees=$_____Grossissement \
$Z Lz=100 \
$Z N_AU_CARRE=VRAI \
$Z pxx=0 pyy=0 pzz=0 \
$Z pxu=1 pyv=1 pzw=1 \
$Z bicubique=VRAI \
$Z R=$_____imageR \
$Z chiffres=0 \
$Z Zmax=$Zmax ValiderAxes=FAUX \
$Z $formatI