#!/bin/csh ####################################################################################################################################### # # # N O T A : # # # # # # Author of '$xiac/$Fnota' : # # # # Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). # # # ####################################################################################################################################### ####################################################################################################################################### # # # Q U E L Q U E S E X P L I C A T I O N S : # # # ####################################################################################################################################### v $xiac/INTE.41$R16 v $xiac/INTE.41.1$R16 v $xiac/INTE.41.2$R16 v $xiac/INTE.41.2.1$R16 v $xiirc/INTE.41.2.0001 v $xiirc/INTE.41.2.0002 v $xiirc/INTE.41.2.0003 v $xiirc/INTE.41.2.0004 v $xiirc/INTE.41.2.0005 v $xiirc/INTE.41.2.0006 v $xiirc/INTE.41.2.0007 v $xiirc/INTE.41.2.0008 v $xiirc/INTE.41.2.0009 v $xiirc/INTE.41.2.0010 v $xiirc/INTE.41.2.0011 v $xiirc/INTE.41.2.0012 v $xiirc/INTE.41.2.0013 v $xiirc/INTE.41.2.0014 v $xiirc/INTE.41.2.0015 v $xiirc/INTE.41.2.0016 Pal ; anim3 A=$xiirc/INTE.41.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # :Debut_listG_INTE_41: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MANE.61 # # $Z _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____ImageTd1=$_____ImageTd # # # # $Z $DELETE $xTV/param.61 # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=0.80131489 vA=0.79628076 \ # # $Z cubique=FAUX \ # # $Z > $xTV/param.61 # # # # $Z $xrc/mandel.41$X \ # # $Z images=$Nimages \ # # $Z iterations=20 \ # # $Z COMPOSANTE_J=$xTV/param.61 \ # # $Z K=0 \ # # $Z exposant=1 \ # # $Z fenetres_depart_arrivee_identiques=VRAI \ # # $Z xbg=-0.04403889 xhd=-0.03475372 \ # # $Z ybg=-0.36672577 yhd=-0.35744060 \ # # $Z produit_non_theorique=VRAI \ # # $Z eRho=8 \ # # $Z pTheta=8 pPhi=8 pAlpha=1 \ # # $Z tTheta=0 tPhi=0 tAlpha=0 \ # # $Z visualiser_appartenance=VRAI \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/param.61 # # # # $Z _____include(_____xiirc/.MANE.41.2._____U) # # # # $Z set _____ImageT1=$xTV/LYAP.81 # # $Z _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____ImageTd2=$_____ImageTd # # # # $Z $DELETE $xTV/TAUX # # # # $Z set NTaux=32 # # # # $Z $xci/valeurs_trig$X \ # # $Z p=1 d=$NTaux \ # # $Z aD=0 aA=`calcul 8*$pi` \ # # $Z gamma=1 \ # # $Z entier=VRAI \ # # $Z epsilon=0.2 \ # # $Z > $xTV/TAUX # # # # $Z $xrk/lyapunov.22$X \ # # $Z images=$Nimages \ # # $Z premiere=$cPremiere \ # # $Z iterations=$NTaux \ # # $Z LISTE_TAUX=$xTV/TAUX \ # # $Z xbg=3.000 ybg=3.500 \ # # $Z xhd=3.350 yhd=3.850 \ # # $Z zD=4 zA=3 \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z editer_fenetre_courante=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/TAUX # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=50 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $Z _____include(_____xiirc/.MANE.41.2._____U) # # # # $Z set _____ImageT1=$xTV/INTE.32 # # $Z _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z set _____Palette=$xiP/gris.D2 # # $Z set _____Inverser=FAUX # # $Z set _____Complementaire="deux_interpolations=VRAI pADD2=0 pMAX2=1" # # $Z set _____Points=9 # # $Z set _____RotationX=+0.3 # # $m4 _____include(_____xiirf/.FRA3.S2.2._____U) # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/acces$X \ # # $Z A=$_____ImageTd.%04d \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=+1.20 # # $Z set AnGlEN=-1.05 # # $Z set PLAnGlEs="$K_VIDE" # # $Z set PLAnGlEs="$PLAnGlEs"" p=$Premiere d=$Derniere" # # $Z set PLAnGlEs="$PLAnGlEs"" vD=$AnGlE0 vA=$AnGlEN" # # $Z set PLAnGlEs="$PLAnGlEs"" lineaire=VRAI" # # $Z set PLAnGlEs="$PLAnGlEs"" format=f decimales=4" # # $Z set LAnGlEs=`$xci/valeurs_inte$X $PLAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____DxDyDz=1 # # $Z set _____SuperEchelle=FAUX # # $Z set _____DRotation=VRAI # # $Z set _____DRotationX=0 # # $Z set _____DRotationY=$LAnGlEs[$ImAgE] # # $Z set _____LineaireD=VRAI # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/INTE.41.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/INTE.41 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/INTE.41.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/INTE.41.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/INTE.41.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_INTE_41: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/INTE.32.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # On notera que 'v $xiirf/.FRA3.S2.2.$U .MANE.41.3._____U' reference 'v $xiirc/.MANE.41.3.$U' # # qui ne sert a rien mais que je ne peux rendre conditionnel par un 'if(...)' qui serait # # de type '$Z' alors que l'include correspondant est de type '$m4' : le couple {else,endif} # # qui suit ne serait alors pas reconnu et associe au 'if(...)'... # # # # En ce qui concerne le choix des angles de rotation dans [-1.05,+1.20], les commentaires # # 'v $xiii/di_album$FON 20101209152519' le justifie... # v $xiac/ITER.22$R16 # Generee (sur '$LACT1A') par : 'v $xiirc/$Fnota Debut_listG_ITER_22'... # v $xiac/ITGA.11$R16 p=$xiP/dentscie.01 v $xiac/ITGA.11$R16 p=$xiP/dentscie.R4 v $xiac/ITGA.11$R16 p=$xiP/fractal.91 v $xiac/ITGA.11$R16 p=$xiP/dentscie.01 t=16 d=0 ralenti=32 v $xiac/ITGA.11$R16 p=$xiP/dentscie.R4 t=16 d=0 ralenti=32 v $xiac/ITGA.11$R16 p=$xiP/fractal.91 t=16 d=0 ralenti=32 v $xiac/ITGA.11$R64 p=$xiP/dentscie.01 v $xiac/ITGA.11$R64 p=$xiP/dentscie.R4 v $xiac/ITGA.11$R64 p=$xiP/fractal.91 # Correspond aux sequences d'images suivantes : # # # # xivPdf 9 2 / 031135_031262 # # xivPdf 9 2 / 031263_031390 # # xivPdf 9 2 / 030879_031006 # # # v $xiac/ITZE.11$R16 p=$xiP/dentscie.01 v $xiac/ITZE.11$R16 p=$xiP/dentscie.R4 v $xiac/ITZE.11$R16 p=$xiP/fractal.91 v $xiac/ITZE.11$R16 p=$xiP/dentscie.01 t=16 d=0 ralenti=32 v $xiac/ITZE.11$R16 p=$xiP/dentscie.R4 t=16 d=0 ralenti=32 v $xiac/ITZE.11$R16 p=$xiP/fractal.91 t=16 d=0 ralenti=32 v $xiac/ITZE.11$R64 p=$xiP/dentscie.01 v $xiac/ITZE.11$R64 p=$xiP/dentscie.R4 v $xiac/ITZE.11$R64 p=$xiP/fractal.91 # Correspond aux sequences d'images suivantes : # # # # xivPdf 9 2 / 031391_031518 # # xivPdf 9 2 / 031519_031646 # # xivPdf 9 2 / 031007_031134 # # # v $xiac/JULI.41$R16 p=$xiP/cercle.22 t=16 d=4 ralenti=16 v $xiac/JULI.41$R64 p=$xiP/cercle.22 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 010936_010999 # # # Gamma $Gamma_mandel v $xiac/JULI.42.2.0$R16 p=$xiP/arc_ciel.01 t=16 d=4 ralenti=16 v $xiac/JULI.42.2.0$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 011192_011255 # # # # avec de plus : # # # # $xci/acces$X A=$xiac/JULI.42.2.0$R16 \ # # renormaliser=VRAI R=$xiac/JULI.42.2.0$R16 \ # # $formatI # # $xci/acces$X A=$xiac/JULI.42.2.0$R64 \ # # renormaliser=VRAI R=$xiac/JULI.42.2.0$R64 \ # # $formatI # # # Gamma $Gamma_lorenz v $xiac/JULI.42.2.1$R16 p=$xiP/gris.01 t=16 d=4 ralenti=16 v $xiac/JULI.42.2.1$R64 p=$xiP/gris.01 t=64 d=4 ralenti=32 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 011064_011127 # # xivPdf 2 1 / 011128_011191 # # # v $xiac/JULI.52$R16 p=$xiP/arc_ciel.12 t=16 d=4 ralenti=16 v $xiac/JULI.52$R64 p=$xiP/arc_ciel.12 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 011640_011765 # # # # avec un pas de 8 et de 2 respectivement... # # # # ATTENTION, la sequence qui a ete reellement calculee ne contenait que 126 images, car en # # effet, de par le processus d'extraction de contour, on ne peut fixer a l'avance le nombre # # des images calculees. Afin de simplifier l'utilisation des commandes '$xci/reduction_16$X' # # et '$xci/reduction_64$X', deux images supplementaires ont ete ajoutees a l'aide de : # # # # cp $xw1/JULI.10126 $xw1/JULI.10127 # # cp $xw1/JULI.10001 $xw1/JULI.10128 # # # v $xiac/JU.52.1$R16 v $xiac/JU.52.1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 001801_001928 # # # # avec un pas de 8 et de 2 respectivement... # v $xiac/JU.52.2$R16 v $xiac/JU.52.2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 001955_002082 # # # # avec un pas de 8 et de 2 respectivement... # v $xiac/JULI.52.001$R16 p=$xiP/marron.05 v $xiac/JULI.52.017$R16 p=$xiP/marron.05 v $xiac/JULI.52.033$R16 p=$xiP/marron.05 v $xiac/JULI.52.049$R16 p=$xiP/marron.05 v $xiac/JULI.52.065$R16 p=$xiP/marron.05 v $xiac/JULI.52.081$R16 p=$xiP/marron.05 v $xiac/JULI.52.097$R16 p=$xiP/marron.05 v $xiac/JULI.52.113$R16 p=$xiP/marron.05 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 011640_011765 # # # # en prenant d'abord les seize premieres images, puis les seize suivantes, en notant bien le # # commentaire qui precede (voir '$xiac/JULI.52$R16' et '$xiac/JULI.52$R64') au sujet des 126 # # images... # v $xiac/JU.52$m$R04 v $xiac/JU.53$m$R04 # Correspondent aux images '0003', '0004, '0005' et '0006' de la sequence '$xiirc/JU.52$m', # # la deuxieme image etant identique a la premiere a une rotation de +pi/2 pres (ainsi qu'a # # un joli cadre pres...). # v $xiac/JU.61$m$R16 v $xiac/JU.62$m$R16 # Correspondent aux operations suivantes : # # # # $xci/filtre.01$X A=$xiac/JU.53$R16$DROITE \ # # N=$xiio/GAUSS.8110 \ # # R=$xT/JULIA.11 \ # # $formatI # # $xci/seuil$X A=$xT/JULIA.11 \ # # s=20 \ # # R=$xT/JULIA.12 \ # # $formatI # # $xci/multi_02.01$X A1=$xT/JULIA.11 \ # # A2=$xT/JULIA.12 \ # # R=$xT/JULIA.13 \ # # $formatI # # $xci/transpose$X A=$xT/JULIA.13 \ # # R=$xT/JULIA.21 \ # # $formatI # # # # $xci/vraies_C$X A=$xT/JULIA.21 \ # # p=$xiP/arc_ciel.12 \ # # RR=$xT/JULIA.31$ROUGE \ # # RV=$xT/JULIA.31$VERTE \ # # RB=$xT/JULIA.31$BLEUE \ # # $formatI # # $xci/montagne.01$X A=$xT/JULIA.21 \ # # T=$xT/JULIA.31.? \ # # avion=VRAI \ # # R=$xiac/JU.61$m$R16.? \ # # $formatI # # # # $xci/vraies_C$X A=$xT/JULIA.21 \ # # p=$xiP/fractal.112 \ # # RR=$xT/JULIA.32$ROUGE \ # # RV=$xT/JULIA.32$VERTE \ # # RB=$xT/JULIA.32$BLEUE \ # # $formatI # # $xci/montagne.01$X A=$xT/JULIA.21 \ # # T=$xT/JULIA.32.? \ # # avion=VRAI \ # # R=$xiac/JU.62$m$R16.? \ # # $formatI # # # # On notera l'utilisation de '$xci/transpose$X', et non pas de '$xci/rotate$X', a cause # # d'artefacts de la rotation qui se manifestent alors par des barres verticales tres # # visibles grace a '$xci/montagne.01$X'... # v $xiac/JU.53$R04$DROITE p=$xiP/arc_ciel.92 v $xiac/JU.53$R04$GAUCHE p=$xiP/arc_ciel.92 # Correspond aux quatre images '0004', '0005,' '0006, et '0007' des deux sequences # # '$xiirc/JU.53$DROITE.' et '$xiirc/JU.53$GAUCHE.'. # v $xiac/JU.53$R16$DROITE p=$xiP/arc_ciel.92 t=16 d=4 ralenti=16 v $xiac/JU.53$R16$GAUCHE p=$xiP/arc_ciel.92 t=16 d=4 ralenti=16 v $xiac/JU.53$R64$DROITE p=$xiP/arc_ciel.12 t=64 d=4 ralenti=32 v $xiac/JU.53$R64$GAUCHE p=$xiP/arc_ciel.12 t=64 d=4 ralenti=32 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 012018_012143 # # xivPdf 2 1 / 012270_012395 # # # # avec un pas de 8 et de 2 respectivement... # # # # ATTENTION, la sequence qui a ete reellement calculee ne contenait que 126 images, car en # # effet, de par le processus d'extraction de contour, on ne peut fixer a l'avance le nombre # # des images calculees. Afin de simplifier l'utilisation des commandes '$xci/reduction_16$X' # # et '$xci/reduction_64$X', deux images supplementaires ont ete ajoutees a l'aide de : # # # # cp $xw1/JULI$DROITE.20126 $xw1/JULI$DROITE.20127 # # cp $xw1/JULI$DROITE.20001 $xw1/JULI$DROITE.20128 # # # # cp $xw1/JULI$GAUCHE.20126 $xw1/JULI$GAUCHE.20127 # # cp $xw1/JULI$GAUCHE.20001 $xw1/JULI$GAUCHE.20128 # # # Std ; $xci/display$X A=$xiac/JU.53.001$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.001$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.017$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.017$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.033$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.033$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.049$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.049$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.065$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.065$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.081$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.081$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.097$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.097$R16$GAUCHE p=$xiP/arc_ciel.12 Std ; $xci/display$X A=$xiac/JU.53.113$R16$DROITE p=$xiP/arc_ciel.12 xc=1.0 $formatI & v $xiac/JU.53.113$R16$GAUCHE p=$xiP/arc_ciel.12 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 012018_012143 # # xivPdf 2 1 / 012270_012395 # # # # en prenant d'abord les seize premieres images, puis les seize suivantes, en notant bien le # # commentaire qui precede au sujet des 126 images... # v $xiac/JU.53$R16$STEREO v $xiac/JU.53$R64$STEREO # Correspond a la sequence anaglyphique d'images suivantes : # # # # xivPdf 2 1 / 012522_012647 # # # # avec un pas de 8 et 2 respectivement, en notant bien le commentaire qui precede au sujet # # des 126 images... # v $xiac/JULI.81$R16 p=$xiP/orange.11 v $xiac/JULI.81$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # alias julia '$xrc/julia.21$X images=1 iterations=\!* \ # # globale=FAUX positifs=FAUX negatifs=VRAI \ # # mode=1 \ # # $formatI | \ # # $xci/acces$X R=$xw1/JULI.100\!* \ # # $formatI' # # # # puis : # # # # julia 01 # # julia 02 # # julia 03 # # julia 04 # # julia 05 # # julia 06 # # julia 07 # # julia 08 # # julia 09 # # julia 10 # # julia 11 # # julia 12 # # julia 13 # # julia 14 # # julia 15 # # julia 16 # # # v $xiac/JULI.82$R16 p=$xiP/orange.11 v $xiac/JULI.82$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # alias julia '$xrc/julia.21$X images=1 iterations=\!* \ # # globale=FAUX positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI | \ # # $xci/acces$X R=$xw1/JULI.200\!* \ # # $formatI' # # # # puis voir '$xiac/JULI.81$R16'... # v $xiac/JULI.91$R16 p=$xiP/fractal.11 v $xiac/JULI.91$R16 p=$xiP/fractal.11 t=16 d=4 ralenti=32 v $xiac/JULI.91$R64 p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 017764_017889 # # # # ATTENTION, la sequence n'ayant que 126 images, '$xiac/JULI.91$R64' ne possede que 63 # # images (et non pas les 64 reglementaires...). # v $xiac/JULI.A1$R16 p=$xiP/fractal.11 v $xiac/JULI.A1$R64 p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 004169_004294 # # # # ATTENTION, la sequence n'ayant que 126 images, '$xiac/JULI.A1$R64' ne possede que 63 # # images (et non pas les 64 reglementaires...). # v $xiac/JULI.B1$R16 p=$xiP/cercle.34 v $xiac/JULI.B1$R64 p=$xiP/cercle.34 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 004295_004422 # # # v $xiac/JULI.C1$R16 p=$xiP/gris.01 v $xiac/JULI.C1$R16 p=$xiP/fractal.11 v $xiac/JULI.C1$R64 p=$xiP/gris.01 v $xiac/JULI.C1$R64 p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 004423_004678 # # # v $xiac/JULI.D1$R16 v $xiac/JULI.D1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 004943_005198 # # # v $xiac/JULI.E1$R16 p=$xiP/enfer.05 v $xiac/JULI.E1$R16 p=$xiP/gris.01 v $xiac/JULI.E1$R16 p=$xiP/marron.05 v $xiac/JULI.E1$R16 p=$xiP/random.06 v $xiac/JULI.E1$R16 p=$xiP/trou_noir.14 v $xiac/JULI.E1$R64 p=$xiP/enfer.05 v $xiac/JULI.E1$R64 p=$xiP/gris.01 v $xiac/JULI.E1$R64 p=$xiP/marron.05 v $xiac/JULI.E1$R64 p=$xiP/random.06 v $xiac/JULI.E1$R64 p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 005199_005324 # # xivPdf 7 1 / 005325_005450 # # xivPdf 7 1 / 005451_005576 # # xivPdf 7 1 / 005577_005702 # # # v $xiac/JULI.F1$R16 p=$xiP/enfer.05 v $xiac/JULI.F1$R16 p=$xiP/gris.01 v $xiac/JULI.F1$R16 p=$xiP/marron.05 v $xiac/JULI.F1$R16 p=$xiP/random.06 v $xiac/JULI.F1$R16 p=$xiP/trou_noir.14 v $xiac/JULI.F1$R64 p=$xiP/enfer.05 v $xiac/JULI.F1$R64 p=$xiP/gris.01 v $xiac/JULI.F1$R64 p=$xiP/marron.05 v $xiac/JULI.F1$R64 p=$xiP/random.06 v $xiac/JULI.F1$R64 p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 005703_005828 # # xivPdf 7 1 / 005829_005954 # # xivPdf 7 1 / 005955_006080 # # xivPdf 7 1 / 006081_006206 # # # v $xiac/JULI.G1$R16 p=$xiP/gris.01 v $xiac/JULI.G1$R16 p=$xiP/fractal.11 v $xiac/JULI.G1$R64 p=$xiP/gris.01 v $xiac/JULI.G1$R64 p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 006207_006332 # # xivPdf 7 1 / 006333_006458 # # xivPdf 7 1 / 006459_006584 # # # v $xiac/JU.H1$R16$DROITE p=$xiP/enfer.05 v $xiac/JU.H1$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.H1$R16$DROITE p=$xiP/trou_noir.14 v $xiac/JU.H1$R64$DROITE p=$xiP/enfer.05 v $xiac/JU.H1$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.H1$R64$DROITE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 006585_006710 # # xivPdf 7 1 / 006711_006836 # # xivPdf 7 1 / 006837_006962 # # # v $xiac/JU.H1$R16$GAUCHE p=$xiP/enfer.05 v $xiac/JU.H1$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.H1$R16$GAUCHE p=$xiP/trou_noir.14 v $xiac/JU.H1$R64$GAUCHE p=$xiP/enfer.05 v $xiac/JU.H1$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.H1$R64$GAUCHE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 007987_008112 # # xivPdf 7 1 / 008113_008238 # # xivPdf 7 1 / 008239_008364 # # # v $xiac/JULI.I1$R16 v $xiac/JULI.I1$R64 v $xiac/JULI.I1$R64$ROUGE p=$xiP/gris.01 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 006963_007218 # # # v $xiac/JU.J1$R16$DROITE p=$xiP/enfer.05 v $xiac/JU.J1$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.J1$R16$DROITE p=$xiP/trou_noir.14 v $xiac/JU.J1$R64$DROITE p=$xiP/enfer.05 v $xiac/JU.J1$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.J1$R64$DROITE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 007219_007474 # # xivPdf 7 1 / 007475_007730 # # xivPdf 7 1 / 007731_007986 # # # v $xiac/JU.J1$R16$GAUCHE p=$xiP/enfer.05 v $xiac/JU.J1$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.J1$R16$GAUCHE p=$xiP/trou_noir.14 v $xiac/JU.J1$R64$GAUCHE p=$xiP/enfer.05 v $xiac/JU.J1$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.J1$R64$GAUCHE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 008365_008620 # # xivPdf 7 1 / 008621_008876 # # xivPdf 7 1 / 008877_009132 # # # v $xiac/JU.K0$R16$DROITE p=$xiP/enfer.05 v $xiac/JU.K0$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.K0$R16$DROITE p=$xiP/trou_noir.14 v $xiac/JU.K0$R64$DROITE p=$xiP/enfer.05 v $xiac/JU.K0$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.K0$R64$DROITE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 009133_009260 # # xivPdf 7 1 / 009261_009388 # # xivPdf 7 1 / 009389_009516 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.K0$R16$GAUCHE p=$xiP/enfer.05 v $xiac/JU.K0$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.K0$R16$GAUCHE p=$xiP/trou_noir.14 v $xiac/JU.K0$R64$GAUCHE p=$xiP/enfer.05 v $xiac/JU.K0$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.K0$R64$GAUCHE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 010256_010383 # # xivPdf 7 1 / 010384_010511 # # xivPdf 7 1 / 010512_010639 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.K1$R16$DROITE p=$xiP/enfer.05 v $xiac/JU.K1$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.K1$R16$DROITE p=$xiP/trou_noir.14 v $xiac/JU.K1$R64$DROITE p=$xiP/enfer.05 v $xiac/JU.K1$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.K1$R64$DROITE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 009517_009644 # # xivPdf 7 1 / 009645_009772 # # xivPdf 7 1 / 009773_009900 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.K1$R16$GAUCHE p=$xiP/enfer.05 v $xiac/JU.K1$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.K1$R16$GAUCHE p=$xiP/trou_noir.14 v $xiac/JU.K1$R64$GAUCHE p=$xiP/enfer.05 v $xiac/JU.K1$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.K1$R64$GAUCHE p=$xiP/trou_noir.14 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 010640_010767 # # xivPdf 7 1 / 010768_010895 # # xivPdf 7 1 / 010896_011023 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.L0$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.L0$R64$DROITE p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 010000_010127 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.L0$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.L0$R64$GAUCHE p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 011123_011250 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.L1$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.L1$R64$DROITE p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 010128_010255 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.L1$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.L1$R64$GAUCHE p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 011251_011378 # # # # ATTENTION, voir le commentaire relatif aux series '$DROITE' et '$GAUCHE' dans le '$Fnota'. # v $xiac/JU.N1$R16$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.N1$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.N1$R16$DROITE v $xiac/JU.N2$R16$DROITE v $xiac/JU.N1$R64$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.N1$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.N1$R64$DROITE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 011384_011517 # # xivPdf 7 1 / 011518_011651 # # # # ou '$xiac/JU.N2$R16$DROITE' correspond aux images '0087' a '0102' (avec un pas de 2), et # # se raccorde donc a '$xiac/JU.O0$R16$DROITE'. # v $xiac/JU.N1$MP4 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_JU_N1: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FCoMpOsAnTe_J # # # # $Z set NCoUcHeS=128 # # $Z set NItErAtIoNs=32 # # # # $Z $xci/valeurs_inte$X p=1 d=$NCoUcHeS vD=-1.0 vA=1.0 cubique=FAUX \ # # $Z >> $FCoMpOsAnTe_J # # # # $Z SET _____ImageT=$xTV/JULI.NR. # # # # $Z $xrc/julia.42$X \ # # $Z Ccompatibilite_20120210=VRAI \ # # $Z Lcompatibilite_20120210=VRAI \ # # $Z couches=$NCoUcHeS \ # # $Z iterations=$NItErAtIoNs \ # # $Z transparence=FAUX binariser=VRAI seuil=$GRIS_6 \ # # $Z J_COMPOSANTE_J=$FCoMpOsAnTe_J \ # # $Z JK=0.0 \ # # $Z translation_quelconque=FAUX stereo=0.0 \ # # $Z editer=VRAI \ # # $Z R=$_____ImageT \ # # $Z M=$xTV/JULI.NM. \ # # $Z $formatI # # # # $Z FilSTmpE FCoMpOsAnTe_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=`ls $_____ImageT* |& $WCl` # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____ImageT \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/fractal.11 \ # # $Z R=$_____ImageT \ # # $Z $formatI # # # # $Z set _____Animation=$xiac/JU.N1 # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # # # :Fin_listG_JU_N1: # # # # # # Il s'agit d'une version '$MP4' de 'v $xiac/JU.N1$R16' regeneree pour le CNRS # # ('v $Dcourrier_in/20150202102656 name=.colonna_anims.docx.'). # # # # Voici le quaternion 'J' pour les differentes images : # # # # image 0001 : j=(-1.38888888888888906,-0.0868055555555555802,+0,+0) # # image 0002 : j=(-1.33680555555555558,-0.10069444444444442,+0,+0) # # image 0003 : j=(-1.28472222222222232,-0.114583333333333259,+0,+0) # # image 0004 : j=(-1.26388888888888884,-0.159722222222222321,+0,+0) # # image 0005 : j=(-1.22916666666666652,-0.190972222222222321,+0,+0) # # image 0006 : j=(-1.20486111111111116,-0.23263888888888884,+0,+0) # # image 0007 : j=(-1.20486111111111116,-0.29861111111111116,+0,+0) # # image 0008 : j=(-1.16319444444444442,-0.30902777777777779,+0,+0) # # image 0009 : j=(-1.11458333333333326,-0.29166666666666663,+0,+0) # # image 0010 : j=(-1.05555555555555558,-0.29861111111111116,+0,+0) # # image 0011 : j=(-1.02430555555555558,-0.31944444444444442,+0,+0) # # image 0012 : j=(-0.979166666666666741,-0.29861111111111116,+0,+0) # # image 0013 : j=(-0.92361111111111116,-0.28819444444444442,+0,+0) # # image 0014 : j=(-0.885416666666666519,-0.260416666666666741,+0,+0) # # image 0015 : j=(-0.82986111111111116,-0.25,+0,+0) # # image 0016 : j=(-0.76736111111111116,-0.253472222222222099,+0,+0) # # image 0017 : j=(-0.729166666666666741,-0.28125,+0,+0) # # image 0018 : j=(-0.715277777777777679,-0.33333333333333337,+0,+0) # # image 0019 : j=(-0.684027777777777679,-0.368055555555555469,+0,+0) # # image 0020 : j=(-0.677083333333333259,-0.42708333333333337,+0,+0) # # image 0021 : j=(-0.652777777777777901,-0.46180555555555558,+0,+0) # # image 0022 : j=(-0.60763888888888884,-0.48263888888888884,+0,+0) # # image 0023 : j=(-0.57638888888888884,-0.517361111111111049,+0,+0) # # image 0024 : j=(-0.572916666666666519,-0.57986111111111116,+0,+0) # # image 0025 : j=(-0.586805555555555358,-0.63194444444444442,+0,+0) # # image 0026 : j=(-0.54861111111111116,-0.65972222222222221,+0,+0) # # image 0027 : j=(-0.506944444444444642,-0.635416666666666741,+0,+0) # # image 0028 : j=(-0.45486111111111116,-0.62152777777777779,+0,+0) # # image 0029 : j=(-0.395833333333333481,-0.62847222222222221,+0,+0) # # image 0030 : j=(-0.364583333333333481,-0.66319444444444442,+0,+0) # # image 0031 : j=(-0.302083333333333037,-0.65972222222222221,+0,+0) # # image 0032 : j=(-0.260416666666666963,-0.68402777777777779,+0,+0) # # image 0033 : j=(-0.256944444444444198,-0.74652777777777779,+0,+0) # # image 0034 : j=(-0.246527777777777679,-0.802083333333333259,+0,+0) # # image 0035 : j=(-0.23263888888888884,-0.84722222222222221,+0,+0) # # image 0036 : j=(-0.177083333333333481,-0.85763888888888884,+0,+0) # # image 0037 : j=(-0.145833333333333481,-0.89236111111111116,+0,+0) # # image 0038 : j=(-0.121527777777777679,-0.93402777777777779,+0,+0) # # image 0039 : j=(-0.0902777777777776791,-0.96180555555555558,+0,+0) # # image 0040 : j=(-0.0833333333333330373,-0.90277777777777779,+0,+0) # # image 0041 : j=(-0.0659722222222218768,-0.854166666666666741,+0,+0) # # image 0042 : j=(-0.0173611111111107164,-0.83680555555555558,+0,+0) # # image 0043 : j=(-0.00347222222222232091,-0.79861111111111116,+0,+0) # # image 0044 : j=(-0.00347222222222232091,-0.732638888888888951,+0,+0) # # image 0045 : j=(+0.00694444444444419773,-0.67708333333333337,+0,+0) # # image 0046 : j=(+0.0486111111111107164,-0.65277777777777779,+0,+0) # # image 0047 : j=(+0.11111111111111116,-0.64930555555555558,+0,+0) # # image 0048 : j=(+0.152777777777777679,-0.625,+0,+0) # # image 0049 : j=(+0.177083333333333481,-0.58333333333333337,+0,+0) # # image 0050 : j=(+0.239583333333333037,-0.57986111111111116,+0,+0) # # image 0051 : j=(+0.28125,-0.59722222222222221,+0,+0) # # image 0052 : j=(+0.34375,-0.60069444444444442,+0,+0) # # image 0053 : j=(+0.364583333333333481,-0.576388888888888951,+0,+0) # # image 0054 : j=(+0.34375,-0.53125,+0,+0) # # image 0055 : j=(+0.322916666666666519,-0.486111111111111049,+0,+0) # # image 0056 : j=(+0.333333333333333037,-0.43055555555555558,+0,+0) # # image 0057 : j=(+0.354166666666666519,-0.385416666666666741,+0,+0) # # image 0058 : j=(+0.399305555555555358,-0.364583333333333259,+0,+0) # # image 0059 : j=(+0.42361111111111116,-0.34375,+0,+0) # # image 0060 : j=(+0.38888888888888884,-0.3125,+0,+0) # # image 0061 : j=(+0.385416666666666963,-0.25,+0,+0) # # image 0062 : j=(+0.413194444444444642,-0.21875,+0,+0) # # image 0063 : j=(+0.385416666666666963,-0.18055555555555558,+0,+0) # # image 0064 : j=(+0.368055555555555802,-0.13194444444444442,+0,+0) # # image 0065 : j=(+0.34375,-0.0902777777777776791,+0,+0) # # image 0066 : j=(+0.3125,-0.0555555555555555802,+0,+0) # # image 0067 : j=(+0.29513888888888884,-0.00694444444444441977,+0,+0) # # image 0068 : j=(+0.305555555555555358,+0.0486111111111111605,+0,+0) # # image 0069 : j=(+0.336805555555555802,+0.0833333333333332593,+0,+0) # # image 0070 : j=(+0.364583333333333481,+0.121527777777777901,+0,+0) # # image 0071 : j=(+0.385416666666666963,+0.166666666666666519,+0,+0) # # image 0072 : j=(+0.402777777777778123,+0.215277777777777901,+0,+0) # # image 0073 : j=(+0.38888888888888884,+0.239583333333333259,+0,+0) # # image 0074 : j=(+0.385416666666666963,+0.302083333333333481,+0,+0) # # image 0075 : j=(+0.416666666666666519,+0.336805555555555358,+0,+0) # # image 0076 : j=(+0.413194444444444642,+0.364583333333333481,+0,+0) # # image 0077 : j=(+0.36111111111111116,+0.378472222222222321,+0,+0) # # image 0078 : j=(+0.340277777777777679,+0.423611111111110938,+0,+0) # # image 0079 : j=(+0.322916666666666519,+0.472222222222222321,+0,+0) # # image 0080 : j=(+0.340277777777777679,+0.520833333333333481,+0,+0) # # image 0081 : j=(+0.354166666666666519,+0.572916666666666519,+0,+0) # # image 0082 : j=(+0.354166666666666519,+0.604166666666666741,+0,+0) # # image 0083 : j=(+0.29513888888888884,+0.597222222222222321,+0,+0) # # image 0084 : j=(+0.25,+0.583333333333333259,+0,+0) # # image 0085 : j=(+0.1875,+0.579861111111110938,+0,+0) # # image 0086 : j=(+0.15625,+0.614583333333333481,+0,+0) # # image 0087 : j=(+0.125,+0.649305555555555358,+0,+0) # # image 0088 : j=(+0.0590277777777781232,+0.649305555555555358,+0,+0) # # image 0089 : j=(+0.0138888888888888395,+0.670138888888889062,+0,+0) # # image 0090 : j=(-0.00347222222222232091,+0.71875,+0,+0) # # image 0091 : j=(-0.00347222222222232091,+0.784722222222222321,+0,+0) # # image 0092 : j=(-0.00347222222222232091,+0.836805555555555802,+0,+0) # # image 0093 : j=(-0.0590277777777776791,+0.847222222222222321,+0,+0) # # image 0094 : j=(-0.0763888888888892836,+0.895833333333333037,+0,+0) # # image 0095 : j=(-0.0902777777777776791,+0.947916666666666519,+0,+0) # # image 0096 : j=(-0.121527777777777679,+0.947916666666666519,+0,+0) # # image 0097 : j=(-0.13888888888888884,+0.899305555555555802,+0,+0) # # image 0098 : j=(-0.17013888888888884,+0.864583333333333481,+0,+0) # # image 0099 : j=(-0.225694444444444198,+0.854166666666666519,+0,+0) # # image 0100 : j=(-0.246527777777777679,+0.815972222222222321,+0,+0) # # image 0101 : j=(-0.253472222222222321,+0.756944444444444642,+0,+0) # # image 0102 : j=(-0.256944444444444198,+0.69444444444444442,+0,+0) # # image 0103 : j=(-0.291666666666666519,+0.663194444444444198,+0,+0) # # image 0104 : j=(-0.354166666666666963,+0.659722222222222099,+0,+0) # # image 0105 : j=(-0.38888888888888884,+0.635416666666666519,+0,+0) # # image 0106 : j=(-0.440972222222222321,+0.621527777777777679,+0,+0) # # image 0107 : j=(-0.5,+0.628472222222222321,+0,+0) # # image 0108 : j=(-0.534722222222221877,+0.659722222222222099,+0,+0) # # image 0109 : j=(-0.586805555555555358,+0.645833333333333259,+0,+0) # # image 0110 : j=(-0.57638888888888884,+0.590277777777777901,+0,+0) # # image 0111 : j=(-0.572916666666666519,+0.527777777777777901,+0,+0) # # image 0112 : j=(-0.597222222222222321,+0.48611111111111116,+0,+0) # # image 0113 : j=(-0.645833333333333259,+0.46875,+0,+0) # # image 0114 : j=(-0.677083333333333259,+0.440972222222222321,+0,+0) # # image 0115 : j=(-0.68055555555555558,+0.378472222222222321,+0,+0) # # image 0116 : j=(-0.71180555555555558,+0.34375,+0,+0) # # image 0117 : j=(-0.725694444444444198,+0.291666666666666741,+0,+0) # # image 0118 : j=(-0.75694444444444442,+0.25694444444444442,+0,+0) # # image 0119 : j=(-0.815972222222222321,+0.25,+0,+0) # # image 0120 : j=(-0.875,+0.25694444444444442,+0,+0) # # image 0121 : j=(-0.916666666666666741,+0.28125,+0,+0) # # image 0122 : j=(-0.96875,+0.29513888888888884,+0,+0) # # image 0123 : j=(-1.01388888888888884,+0.315972222222222321,+0,+0) # # image 0124 : j=(-1.04513888888888884,+0.302083333333333481,+0,+0) # # image 0125 : j=(-1.10069444444444442,+0.291666666666666741,+0,+0) # # image 0126 : j=(-1.15277777777777768,+0.30555555555555558,+0,+0) # # image 0127 : j=(-1.20833333333333348,+0.309027777777777679,+0,+0) # # image 0128 : j=(-1.20486111111111116,+0.246527777777777679,+0,+0) # # image 0129 : j=(-1.22222222222222232,+0.197916666666666741,+0,+0) # # image 0130 : j=(-1.26388888888888884,+0.17361111111111116,+0,+0) # # image 0131 : j=(-1.27777777777777768,+0.121527777777777901,+0,+0) # # image 0132 : j=(-1.32291666666666674,+0.10069444444444442,+0,+0) # # image 0133 : j=(-1.38888888888888906,+0.10069444444444442,+0,+0) # # image 0134 : j=(-1.39930555555555558,+0.0451388888888890616,+0,+0) # # image 0135 : j=(-1.4375,+0.0173611111111111605,+0,+0) # # image 0136 : j=(-1.48263888888888884,-0.00347222222222232091,+0,+0) # # image 0137 : j=(-1.43402777777777768,-0.0208333333333334814,+0,+0) # # image 0138 : j=(-1.40277777777777768,-0.0347222222222223209,+0,+0) # # # # # # On notera qu'initialementce calcul avait ete lance sur '$CMAP28' -ex "ternes"-, mais # # malheureusement il saturait la memoire, parrement a cause du 'cache' des fichiers, # # puisqu'effectivement beaucoup de fichiers sont crees. C'est ce probleme qui a provoque # # l'ecriture des tests 'v OpenWrite.01$c' et 'v OpenWrite.02$c'. # v $xiac/JU.N1$R16$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.N1$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.N1$R16$GAUCHE v $xiac/JU.N2$R16$GAUCHE v $xiac/JU.N1$R64$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.N1$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.N1$R64$GAUCHE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 011652_011785 # # xivPdf 7 1 / 011786_011919 # # # # ou '$xiac/JU.N2$R16$GAUCHE' correspond aux images '0087' a '0102' (avec un pas de 2), et # # se raccorde donc a '$xiac/JU.O0$R16$GAUCHE'. # v $xiac/JU.O0$R16$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.O0$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.O0$R16$DROITE v $xiac/JU.O0$R64$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.O0$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.O0$R64$DROITE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012022_012149 # # # v $xiac/JU.O0$R16$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.O0$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.O0$R16$GAUCHE v $xiac/JU.O0$R64$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.O0$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.O0$R64$GAUCHE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012252_012379 # # # v $xiac/JU.Q0$R16$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.Q0$R16$DROITE p=$xiP/fractal.11 v $xiac/JU.Q0$R16$DROITE p=$xiP/gris_oran.01 v $xiac/JU.Q0$R16$DROITE v $xiac/JU.Q0$R64$DROITE p=$xiP/arc_ciel.01 v $xiac/JU.Q0$R64$DROITE p=$xiP/fractal.11 v $xiac/JU.Q0$R64$DROITE p=$xiP/gris_oran.01 v $xiac/JU.Q0$R64$DROITE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012380_012443 # # xivPdf 7 1 / 012444_012507 # # # v $xiac/JU.Q0$R16$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.Q0$R16$GAUCHE p=$xiP/fractal.11 v $xiac/JU.Q0$R16$GAUCHE p=$xiP/gris_oran.01 v $xiac/JU.Q0$R16$GAUCHE v $xiac/JU.Q0$R64$GAUCHE p=$xiP/arc_ciel.01 v $xiac/JU.Q0$R64$GAUCHE p=$xiP/fractal.11 v $xiac/JU.Q0$R64$GAUCHE p=$xiP/gris_oran.01 v $xiac/JU.Q0$R64$GAUCHE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012508_012571 # # xivPdf 7 1 / 012572_012635 # # # v $xiac/JU.R1$R16 v $xiac/JU.R1$R64 v $xiac/JU.R1$R64$ROUGE p=$xiP/gris.01 t=64 d=0 ralenti=32 v $xiac/JU.R2$R16 v $xiac/JU.R2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 017339_017466 # # # # avec les palettes '$xiP/fractal.11' et '$xiP/marron' respectivement... # v $xiac/JU.S1$R16 p=$xiP/enfer.05 v $xiac/JU.S1$R16 p=$xiP/enfer.05 t=16 d=0 ralenti=32 v $xiac/JU.S1$R64 p=$xiP/enfer.05 v $xiac/JU.S1$R64 p=$xiP/enfer.05 t=64 d=0 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 017979_018106 # # # v $xiac/JU.S1$m$R16 p=$xiP/montagnes.01 v $xiac/JU.S1$m$R16 p=$xiP/montagnes.01 t=16 d=0 ralenti=32 v $xiac/JU.S1$m$R64 p=$xiP/montagnes.01 v $xiac/JU.S1$m$R64 p=$xiP/montagnes.01 t=64 d=0 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018107_018234 # # # v $xiac/JU.S1$m$R16 v $xiac/JU.S1$m$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018235_018362 # # # v $xiac/JU.T1$R16 v $xiac/JU.T1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018363_018490 # # # v $xiac/JU.T1$m$R16 v $xiac/JU.T1$m$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018524_018651 # # # v $xiac/JU.U1$R16 v $xiac/JU.U1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018652_018779 # # # v $xiac/JU.U2$R16 v $xiac/JU.U2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018780_018907 # # # v $xiac/JU.V1$R16 v $xiac/JU.V1$R64 v $xiac/JU.V2$R16 v $xiac/JU.V2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 018908_019035 # # # # puis a un '$xci/substitue$X' de '$xiac/JU.V1$R16' et de '$xiac/JU.V1$R64' pour effectuer # # un reajustement des niveaux avec '$xiP/gris.11'. # v $xiac/JU.W1$R16 v $xiac/JU.W1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 019036_019163 # # # v $xiac/JU.X1$R16 v $xiac/JU.X1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 019804_019931 # # # v $xiac/JU.Y1$R16 v $xiac/JU.Y1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 019932_020059 # # # v $xiac/JU.Z1$R16 v $xiac/JU.Z1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 020060_020187 # # # v $xiac/JU.a1$R16$ROUGE p=$xiP/gris.01 v $xiac/JU.a1$R16$VERTE p=$xiP/gris.01 v $xiac/JU.a1$R16$BLEUE p=$xiP/gris.01 v $xiac/JU.a1$R16 v $xiac/JU.a1$R64$ROUGE p=$xiP/gris.01 v $xiac/JU.a1$R64$VERTE p=$xiP/gris.01 v $xiac/JU.a1$R64$BLEUE p=$xiP/gris.01 v $xiac/JU.a1$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 7 1 / 020192_020319 # # xivPdf 7 1 / 020320_020447 # # xivPdf 7 1 / 020448_020575 # # xivPdf 7 1 / 020576_020703 # # # v $xiac/JU.a1$m$R16 v $xiac/JU.a1$m$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 020704_020831 # # # v $xiac/JU.b1$R16 v $xiac/JU.b1$R64 v $xiac/JU.b1$R64$ROUGE p=$xiP/dentscie.01 t=64 d=0 ralenti=32 v $xiac/JU.b1$R64$ROUGE p=$xiP/dentscie.02 t=64 d=0 ralenti=32 v $xiac/JU.b1$R64$ROUGE p=$xiP/fractal.11 t=64 d=0 ralenti=32 v $xiac/JU.b1$R64$ROUGE p=$xiP/gris.01 t=64 d=0 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 020832_020959 # # # v $xiac/JU.c1$R16 v $xiac/JU.c1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 020961_021088 # # # v $xiac/JU.d1$R16 v $xiac/JU.d1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 021089_021216 # # # v $xiac/JU.e1$R16 v $xiac/JU.e1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 021217_021344 # # # v $xiac/JU.f1$R16 v $xiac/JU.f1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 021345_021472 # # # v $xiac/JU.g1.0$R16 v $xiac/JU.g1.0$R64 v $xiac/JU.g1.1$R16 v $xiac/JU.g1.1$R64 v $xiac/JU.g2.0$R16 v $xiac/JU.g2.0$R64 v $xiac/JU.g2.1$R16 v $xiac/JU.g2.1$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 9 1 / 019219_019346 # # xivPdf 9 1 / 019347_019474 # # xivPdf 9 1 / 019603_019730 # # xivPdf 9 1 / 019475_019602 # # # v $xiac/JU.h1.0$R16 v $xiac/JU.h1.0$R64 v $xiac/JU.h1.1$R16 v $xiac/JU.h1.1$R64 v $xiac/JU.h2.0$R16 v $xiac/JU.h2.0$R64 v $xiac/JU.h2.1$R16 v $xiac/JU.h2.1$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 9 1 / 024339_024466 # # xivPdf 9 1 / 024467_024594 # # xivPdf 9 1 / 024595_024722 # # xivPdf 9 1 / 024723_024850 # # # v $xiac/JU.i4.0$R16 v $xiac/JU.i4.1$R16 v $xiac/JU.i4.0$R64 v $xiac/JU.i4.1$R64 v $xiac/JU.i8.0$R16 v $xiac/JU.i8.1$R16 v $xiac/JU.i8.0$R64 v $xiac/JU.i8.1$R64 v $xiac/JU.iG.0$R16 v $xiac/JU.iG.1$R16 v $xiac/JU.iG.0$R64 v $xiac/JU.iG.1$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 016001_016128 # # xivPdf 11 1 / 016129_016256 # # xivPdf 11 1 / 016257_016384 # # xivPdf 11 1 / 016385_016512 # # xivPdf 11 1 / 016513_016640 # # xivPdf 11 1 / 016641_016768 # # # # avec (par erreur) l'option implicite "inverser=FAUX". # v $xiac/JU.j4.0$R16 v $xiac/JU.j4.0$R64 v $xiac/JU.j8.0$R16 v $xiac/JU.j8.0$R64 v $xiac/JU.jG.0$R16 v $xiac/JU.jG.0$R64 v $xiac/JU.jX.0$R16 v $xiac/JU.jX.0$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 016769_016896 # # xivPdf 11 1 / 016897_017024 # # xivPdf 11 1 / 017025_017152 # # xivPdf 11 1 / 020251_020378 # # # # avec l'option "inverser=VRAI" (par rapport aux images '$xiac/JU.i*'). # v $xiac/JU.jX.0$m$R16 v $xiac/JU.jX.0$m$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 020379_020506 # # # v $xiac/JU.k1$R16 v $xiac/JU.k1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 020763_020890 # # # # mais uniquement en ce qui concerne les 64 premieres images... # v $xiac/JU.k2$R16 v $xiac/JU.k2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 020891_021018 # # # # mais uniquement en ce qui concerne les 64 premieres images... # v $xiac/JU.l1$R16 v $xiac/JU.l1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 021019_021146 # # # v $xiac/JU.m1$R16 v $xiac/JU.m1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 021147_021274 # # # v $xiac/JU.m1.1$m$R16 v $xiac/JU.m1.1$m$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 021275_021402 # # # v $xiac/JU.m1.2$m$R16 v $xiac/JU.m1.2$m$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 021403_021530 # # # v $xiac/JULI.m2$R16 v $xiac/JULI.m2$R16$ROUGE p=$xiP/fractal.11 v $xiac/JULI.m2$R16$VERTE p=$xiP/fractal.11 v $xiac/JULI.m2$R16$BLEUE p=$xiP/fractal.11 v $xiac/JULI.m2$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 021531_021658 # # # v $xiac/JULI.r1$R16 v $xiac/JULI.r1$R64 v $xiirc/JULI.r1.0056 v $xiac/JULI.r4$R16 v $xiac/JULI.r4$R64 v $xiirc/JULI.r4.0056 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_JULI_r14: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT0=$xTV/JULIA # # # # $Z set PaLeTtE=$xiP/fractal.11 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=-1.0 vA=+1.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z $xrc/julia.41$X \ # # $Z images=$Nimages \ # # $Z iterations=32 \ # # $Z r=-0.5815147625160462 \ # # $Z i=+0.6358885017421603 \ # # $Z COMPOSANTE_J=$xTV/COMPOSANTE_J \ # # $Z K=0 \ # # $Z xbgD=-1.10 ybgD=-1.10 xhdD=+1.10 yhdD=+1.10 \ # # $Z xbgA=-1.10 ybgA=-1.10 xhdA=+1.10 yhdA=+1.10 \ # # $Z R=$_____ImageT0. \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=64 # # # # $Z set _____ImageT1=$xTV/JULIA.1 # # $Z set _____ImageT4=$xTV/JULIA.4 # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define Seuil0 12 # # $c #define SeuilN 252 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Seuil=((SeuilN*(n-N0))+(Seuil0*(N-n)))/(N-N0); # # $c # # $c printf("$xci/accumule.02$X # # $c A=$_____ImageT0. # # $c premiere=$cPremiere derniere=$cDerniere pas=1 # # $c binariser=VRAI seuil=%d # # $c translation_quelconque=FAUX # # $c stereo=0.0 # # $c trx=+0.0004892375 try=0 # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,(int)Seuil # # $c ,n # # $c ); # # $c printf("$xci/vraies_C$X # # $c A=$_____ImageT1.%04d # # $c p=$PaLeTtE # # $c RVB=VRAI # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT1.%04d%%s # # $c points=25 # # $c $formatI | # # $c $xci/format.01$X # # $c mode=2 # # $c R=$_____ImageT1.%04d%%s # # $c $formatR_Pal%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/accumule.02$X # # $c A=$_____ImageT0. # # $c premiere=$cPremiere derniere=$cDerniere pas=4 # # $c binariser=VRAI seuil=%d # # $c translation_quelconque=FAUX # # $c stereo=0.0 # # $c trx=+0.0004892375 try=0 # # $c R=$_____ImageT4.%04d # # $c $formatI\n" # # $c ,(int)Seuil # # $c ,n # # $c ); # # $c printf("$xci/vraies_C$X # # $c A=$_____ImageT4.%04d # # $c p=$PaLeTtE # # $c RVB=VRAI # # $c R=$_____ImageT4.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT4.%04d%%s # # $c points=25 # # $c $formatI | # # $c $xci/format.01$X # # $c mode=2 # # $c R=$_____ImageT4.%04d%%s # # $c $formatR_Pal%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z Pal # # # # $Z execRVB $xci/neutre$X A=$_____ImageT1.0056%s R=$xiirc/JULI.r1.0056%s $formatI # # $Z execRVB $xci/neutre$X A=$_____ImageT4.0056%s R=$xiirc/JULI.r4.0056%s $formatI # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/JULI.r1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT4 # # $Z set _____animation=$xiac/JULI.r4 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULI_r14: # # # # # # Cette version est donc anti-aliasee puisque calculee en resolution quadruple, en notant # # que les images '0056' correspondent a "seuil=221"... # v $xiac/JULI.s1$R16 v $xiac/JULI.s1$R64 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_JULI_s1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z @ cMilieu = $Nimages / 2 # # $Z @ cMilieu = $cPremiere + $cMilieu # # $Z set cMilieu = `$xci/nombres$X A="$K_VIDE" p=$cMilieu d=$cMilieu` # # # # $Z set _____ImageT0=$xTV/JULIA # # # # $Z set PaLeTtE=$xiP/fractal.11 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=-1.0 vA=+1.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=64 # # # # $Z set _____ImageT1=$xTV/JULIA.1 # # # # $Z @ RaPpOrT = $tailleI / $taille_Pal # # $Z @ SeUiL_HIsTo = 430000 # # $Z @ SeUiL_HIsTo = $RaPpOrT * $SeUiL_HIsTo # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" alpha_numerique=VRAI" # # $Z set PaRaM="$PaRaM"" editer_uniquement_niveau_seuil=VRAI" # # $Z set PaRaM="$PaRaM"" seuil_histogramme_cumule_pourcentage=FAUX" # # $Z set PaRaM="$PaRaM"" seuil_histogramme_cumule=$SeUiL_HIsTo" # # $Z set PaRaM="$PaRaM"" Prme=VRAI" # # # # $c #include <stdio.h> # # $c # # $c extern double cos(); # # $c extern double sin(); # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define RHO0 0 # # $c #define RHON 0.5 # # $c # # $c #define THETA0 0 # # $c #define THETAN 12.56637061435917 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double rho=((RHON*(n-N0))+(RHO0*(N-n)))/(N-N0); # # $c double theta=((THETAN*(n-N0))+(THETA0*(N-n)))/(N-N0); # # $c double r; # # $c double i; # # $c # # $c r = -0.5815147625160462 + (rho*cos(theta)); # # $c i = +0.6358885017421603 + (rho*sin(theta)); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=32 # # $c r=%.16f # # $c i=%.16f # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c xbgD=-1.10 ybgD=-1.10 xhdD=+1.10 yhdD=+1.10 # # $c xbgA=-1.10 ybgA=-1.10 xhdA=+1.10 yhdA=+1.10 # # $c R=$_____ImageT0. # # $c $formatI\n" # # $c ,r # # $c ,i # # $c ); # # $c # # $c printf("set SeUiL=`$xci/histogramme$X A=$_____ImageT0.$cMilieu $PaRaM`\n"); # # $c printf("set SeUiL=`echo %c$SeUiL%c | $SE -e 's/^[^(]*(//'`\n" # # $c ,'"','"' # # $c ); # # $c printf("set SeUiL=`echo %c$SeUiL%c | $SE -e 's/^\\([^)]*\\)).*$/\\1/'`\n" # # $c ,'"','"' # # $c ); # # $c # # $c printf("$xci/accumule.02$X # # $c A=$_____ImageT0. # # $c premiere=$cPremiere derniere=$cDerniere pas=1 # # $c binariser=VRAI seuil=$SeUiL # # $c translation_quelconque=FAUX # # $c stereo=0.0 # # $c trx=+0.00195695 try=0 # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,n # # $c ); # # $c printf("$xci/vraies_C$X # # $c A=$_____ImageT1.%04d # # $c p=$PaLeTtE # # $c RVB=VRAI # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT1.%04d%%s # # $c points=25 # # $c $formatI | # # $c $xci/format.01$X # # $c mode=2 # # $c R=$_____ImageT1.%04d%%s # # $c $formatR_Pal%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z Pal # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/JULI.s1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULI_s1: # # # # # # Cette animation propose autour du point {-0.5815147625160462,+0.6358885017421603} une # # promenade le long d'une spirale d'Archimede... # # # # On notera que "seuil_histogramme_cumule_pourcentage=FAUX" a ete introduit le 20090602115313 # # c'est-a-dire apres la generation de ces animations ; cela fut rendu necessaire par la # # valeur par defaut ('VRAI') de ce parametre... # v $xiac/JULI.t1$R16 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_JULI_t1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET NPremiere=1 # # $Z SET NDerniere=64 # # # # $Z @ Nimages = $NDerniere - $NPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____images_2 $xTV/JULI.1 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # $Z $xci/valeurs_inte$X p=$NPremiere d=$NDerniere \ # # $Z vD=0.0 vA=+1.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z $xrc/julia.41$X \ # # $Z images=$Nimages \ # # $Z iterations=64 \ # # $Z r=0.0 \ # # $Z i=1.0 \ # # $Z COMPOSANTE_J=$xTV/COMPOSANTE_J \ # # $Z K=0 \ # # $Z arguments=FAUX \ # # $Z R=$_____images_2. \ # # $Z $formatI # # # # $Z SET RPremiere=1 # # $Z SET RDerniere=16 # # # # $Z setenv SeUiL 32 # # $Z setenv PaLeTtE $xiP/sepia.11 # # # # $Z setenv _____images_3 $xTV/JULI.2 # # # # $Z setenv Tr_X `$xci/coordonnees$X norm=VRAI X=1 eX=VRAI eY=FAUX eZ=FAUX eN=FAUX` # # # # $Z FilSTmpB FStErOgRaM # # # # $c #include <stdio.h> # # # # $c #define R0 RPremiere # # $c #define R RDerniere # # # # $c #define N0 NPremiere # # $c #define N NDerniere # # # # $c #define S0 -4.0 # # $c #define SN +4.0 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=R0 ; n<=R ; n++) # # $c { # # $c double stereo = S0 + (((SN-S0)*(n-R0))/(R-R0)); # # # # $c printf("echo %c$xci/accumule.02$X # # $c A=$_____images_2. # # $c premiere=%d derniere=%d # # $c binariser=FAUX # # $c seuil=$SeUiL # # $c quelconque=FAUX # # $c quelconque=VRAI # # $c trx=$Tr_X try=0 # # $c stereo=%f # # $c $formatI | # # $c $xci/acces$X # # $c renormaliser=VRAI # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$PaLeTtE # # $c R=$_____images_3.%04d # # $c $formatI%c # # $c >> $FStErOgRaM\n" # # $c ,'\'' # # $c ,N0,N # # $c ,stereo # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FStErOgRaM # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FStErOgRaM" p14=FAUX # # # # $Z FilSTmpE FStErOgRaM # # # # $Z set Premiere=$RPremiere # # $Z set Derniere=$RDerniere # # $Z set _____images=$_____images_3 # # $Z set _____animation=$xiac/JULI.t1 # # # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_JULI_t1: # # # # # # Donne 4x3 stereogrammes de 'v $xiirc/JULI.q2'... # v $xiac/JULI.u1$R16 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_JULI_u1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET NPremiere=1 # # $Z SET NDerniere=64 # # # # $Z @ Nimages = $NDerniere - $NPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____images_2 $xTV/JULI.1 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # $Z $xci/valeurs_inte$X p=$NPremiere d=$NDerniere \ # # $Z vD=-1.0 vA=+1.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z $xrc/julia.41$X \ # # $Z images=$Nimages \ # # $Z iterations=32 \ # # $Z r=-0.5815147625160462 \ # # $Z i=+0.6358885017421603 \ # # $Z COMPOSANTE_J=$xTV/COMPOSANTE_J \ # # $Z K=0 \ # # $Z xbgD=-1.10 ybgD=-1.10 xhdD=+1.10 yhdD=+1.10 \ # # $Z xbgA=-1.10 ybgA=-1.10 xhdA=+1.10 yhdA=+1.10 \ # # $Z R=$_____images_2. \ # # $Z $formatI # # # # $Z SET RPremiere=1 # # $Z SET RDerniere=16 # # # # $Z setenv SeUiL 192 # # $Z setenv PaLeTtE $xiP/fractal.11 # # # # $Z setenv _____images_3 $xTV/JULI.2 # # # # $Z setenv Tr_X `$xci/coordonnees$X norm=VRAI X=1 eX=VRAI eY=FAUX eZ=FAUX eN=FAUX` # # # # $Z FilSTmpB FStErOgRaM # # # # $c #include <stdio.h> # # # # $c #define R0 RPremiere # # $c #define R RDerniere # # # # $c #define N0 NPremiere # # $c #define N NDerniere # # # # $c #define S0 -4.0 # # $c #define SN +4.0 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=R0 ; n<=R ; n++) # # $c { # # $c double stereo = S0 + (((SN-S0)*(n-R0))/(R-R0)); # # # # $c printf("echo %c$xci/accumule.02$X # # $c A=$_____images_2. # # $c premiere=%d derniere=%d # # $c binariser=VRAI # # $c seuil=$SeUiL # # $c quelconque=FAUX # # $c quelconque=VRAI # # $c trx=$Tr_X try=0 # # $c stereo=%f # # $c $formatI | # # $c $xci/acces$X # # $c renormaliser=VRAI # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$PaLeTtE # # $c R=$_____images_3.%04d # # $c $formatI%c # # $c >> $FStErOgRaM\n" # # $c ,'\'' # # $c ,N0,N # # $c ,stereo # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FStErOgRaM # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FStErOgRaM" p14=FAUX # # # # $Z FilSTmpE FStErOgRaM # # # # $Z set Premiere=$RPremiere # # $Z set Derniere=$RDerniere # # $Z set _____images=$_____images_3 # # $Z set _____animation=$xiac/JULI.u1 # # # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_JULI_u1: # # # # # # Donne 4x3 stereogrammes de 'v $xiirc/JULI.k1' (et donc de 'v $xiirc/JULI.r4.0056')... # v $xiac/JULI.v2.1$R16 v $xiac/JULI.v2.2$R16 v $xiirc/JULI.v2.1.0001 v $xiirc/JULI.v2.1.0002 v $xiirc/JULI.v2.1.0003 v $xiirc/JULI.v2.1.0004 v $xiirc/JULI.v2.1.0005 v $xiirc/JULI.v2.1.0006 v $xiirc/JULI.v2.1.0007 v $xiirc/JULI.v2.1.0008 v $xiirc/JULI.v2.1.0009 v $xiirc/JULI.v2.1.0010 v $xiirc/JULI.v2.1.0011 v $xiirc/JULI.v2.1.0012 v $xiirc/JULI.v2.1.0013 v $xiirc/JULI.v2.1.0014 v $xiirc/JULI.v2.1.0015 v $xiirc/JULI.v2.1.0016 v $xiirc/JULI.v2.2.0001 v $xiirc/JULI.v2.2.0002 v $xiirc/JULI.v2.2.0003 v $xiirc/JULI.v2.2.0004 v $xiirc/JULI.v2.2.0005 v $xiirc/JULI.v2.2.0006 v $xiirc/JULI.v2.2.0007 v $xiirc/JULI.v2.2.0008 v $xiirc/JULI.v2.2.0009 v $xiirc/JULI.v2.2.0010 v $xiirc/JULI.v2.2.0011 v $xiirc/JULI.v2.2.0012 v $xiirc/JULI.v2.2.0013 v $xiirc/JULI.v2.2.0014 v $xiirc/JULI.v2.2.0015 v $xiirc/JULI.v2.2.0016 v $xiirc/JULI.v2.1 v $xiirc/JULI.v2.2 p=$xiP/enfer.03 v $xiirc/JULI.v2.2 p=$xiP/trou_noir.13 v $xiirc/JULI.v2.3 v $xiirc/JULI.v2.4 p=$xiP/enfer.03 v $xiirc/JULI.v2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "belleville"-) par : # # # # # # :Debut_listG_JULI_v2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULI.v1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULI.v2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/JULI.v3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=10 # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.10 ybg=-1.10 xhd=+1.10 yhd=+1.10 # # $c produit_non_theorique=VRAI # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULI.v2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULI.v2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.v2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/JULI.v2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.v2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.v2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.v2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.v2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.v2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.v2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.v2.1 \ # # $Z R=$xiirc/JULI.v2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.v2.3 \ # # $Z R=$xiirc/JULI.v2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULI.v2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULI.v2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULI_v2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULI.s1.1' et # # de 'v $xiirc/JULI.s2.2' (donc SANS transformation de {Theta,Phi}). # v $xiac/JULI.x2.1$R16 v $xiac/JULI.x2.2$R16 v $xiirc/JULI.x2.1.0001 v $xiirc/JULI.x2.1.0002 v $xiirc/JULI.x2.1.0003 v $xiirc/JULI.x2.1.0004 v $xiirc/JULI.x2.1.0005 v $xiirc/JULI.x2.1.0006 v $xiirc/JULI.x2.1.0007 v $xiirc/JULI.x2.1.0008 v $xiirc/JULI.x2.1.0009 v $xiirc/JULI.x2.1.0010 v $xiirc/JULI.x2.1.0011 v $xiirc/JULI.x2.1.0012 v $xiirc/JULI.x2.1.0013 v $xiirc/JULI.x2.1.0014 v $xiirc/JULI.x2.1.0015 v $xiirc/JULI.x2.1.0016 v $xiirc/JULI.x2.1 v $xiirc/JULI.x2.2 p=$xiP/enfer.03 v $xiirc/JULI.x2.2 p=$xiP/trou_noir.13 v $xiirc/JULI.x2.3 v $xiirc/JULI.x2.4 p=$xiP/enfer.03 v $xiirc/JULI.x2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_JULI_x2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULI.x1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULI.x2 # # $Z set _____ImageT3=$xTV/JULI.x3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.x2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=6 # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.40 ybg=-1.40 xhd=+1.40 yhd=+1.40 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULI.x2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULI.x2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.x2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.x2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.x2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.x2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.x2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.x2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.x2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.x2.1 \ # # $Z R=$xiirc/JULI.x2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.x2.3 \ # # $Z R=$xiirc/JULI.x2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULI.x2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULI.x2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULI_x2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULI.w1.1' et # # de 'v $xiirc/JULI.w2.2' (donc AVEC transformation de {Theta,Phi}). # v $xiac/JULI.z2.1$R16 v $xiac/JULI.z2.2$R16 v $xiirc/JULI.z2.1.0001 v $xiirc/JULI.z2.1.0002 v $xiirc/JULI.z2.1.0003 v $xiirc/JULI.z2.1.0004 v $xiirc/JULI.z2.1.0005 v $xiirc/JULI.z2.1.0006 v $xiirc/JULI.z2.1.0007 v $xiirc/JULI.z2.1.0008 v $xiirc/JULI.z2.1.0009 v $xiirc/JULI.z2.1.0010 v $xiirc/JULI.z2.1.0011 v $xiirc/JULI.z2.1.0012 v $xiirc/JULI.z2.1.0013 v $xiirc/JULI.z2.1.0014 v $xiirc/JULI.z2.1.0015 v $xiirc/JULI.z2.1.0016 v $xiirc/JULI.z2.1 v $xiirc/JULI.z2.2 p=$xiP/enfer.03 v $xiirc/JULI.z2.2 p=$xiP/trou_noir.13 v $xiirc/JULI.z2.3 v $xiirc/JULI.z2.4 p=$xiP/enfer.03 v $xiirc/JULI.z2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_JULI_z2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULI.z1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULI.z2 # # $Z set _____ImageT3=$xTV/JULI.z3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.z2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=10 # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.40 ybg=-1.40 xhd=+1.40 yhd=+1.40 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULI.z2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULI.z2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.z2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.z2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.z2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.z2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULI.z2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULI.z2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULI.z2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.z2.1 \ # # $Z R=$xiirc/JULI.z2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULI.z2.3 \ # # $Z R=$xiirc/JULI.z2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULI.z2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULI.z2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULI_z2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULI.y1.1' et # # de 'v $xiirc/JULI.y2.2' (donc AVEC transformation de {Theta,Phi}) et plus d'iterations (10) # # que 'v $xiac/JULI.x2.1$R16' (6). # v $xiac/JULJ.22.1$R16 v $xiac/JULJ.22.2$R16 v $xiirc/JULJ.22.1.0001 v $xiirc/JULJ.22.1.0002 v $xiirc/JULJ.22.1.0003 v $xiirc/JULJ.22.1.0004 v $xiirc/JULJ.22.1.0005 v $xiirc/JULJ.22.1.0006 v $xiirc/JULJ.22.1.0007 v $xiirc/JULJ.22.1.0008 v $xiirc/JULJ.22.1.0009 v $xiirc/JULJ.22.1.0010 v $xiirc/JULJ.22.1.0011 v $xiirc/JULJ.22.1.0012 v $xiirc/JULJ.22.1.0013 v $xiirc/JULJ.22.1.0014 v $xiirc/JULJ.22.1.0015 v $xiirc/JULJ.22.1.0016 v $xiirc/JULJ.22.1 v $xiirc/JULJ.22.2 p=$xiP/enfer.03 v $xiirc/JULJ.22.2 p=$xiP/trou_noir.13 v $xiirc/JULJ.22.3 v $xiirc/JULJ.22.4 p=$xiP/enfer.03 v $xiirc/JULJ.22.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "villiers"-) par : # # # # # # :Debut_listG_JULJ_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULJ.21 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULJ.22 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/JULJ.23 # # $Z set _____ImageZ=$xTV/Z_BUFFER.22 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=-1.15 vA=+1.15 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=10 # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.25 ybg=-1.25 xhd=+1.25 yhd=+1.25 # # $c produit_non_theorique=VRAI # # $c eRho=3 # # $c pTheta=3 pPhi=3 # # $c tTheta=0 tPhi=0 # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULJ.22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULJ.22%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.22.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.22.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULJ.22.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULJ.22.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.22.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULJ.22.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULJ.22.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULJ.22.1 \ # # $Z R=$xiirc/JULJ.22.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULJ.22.3 \ # # $Z R=$xiirc/JULJ.22.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULJ.22.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULJ.22.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULJ_22: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULJ.11.1' et # # de 'v $xiirc/JULJ.11.2' Ravec un polynome de degre 1 et {(3.THETA)+(0),(3.PHI)+(0)}, ce # # devrait etre semblable a {(1.THETA)+(0),(1.PHI)+(0)} avec un polynome de degre 3... # v $xiac/JULJ.32.1$R16 v $xiac/JULJ.32.2$R16 v $xiirc/JULJ.32.1.0001 v $xiirc/JULJ.32.1.0002 v $xiirc/JULJ.32.1.0003 v $xiirc/JULJ.32.1.0004 v $xiirc/JULJ.32.1.0005 v $xiirc/JULJ.32.1.0006 v $xiirc/JULJ.32.1.0007 v $xiirc/JULJ.32.1.0008 v $xiirc/JULJ.32.1.0009 v $xiirc/JULJ.32.1.0010 v $xiirc/JULJ.32.1.0011 v $xiirc/JULJ.32.1.0012 v $xiirc/JULJ.32.1.0013 v $xiirc/JULJ.32.1.0014 v $xiirc/JULJ.32.1.0015 v $xiirc/JULJ.32.1.0016 v $xiirc/JULJ.32.2.0001 v $xiirc/JULJ.32.2.0002 v $xiirc/JULJ.32.2.0003 v $xiirc/JULJ.32.2.0004 v $xiirc/JULJ.32.2.0005 v $xiirc/JULJ.32.2.0006 v $xiirc/JULJ.32.2.0007 v $xiirc/JULJ.32.2.0008 v $xiirc/JULJ.32.2.0009 v $xiirc/JULJ.32.2.0010 v $xiirc/JULJ.32.2.0011 v $xiirc/JULJ.32.2.0012 v $xiirc/JULJ.32.2.0013 v $xiirc/JULJ.32.2.0014 v $xiirc/JULJ.32.2.0015 v $xiirc/JULJ.32.2.0016 v $xiirc/JULJ.32.1 v $xiirc/JULJ.32.2 p=$xiP/enfer.03 v $xiirc/JULJ.32.2 p=$xiP/trou_noir.13 v $xiirc/JULJ.32.3 v $xiirc/JULJ.32.4 p=$xiP/enfer.03 v $xiirc/JULJ.32.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_JULJ_32: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULJ.31 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULJ.32 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/JULJ.33 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c extern double cos(); # # $c extern double sin(); # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define RHO0 0.4 # # $c #define RHON 0.7 # # $c # # $c #define THETA0 1 # # $c #define THETAN ((2*6.283185307179586)+THETA0) # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double rho=((RHON*(n-N0))+(RHO0*(N-n)))/(N-N0); # # $c double theta=((THETAN*(n-N0))+(THETA0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=10 # # $c r=%f # # $c i=%f # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.10 ybg=-1.10 xhd=+1.10 yhd=+1.10 # # $c produit_non_theorique=VRAI # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=0 # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,rho*cos(theta) # # $c ,rho*sin(theta) # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=0 pY=0 pZ=1 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=1 pY=0 pZ=0'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULJ.32%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULJ.32%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.32.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/JULJ.32.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.32.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULJ.32.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULJ.32.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.32.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/JULJ.32.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/JULJ.32.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULJ.32.1 \ # # $Z R=$xiirc/JULJ.32.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/JULJ.32.3 \ # # $Z R=$xiirc/JULJ.32.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULJ.32.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULJ.32.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULJ_32: # # # # # # Cette animation propose une modification du nombre argument 'A' ({r,i,j,k}) en lui faisant # # decrire une spirale d'Archimede dans le plan complexe (j=k=0). # v $xiac/JULJ.42.1$R16 v $xiac/JULJ.42.2$R16 v $xiirc/JULJ.42.1.0001 v $xiirc/JULJ.42.1.0002 v $xiirc/JULJ.42.1.0003 v $xiirc/JULJ.42.1.0004 v $xiirc/JULJ.42.1.0005 v $xiirc/JULJ.42.1.0006 v $xiirc/JULJ.42.1.0007 v $xiirc/JULJ.42.1.0008 v $xiirc/JULJ.42.1.0009 v $xiirc/JULJ.42.1.0010 v $xiirc/JULJ.42.1.0011 v $xiirc/JULJ.42.1.0012 v $xiirc/JULJ.42.1.0013 v $xiirc/JULJ.42.1.0014 v $xiirc/JULJ.42.1.0015 v $xiirc/JULJ.42.1.0016 v $xiirc/JULJ.42.2.0001 v $xiirc/JULJ.42.2.0002 v $xiirc/JULJ.42.2.0003 v $xiirc/JULJ.42.2.0004 v $xiirc/JULJ.42.2.0005 v $xiirc/JULJ.42.2.0006 v $xiirc/JULJ.42.2.0007 v $xiirc/JULJ.42.2.0008 v $xiirc/JULJ.42.2.0009 v $xiirc/JULJ.42.2.0010 v $xiirc/JULJ.42.2.0011 v $xiirc/JULJ.42.2.0012 v $xiirc/JULJ.42.2.0013 v $xiirc/JULJ.42.2.0014 v $xiirc/JULJ.42.2.0015 v $xiirc/JULJ.42.2.0016 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_JULJ_42: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/JULJ.41 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/JULJ.42 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/JULJ.43 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ITER0 4 # # $c #define ITERP 2 # # $c # # $c int main() # # $c { # # $c int n; # # $c int iteration=ITER0; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/julia.41$X # # $c images=$Nimages # # $c iterations=%d # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.10 ybg=-1.10 xhd=+1.10 yhd=+1.10 # # $c produit_non_theorique=VRAI # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=0 # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,iteration # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=0 pY=0 pZ=1 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=1 pY=0 pZ=0'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/JULJ.42%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/JULJ.42%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c iteration = iteration+ITERP; # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/JULJ.42.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/JULJ.42.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/JULJ.42.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/JULJ.42.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULJ_42: # # # # # # Cette animation propose un "epluchage" de 'v $xiirc/JULI.s2.2'. # v $xiac/JULJ.61.1$R16 v $xiac/JULJ.61.2$R16 # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULJ.61.1' et # # de 'v $xiirc/JULJ.62.2' (donc SANS transformation de {Theta,Phi}) avec les ombres portees. # v $xiac/JULJ.F1$R16 v $xiac/JULJ.F1$R64 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_JULJ_F1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=128 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT=$xTV/JULJ.F1 # # # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define COUCHE0 1 # # $c #define COUCHES 128 # # $c # # $c #define X1D -1.0 # # $c #define X1A +0.5 # # $c #define X2D +1.0 # # $c #define X2A +0.5 # # $c # # $c #define Y1D -1.0 # # $c #define Y1A +0.0 # # $c #define Y2D +1.0 # # $c #define Y2A +0.0 # # $c # # $c #define Z1D -1.0 # # $c #define Z1A +0.0 # # $c #define Z2D +1.0 # # $c #define Z2A +0.0 # # $c # # $c #define PRECISION 0.02 # # $c # # $c int main() # # $c { # # $c int n; # # $c double x1D=X1D,x1C,x1A=X1A; # # $c double x2D=X2D,x2C,x2A=X2A; # # $c double y1D=Y1D,y1C,y1A=Y1A; # # $c double y2D=Y2D,y2C,y2A=Y2A; # # $c double z1D=Z1D,z1C,z1A=Z1A; # # $c double z2D=Z2D,z2C,z2A=Z2A; # # $c double precision=PRECISION; # # $c # # $c x1C = x1D; # # $c x2C = x2D; # # $c y1C = y1D; # # $c y2C = y2D; # # $c z1C = z1D; # # $c z2C = z2D; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$DELETE $xT/param11\n # # $c $xci/valeurs_inte$X # # $c p=1 d=%d # # $c vD=%f vA=%f # # $c cubique=FAUX # # $c > $xT/param11\n" # # $c ,COUCHES # # $c ,z1C,z2C # # $c ); # # $c printf("$xrc/julia.41$X # # $c images=%d # # $c iterations=64 # # $c r=-0.708415000 # # $c i=+0.305773000 # # $c COMPOSANTE_J=$xT/param11 # # $c K=0.0 # # $c xbgD=%f ybgD=%f # # $c xhdD=%f yhdD=%f # # $c xbgA=%f ybgA=%f # # $c xhdA=%f yhdA=%f # # $c R=$_____ImageT. # # $c $formatI\n" # # $c ,COUCHES # # $c ,x1C,y1C,x2C,y2C # # $c ,x1C,y1C,x2C,y2C # # $c ); # # $c printf("$xci/accumule.02$X # # $c A=$_____ImageT. # # $c premiere=%d derniere=%d # # $c binariser=FAUX # # $c translation_quelconque=FAUX # # $c stereo=0.0 # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/fractal.11 # # $c R=$_____ImageT.%04d # # $c $formatI\n" # # $c ,COUCHE0,COUCHES # # $c ,n # # $c ); # # $c # # $c x1C = ((1-precision)*x1C) + (precision*x1A); # # $c x2C = ((1-precision)*x2C) + (precision*x2A); # # $c y1C = ((1-precision)*y1C) + (precision*y1A); # # $c y2C = ((1-precision)*y2C) + (precision*y2A); # # $c z1C = ((1-precision)*z1C) + (precision*z1A); # # $c z2C = ((1-precision)*z2C) + (precision*z2A); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT # # $Z set _____animation=$xiac/JULJ.F1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_JULJ_F1: # # # # # # Cette animation correspond a 'v xivPdf 7 1 / 010128_010255' et qui n'avait pas ete # # memorisee sous cette forme en son temps. Or cette animation fut necessaire afin d'etre # # utilisee dans 'v $xiMd/ArtEtMathematiques.01$m4 JULJ.F1'... # v $xiac/JULJ.J1.1$R16 v $xiac/JULJ.J1.2$R16 v $xiac/JULJ.J1.21$R16 # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/JULJ.J1.1', # # de 'v $xiirc/JULJ.J2.2' et de 'v $xiirc/JULJ.J2.21'. # v $xiirc/JULJ.S3.1.0001 v $xiirc/JULJ.S3.1.0002 v $xiirc/JULJ.S3.1.0003 v $xiirc/JULJ.S3.1.0004 v $xiirc/JULJ.S3.1.0005 v $xiirc/JULJ.S3.1.0006 v $xiirc/JULJ.S3.1.0007 v $xiirc/JULJ.S3.1.0008 v $xiirc/JULJ.S3.1.0009 v $xiirc/JULJ.S3.1.0010 v $xiirc/JULJ.S3.1.0011 v $xiirc/JULJ.S3.1.0012 v $xiirc/JULJ.S3.1.0013 v $xiirc/JULJ.S3.1.0014 v $xiirc/JULJ.S3.1.0015 v $xiirc/JULJ.S3.1.0016 Pal ; anim3 A=$xiirc/JULJ.S3.1. premiere=1 derniere=16 v $xiirc/JULJ.S3.2.0001 v $xiirc/JULJ.S3.2.0002 v $xiirc/JULJ.S3.2.0003 v $xiirc/JULJ.S3.2.0004 v $xiirc/JULJ.S3.2.0005 v $xiirc/JULJ.S3.2.0006 v $xiirc/JULJ.S3.2.0007 v $xiirc/JULJ.S3.2.0008 v $xiirc/JULJ.S3.2.0009 v $xiirc/JULJ.S3.2.0010 v $xiirc/JULJ.S3.2.0011 v $xiirc/JULJ.S3.2.0012 v $xiirc/JULJ.S3.2.0013 v $xiirc/JULJ.S3.2.0014 v $xiirc/JULJ.S3.2.0015 v $xiirc/JULJ.S3.2.0016 Pal ; anim3 A=$xiirc/JULJ.S3.2. premiere=1 derniere=16 v $xiirc/JULJ.S3.21.0001 v $xiirc/JULJ.S3.21.0002 v $xiirc/JULJ.S3.21.0003 v $xiirc/JULJ.S3.21.0004 v $xiirc/JULJ.S3.21.0005 v $xiirc/JULJ.S3.21.0006 v $xiirc/JULJ.S3.21.0007 v $xiirc/JULJ.S3.21.0008 v $xiirc/JULJ.S3.21.0009 v $xiirc/JULJ.S3.21.0010 v $xiirc/JULJ.S3.21.0011 v $xiirc/JULJ.S3.21.0012 v $xiirc/JULJ.S3.21.0013 v $xiirc/JULJ.S3.21.0014 v $xiirc/JULJ.S3.21.0015 v $xiirc/JULJ.S3.21.0016 Pal ; anim3 A=$xiirc/JULJ.S3.21. premiere=1 derniere=16 v $xiac/JULJ.S3.1$R16 v $xiac/JULJ.S3.2$R16 v $xiac/JULJ.S3.21$MPEG v $xiac/JULJ.S3.21$R16 # Generee (sur '$CMAP28' -ex "picpus"-, puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULJ_S3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImagesR=$xiirc/JULJ.S3 # # $Z set _____animation=$xiac/JULJ.S3 # # # # $Z SET SPremiere=1 # # $Z SET HDerniere=4 # # $Z SET VDerniere=4 # # $Z SET SDerniere=`calculINS ($HDerniere*$VDerniere)+$SPremiere-1` # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/JULJ.S3 # # # # $Z SET _____OJ=-1.200 # # $Z SET _____EJ=+1.200 # # $Z SET _____Puissance=4 # # # # $Z set PRotationX="$K_VIDE" # # $Z set PRotationX="$PRotationX"" p=$SPremiere d=$SDerniere" # # $Z set PRotationX="$PRotationX"" vD=0 vA=$pis2" # # $Z set PRotationX="$PRotationX"" lineaire=VRAI" # # $Z set LRotationX=`$xci/valeurs_inte$X $PRotationX` # # $Z set SNumero=$SPremiere # # # # $Z foreach Angle ($LRotationX) # # $Z setenv _____ParaJulia "ROTATION_OX=$Angle" # # $m4 _____include(_____xiirc/.JULJ.N2.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xTV/JULJ.S3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z VBR # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.2 \ # # $Z $_____imagesR.2 \ # # $Z VBR # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 \ # # $Z $_____imagesR.21 \ # # $Z VBR # # # # $Z set NuMeRo=`$xci/nombres$X p=$SNumero d=$SNumero` # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR.1%s \ # # $Z R=$_____ImagesR.1.$NuMeRo%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR.2%s \ # # $Z R=$_____ImagesR.2.$NuMeRo%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR.21%s \ # # $Z R=$_____ImagesR.21.$NuMeRo%s \ # # $Z $formatI # # # # $Z @ SNumero = $SNumero + 1 # # $Z end # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____ImagesR.1. \ # # $Z $_____animation.1$R16%s \ # # $Z $SPremiere 1 \ # # $Z $HDerniere $VDerniere \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Pqu$K_QD' \ # # $Z 4 \ # # $Z FAUX # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____ImagesR.2. \ # # $Z $_____animation.2$R16%s \ # # $Z $SPremiere 1 \ # # $Z $HDerniere $VDerniere \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Pqu$K_QD' \ # # $Z 4 \ # # $Z FAUX # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____ImagesR.21. \ # # $Z $_____animation.21$R16%s \ # # $Z $SPremiere 1 \ # # $Z $HDerniere $VDerniere \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Pqu$K_QD' \ # # $Z 4 \ # # $Z FAUX # # # # $Z SET Premiere=$SPremiere # # $Z SET Derniere=$SDerniere # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____ImagesR.21. # # $Z set _____Animation=$_____animation.21 # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULJ_S3: # # # # # # Cette animation est une rotation de pi/2 par rapport a l'axe 'OX' autour de # # 'v $xiirc/JULJ.Q3.2'... # v $xiac/JULK.51$R16$DROITE p=$xiP/fractal.11 v $xiac/JULK.51$R64$DROITE p=$xiP/fractal.11 v $xiirc/JULK.51.0089$DROITE p=$xiP/fractal.11 v $xiirc/JULK.51.0091$DROITE p=$xiP/fractal.11 v $xiirc/JULK.51.0100$DROITE p=$xiP/fractal.11 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_JULK_51: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NCoUcHeS=128 # # # # $Z FilSTmpB FPaRaMeTrEs # # # # $Z $xci/valeurs_inte$X p=1 d=$NCoUcHeS vD=-1.0 vA=1.0 cubique=FAUX \ # # $Z >> $FPaRaMeTrEs # # # # $Z $xrc/julia.42$X \ # # $Z couches=$NCoUcHeS \ # # $Z iterations=32 \ # # $Z transparence=FAUX binariser=VRAI seuil=$GRIS_6 \ # # $Z J_COMPOSANTE_J=$FPaRaMeTrEs \ # # $Z JK=0.0 \ # # $Z translation_quelconque=FAUX stereo=0.0 \ # # $Z translation_quelconque=FAUX stereo=0.0 \ # # $Z editer=VRAI \ # # $Z R=$xTV/JULK.51. \ # # $Z M=$xTV/COUCHES. \ # # $Z $formatI # # # # $Z FilSTmpE FPaRaMeTrEs # # # # $Z set PrEm=`ls $xTV/JULK.51.* | $HEA -1 | $SE -e 's/^.*\(....\)$/\1/' -e 's/^0*//'` # # $Z set DeRn=`ls $xTV/JULK.51.* | $TAI -1 | $SE -e 's/^.*\(....\)$/\1/' -e 's/^0*//'` # # # # $Z $xci/reduction_16$X A=$xTV/JULK.51. \ # # $Z premiere=$PrEm derniere=$DeRn \ # # $Z calculer=VRAI \ # # $Z R=$xiac/JULK.51$R16$DROITE \ # # $Z $formatI # # # # $Z $xci/reduction_64$X A=$xTV/JULK.51. \ # # $Z premiere=$PrEm derniere=$DeRn \ # # $Z calculer=VRAI \ # # $Z R=$xiac/JULK.51$R64$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.51.0089 \ # # $Z R=$xiirc/JULK.51.0089$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.51.0091 \ # # $Z R=$xiirc/JULK.51.0091$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.51.0100 \ # # $Z R=$xiirc/JULK.51.0100$DROITE \ # # $Z $formatI # # # # :Fin_listG_JULK_51: # # # # # # Cette animation est identique a 'v $xiac/JU.N1$R16$DROITE'... # # # # Defintion des quaternions utilises pour parametrer chaque ensemble de Julia : # # # # # # image 0001 : quaternion=(-1.25869565217391322, -0.136956521739130421, +0,+0) # # image 0002 : quaternion=(-1.23260869565217379, -0.176086956521739113, +0,+0) # # image 0003 : quaternion=(-1.20217391304347831, -0.210869565217391308, +0,+0) # # image 0004 : quaternion=(-1.1978260869565216, -0.271739130434782594, +0,+0) # # image 0005 : quaternion=(-1.16739130434782612, -0.306521739130434789, +0,+0) # # image 0006 : quaternion=(-1.12391304347826093, -0.284782608695652195, +0,+0) # # image 0007 : quaternion=(-1.05869565217391304, -0.284782608695652195, +0,+0) # # image 0008 : quaternion=(-1.01956521739130435, -0.310869565217391397, +0,+0) # # image 0009 : quaternion=(-0.976086956521739157, -0.289130434782608692, +0,+0) # # image 0010 : quaternion=(-0.923913043478260754, -0.276086956521739202, +0,+0) # # image 0011 : quaternion=(-0.880434782608695565, -0.254347826086956497, +0,+0) # # image 0012 : quaternion=(-0.823913043478260887, -0.245652173913043503, +0,+0) # # image 0013 : quaternion=(-0.758695652173912993, -0.245652173913043503, +0,+0) # # image 0014 : quaternion=(-0.72391304347826102, -0.276086956521739202, +0,+0) # # image 0015 : quaternion=(-0.71086956521739153, -0.328260869565217384, +0,+0) # # image 0016 : quaternion=(-0.68043478260869561, -0.363043478260869579, +0,+0) # # image 0017 : quaternion=(-0.671739130434782616, -0.419565217391304368, +0,+0) # # image 0018 : quaternion=(-0.645652173913043415, -0.458695652173912949, +0,+0) # # image 0019 : quaternion=(-0.597826086956521952, -0.476086956521739157, +0,+0) # # image 0020 : quaternion=(-0.571739130434782528, -0.515217391304347849, +0,+0) # # image 0021 : quaternion=(-0.567391304347826031, -0.576086956521739135, +0,+0) # # image 0022 : quaternion=(-0.580434782608695521, -0.628260869565217428, +0,+0) # # image 0023 : quaternion=(-0.541304347826087051, -0.654347826086956519, +0,+0) # # image 0024 : quaternion=(-0.506521739130434856, -0.62391304347826082, +0,+0) # # image 0025 : quaternion=(-0.449999999999999956, -0.615217391304347827, +0,+0) # # image 0026 : quaternion=(-0.393478260869565499, -0.62391304347826082, +0,+0) # # image 0027 : quaternion=(-0.363043478260869357, -0.658695652173913015, +0,+0) # # image 0028 : quaternion=(-0.302173913043478404, -0.654347826086956519, +0,+0) # # image 0029 : quaternion=(-0.258695652173912993, -0.676086956521739113, +0,+0) # # image 0030 : quaternion=(-0.254347826086956275, -0.736956521739130399, +0,+0) # # image 0031 : quaternion=(-0.241304347826087007, -0.789130434782608692, +0,+0) # # image 0032 : quaternion=(-0.228260869565217295, -0.841304347826086985, +0,+0) # # image 0033 : quaternion=(-0.171739130434782616, -0.849999999999999978, +0,+0) # # image 0034 : quaternion=(-0.141304347826086918, -0.884782608695652173, +0,+0) # # image 0035 : quaternion=(-0.115217391304347938, -0.923913043478260865, +0,+0) # # image 0036 : quaternion=(-0.0934782608695652328, -0.949999999999999956, +0,+0) # # image 0037 : quaternion=(-0.0847826086956522396, -0.893478260869565277, +0,+0) # # image 0038 : quaternion=(-0.067391304347826253, -0.845652173913043481, +0,+0) # # image 0039 : quaternion=(-0.0152173913043478493, -0.83260869565217388, +0,+0) # # image 0040 : quaternion=(-0.00652173913043485598,-0.784782608695652195, +0,+0) # # image 0041 : quaternion=(-0.00652173913043485598,-0.719565217391304301, +0,+0) # # image 0042 : quaternion=(+0.00652173913043485598,-0.66739130434782612, +0,+0) # # image 0043 : quaternion=(+0.0500000000000002665, -0.645652173913043526, +0,+0) # # image 0044 : quaternion=(+0.115217391304347938, -0.645652173913043526, +0,+0) # # image 0045 : quaternion=(+0.149999999999999911, -0.615217391304347827, +0,+0) # # image 0046 : quaternion=(+0.176086956521739335, -0.576086956521739135, +0,+0) # # image 0047 : quaternion=(+0.241304347826087007, -0.576086956521739135, +0,+0) # # image 0048 : quaternion=(+0.29347826086956541, -0.589130434782608736, +0,+0) # # image 0049 : quaternion=(+0.354347826086956363, -0.593478260869565233, +0,+0) # # image 0050 : quaternion=(+0.341304347826086651, -0.54130434782608694, +0,+0) # # image 0051 : quaternion=(+0.31956521739130439, -0.497826086956521863, +0,+0) # # image 0052 : quaternion=(+0.31956521739130439, -0.432608695652173969, +0,+0) # # image 0053 : quaternion=(+0.341304347826086651, -0.38913043478260867, +0,+0) # # image 0054 : quaternion=(+0.380434782608695787, -0.363043478260869579, +0,+0) # # image 0055 : quaternion=(+0.423913043478260754, -0.350000000000000089, +0,+0) # # image 0056 : quaternion=(+0.384782608695652062, -0.323913043478260887, +0,+0) # # image 0057 : quaternion=(+0.380434782608695787, -0.26304347826086949, +0,+0) # # image 0058 : quaternion=(+0.384782608695652062, -0.210869565217391308, +0,+0) # # image 0059 : quaternion=(+0.376086956521739069, -0.15434782608695663, +0,+0) # # image 0060 : quaternion=(+0.349999999999999645, -0.115217391304347716, +0,+0) # # image 0061 : quaternion=(+0.31956521739130439, -0.0804347826086957429,+0,+0) # # image 0062 : quaternion=(+0.29347826086956541, -0.0413043478260870511,+0,+0) # # image 0063 : quaternion=(+0.289130434782608692, +0.0195652173913043459,+0,+0) # # image 0064 : quaternion=(+0.310869565217391397, +0.0630434782608695343,+0,+0) # # image 0065 : quaternion=(+0.336956521739130377, +0.102173913043478226, +0,+0) # # image 0066 : quaternion=(+0.363043478260869801, +0.141304347826086918, +0,+0) # # image 0067 : quaternion=(+0.380434782608695787, +0.189130434782608603, +0,+0) # # image 0068 : quaternion=(+0.380434782608695787, +0.236956521739130288, +0,+0) # # image 0069 : quaternion=(+0.380434782608695787, +0.302173913043478404, +0,+0) # # image 0070 : quaternion=(+0.406521739130434767, +0.341304347826086873, +0,+0) # # image 0071 : quaternion=(+0.402173913043478493, +0.35869565217391286, +0,+0) # # image 0072 : quaternion=(+0.354347826086956363, +0.376086956521739291, +0,+0) # # image 0073 : quaternion=(+0.332608695652173658, +0.419565217391304479, +0,+0) # # image 0074 : quaternion=(+0.31956521739130439, +0.471739130434782661, +0,+0) # # image 0075 : quaternion=(+0.332608695652173658, +0.523913043478260843, +0,+0) # # image 0076 : quaternion=(+0.34565217391304337, +0.576086956521739246, +0,+0) # # image 0077 : quaternion=(+0.31956521739130439, +0.589130434782608736, +0,+0) # # image 0078 : quaternion=(+0.258695652173912993, +0.58478260869565224, +0,+0) # # image 0079 : quaternion=(+0.202173913043478315, +0.576086956521739246, +0,+0) # # image 0080 : quaternion=(+0.15434782608695663, +0.593478260869565233, +0,+0) # # image 0081 : quaternion=(+0.136956521739130199, +0.641304347826086918, +0,+0) # # image 0082 : quaternion=(+0.0760869565217392463, +0.645652173913043637, +0,+0) # # image 0083 : quaternion=(+0.0239130434782608425, +0.658695652173913127, +0,+0) # # image 0084 : quaternion=(-0.00652173913043485598, +0.693478260869565322,+0,+0) # # image 0085 : quaternion=(-0.00652173913043485598, +0.758695652173912993,+0,+0) # # image 0086 : quaternion=(-0.00652173913043485598, +0.823913043478261109,+0,+0) # # image 0087 : quaternion=(-0.054347826086956541, +0.832608695652173658, +0,+0) # # image 0088 : quaternion=(-0.0760869565217392463, +0.876086956521739069, +0,+0) # # image 0089 : quaternion=(-0.0934782608695652328, +0.923913043478260754, +0,+0) # # image 0090 : quaternion=(-0.115217391304347938, +0.950000000000000178, +0,+0) # # image 0091 : quaternion=(-0.128260869565217206, +0.897826086956521774, +0,+0) # # image 0092 : quaternion=(-0.163043478260869179, +0.867391304347826075, +0,+0) # # image 0093 : quaternion=(-0.206521739130435034, +0.84565217391304337, +0,+0) # # image 0094 : quaternion=(-0.241304347826087007, +0.815217391304347672, +0,+0) # # image 0095 : quaternion=(-0.245652173913043281, +0.754347826086956719, +0,+0) # # image 0096 : quaternion=(-0.254347826086956275, +0.697826086956521596, +0,+0) # # image 0097 : quaternion=(-0.280434782608695699, +0.658695652173913127, +0,+0) # # image 0098 : quaternion=(-0.341304347826087096, +0.654347826086956408, +0,+0) # # image 0099 : quaternion=(-0.380434782608695787, +0.636956521739130421, +0,+0) # # image 0100 : quaternion=(-0.423913043478260754, +0.615217391304347938, +0,+0) # # image 0101 : quaternion=(-0.489130434782608869, +0.615217391304347938, +0,+0) # # image 0102 : quaternion=(-0.528260869565217339, +0.641304347826086918, +0,+0) # # image 0103 : quaternion=(-0.571739130434782528, +0.645652173913043637, +0,+0) # # image 0104 : quaternion=(-0.567391304347826031, +0.602173913043478226, +0,+0) # # image 0105 : quaternion=(-0.567391304347826031, +0.536956521739130332, +0,+0) # # image 0106 : quaternion=(-0.584782608695652018, +0.489130434782608647, +0,+0) # # image 0107 : quaternion=(-0.632608695652173925, +0.471739130434782661, +0,+0) # # image 0108 : quaternion=(-0.671739130434782616, +0.445652173913043459, +0,+0) # # image 0109 : quaternion=(-0.671739130434782616, +0.380434782608695787, +0,+0) # # image 0110 : quaternion=(-0.702173913043478537, +0.345652173913043592, +0,+0) # # image 0111 : quaternion=(-0.715217391304348027, +0.293478260869565188, +0,+0) # # image 0112 : quaternion=(-0.741304347826087007, +0.254347826086956275, +0,+0) # # image 0113 : quaternion=(-0.797826086956521685, +0.245652173913043503, +0,+0) # # image 0114 : quaternion=(-0.863043478260869579, +0.245652173913043503, +0,+0) # # image 0115 : quaternion=(-0.906521739130434767, +0.267391304347825987, +0,+0) # # image 0116 : quaternion=(-0.949999999999999956, +0.289130434782608692, +0,+0) # # image 0117 : quaternion=(-1.00652173913043486, +0.297826086956521685, +0,+0) # # image 0118 : quaternion=(-1.04130434782608683, +0.293478260869565188, +0,+0) # # image 0119 : quaternion=(-1.09782608695652173, +0.284782608695652417, +0,+0) # # image 0120 : quaternion=(-1.15434782608695663, +0.293478260869565188, +0,+0) # # image 0121 : quaternion=(-1.1978260869565216, +0.297826086956521685, +0,+0) # # image 0122 : quaternion=(-1.1978260869565216, +0.232608695652174013, +0,+0) # # image 0123 : quaternion=(-1.2195652173913043, +0.189130434782608603, +0,+0) # # image 0124 : quaternion=(-1.25869565217391322, +0.163043478260869401, +0,+0) # # image 0125 : quaternion=(-1.2760869565217392, +0.115217391304347716, +0,+0) # # image 0126 : quaternion=(-1.31956521739130439, +0.0934782608695652328,+0,+0) # # image 0127 : quaternion=(-1.38043478260869557, +0.0891304347826085142,+0,+0) # # image 0128 : quaternion=(-1.39347826086956528, +0.0369565217391305545,+0,+0) # # image 0129 : quaternion=(-1.43260869565217397, +0.0108695652173911306,+0,+0) # # image 0130 : quaternion=(-1.45869565217391295, -0.0108695652173911306,+0,+0) # # image 0131 : quaternion=(-1.40652173913043477, -0.0239130434782608425,+0,+0) # # image 0132 : quaternion=(-1.38043478260869557, -0.0630434782608695343,+0,+0) # # image 0133 : quaternion=(-1.34565217391304337, -0.0934782608695652328,+0,+0) # # image 0134 : quaternion=(-1.28913043478260869, -0.102173913043478226, +0,+0) # # # v $xiac/JULK.61$R16$DROITE p=$xiP/fractal.11 v $xiac/JULK.61$R64$DROITE p=$xiP/fractal.11 v $xiirc/JULK.61.0079$DROITE p=$xiP/fractal.11 v $xiirc/JULK.61.0080$DROITE p=$xiP/fractal.11 v $xiirc/JULK.61.0081$DROITE p=$xiP/fractal.11 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_JULK_61: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NCoUcHeS=128 # # # # $Z FilSTmpB FPaRaMeTrEs # # # # $Z $xci/valeurs_inte$X p=1 d=$NCoUcHeS vD=-1.0 vA=1.0 cubique=FAUX \ # # $Z >> $FPaRaMeTrEs # # # # $Z $xrc/julia.42$X \ # # $Z couches=$NCoUcHeS \ # # $Z iterations=32 \ # # $Z transparence=FAUX binariser=VRAI seuil=$GRIS_6 \ # # $Z J_COMPOSANTE_J=$FPaRaMeTrEs \ # # $Z JK=0.0 \ # # $Z arithmetique_folklorique_C=VRAI \ # # $Z somme_Reelle_folklorique_a0100=1 \ # # $Z produit_Reelle_folklorique_a1011=1 \ # # $Z produit_Imaginaire_folklorique_a0101=1 \ # # $Z produit_Imaginaire_folklorique_a0111=1 \ # # $Z translation_quelconque=FAUX stereo=0.0 \ # # $Z translation_quelconque=FAUX stereo=0.0 \ # # $Z editer=VRAI \ # # $Z R=$xTV/JULK.61. \ # # $Z M=$xTV/COUCHES. \ # # $Z $formatI # # # # $Z FilSTmpE FPaRaMeTrEs # # # # $Z set PrEm=`ls $xTV/JULK.61.* | $HEA -1 | $SE -e 's/^.*\(....\)$/\1/' -e 's/^0*//'` # # $Z set DeRn=`ls $xTV/JULK.61.* | $TAI -1 | $SE -e 's/^.*\(....\)$/\1/' -e 's/^0*//'` # # # # $Z $xci/reduction_16$X A=$xTV/JULK.61. \ # # $Z premiere=$PrEm derniere=$DeRn \ # # $Z calculer=VRAI \ # # $Z R=$xiac/JULK.61$R16$DROITE \ # # $Z $formatI # # # # $Z $xci/reduction_64$X A=$xTV/JULK.61. \ # # $Z premiere=$PrEm derniere=$DeRn \ # # $Z calculer=VRAI \ # # $Z R=$xiac/JULK.61$R64$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.61.0079 \ # # $Z R=$xiirc/JULK.61.0079$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.61.0080 \ # # $Z R=$xiirc/JULK.61.0080$DROITE \ # # $Z $formatI # # # # $Z $xci/neutre$X A=$xTV/JULK.61.0081 \ # # $Z R=$xiirc/JULK.61.0081$DROITE \ # # $Z $formatI # # # # :Fin_listG_JULK_61: # # # # # # Cette animation est identique a 'v $xiac/JULK.51$R16$DROITE', mais avec une arithmetique # # "folklorique" (et arbitraire...) dans C... # v $xiac/JULK.E4.21$R16 v $xiac/JULK.E4.21$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_E4: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.E4.21 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_E4: # # # v $xiac/JULK.F4.1$R16 v $xiac/JULK.F4.1$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_F4: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.F4.1 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_F4: # # # v $xiac/JULK.G4.1$R16 v $xiac/JULK.G4.1$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_G4: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.G4.1 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_G4: # # # v $xiac/JULK.G5.21$R16 v $xiac/JULK.G5.21$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_G5: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.G5.21 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_G5: # # # v $xiac/JULK.G6.21$R16 v $xiac/JULK.G6.21$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_G6: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.G6.21 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_G6: # # # v $xiac/JULK.H5.21$R16 v $xiac/JULK.H5.21$MPEG # Generee (sur '$LACT1A', puis sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_H5: # # # # $Z Pdu # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z set _____ImagesR=$xiirc/JULK.H5.21 # # # # $Z set A09="$Alphabet_0_9" # # # # $Z set Premiere=`ls $_____ImagesR.????$ROUGE | $HEA -1` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s+$_____ImagesR++"` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Premiere=`echo "$Premiere" | $SE -e "s/^0*//"` # # # # $Z set Derniere=`ls $_____ImagesR.????$ROUGE | $TAI -1` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s+$_____ImagesR++"` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/\""$ROUGE"'$//'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^.*\.\([$A09]*\)"'$/\1/'` # # $Z set Derniere=`echo "$Derniere" | $SE -e "s/^0*//"` # # # # $Z unset A09 # # # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/`GetLeaf $_____ImagesR` # # # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____LRepetitions="$K_VIDE" # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_JULK_H5: # # # v $xiac/LYAP.71$R16 v $xiac/LYAP.71.1$R16 v $xiac/LYAP.71.2$R16 v $xiac/LYAP.71.2.1$R16 v $xiirc/LYAP.71.2.0001 v $xiirc/LYAP.71.2.0002 v $xiirc/LYAP.71.2.0003 v $xiirc/LYAP.71.2.0004 v $xiirc/LYAP.71.2.0005 v $xiirc/LYAP.71.2.0006 v $xiirc/LYAP.71.2.0007 v $xiirc/LYAP.71.2.0008 v $xiirc/LYAP.71.2.0009 v $xiirc/LYAP.71.2.0010 v $xiirc/LYAP.71.2.0011 v $xiirc/LYAP.71.2.0012 v $xiirc/LYAP.71.2.0013 v $xiirc/LYAP.71.2.0014 v $xiirc/LYAP.71.2.0015 v $xiirc/LYAP.71.2.0016 Pal ; anim3 A=$xiirc/LYAP.71.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # :Debut_listG_LYAP_71: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=127 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/LYAP.71 # # # # $Z $xrk/lyapunov.12$X \ # # $Z images=$Nimages \ # # $Z iterations=100 \ # # $Z zD=2.6 zA=3.6 \ # # $Z suite="111111222222333333" \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=50 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.71.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.71 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.71.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.71.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.71.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_71: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.61.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # ATTENTION : l'ombrage par 'v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X' n'est pas fait a # # l'interieur de la boucle 'while(...)', mais une seule fois au prealable et a l'exterieur, # # ce qui est en fait incorrect car, en effet pour que les ombres semblent fixes sur l'objet, # # alors que ce dernier tourne, il faut que la source lumineuse tourne aussi... # v $xiac/LYAP.72$R16 v $xiac/LYAP.72.1$R16 v $xiac/LYAP.72.2$R16 v $xiac/LYAP.72.2.1$R16 v $xiirc/LYAP.72.2.0001 v $xiirc/LYAP.72.2.0002 v $xiirc/LYAP.72.2.0003 v $xiirc/LYAP.72.2.0004 v $xiirc/LYAP.72.2.0005 v $xiirc/LYAP.72.2.0006 v $xiirc/LYAP.72.2.0007 v $xiirc/LYAP.72.2.0008 v $xiirc/LYAP.72.2.0009 v $xiirc/LYAP.72.2.0010 v $xiirc/LYAP.72.2.0011 v $xiirc/LYAP.72.2.0012 v $xiirc/LYAP.72.2.0013 v $xiirc/LYAP.72.2.0014 v $xiirc/LYAP.72.2.0015 v $xiirc/LYAP.72.2.0016 Pal ; anim3 A=$xiirc/LYAP.72.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # :Debut_listG_LYAP_72: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=127 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/LYAP.72 # # # # $Z $xrk/lyapunov.12$X \ # # $Z images=$Nimages \ # # $Z iterations=100 \ # # $Z xbg=3.40 ybg=3.45 xhd=3.6 yhd=3.65 \ # # $Z zD=2.6 zA=3.6 \ # # $Z suite="111111222222333333" \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=50 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.72.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.72 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.72.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.72.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.72.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_72: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.62.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # ATTENTION : l'ombrage par 'v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X' n'est pas fait a # # l'interieur de la boucle 'while(...)', mais une seule fois au prealable et a l'exterieur, # # ce qui est en fait incorrect car, en effet pour que les ombres semblent fixes sur l'objet, # # alors que ce dernier tourne, il faut que la source lumineuse tourne aussi... # v $xiac/LYAP.91$R16 v $xiac/LYAP.91.1$R16 v $xiac/LYAP.91.2$R16 v $xiac/LYAP.91.2.1$R16 v $xiirc/LYAP.91.2.0001 v $xiirc/LYAP.91.2.0002 v $xiirc/LYAP.91.2.0003 v $xiirc/LYAP.91.2.0004 v $xiirc/LYAP.91.2.0005 v $xiirc/LYAP.91.2.0006 v $xiirc/LYAP.91.2.0007 v $xiirc/LYAP.91.2.0008 v $xiirc/LYAP.91.2.0009 v $xiirc/LYAP.91.2.0010 v $xiirc/LYAP.91.2.0011 v $xiirc/LYAP.91.2.0012 v $xiirc/LYAP.91.2.0013 v $xiirc/LYAP.91.2.0014 v $xiirc/LYAP.91.2.0015 v $xiirc/LYAP.91.2.0016 Pal ; anim3 A=$xiirc/LYAP.91.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "belleville"-) par : # # # # :Debut_listG_LYAP_91: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=511 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xTV/TAUX # # # # $Z set NTaux=32 # # # # $Z $xci/valeurs_trig$X \ # # $Z p=1 d=$NTaux \ # # $Z aD=0 aA=`calcul 8*$pi` \ # # $Z gamma=1 \ # # $Z entier=VRAI \ # # $Z epsilon=0.2 \ # # $Z > $xTV/TAUX # # # # $Z set _____ImageT1=$xTV/LYAP.81 # # # # $Z $xrk/lyapunov.22$X \ # # $Z images=$Nimages \ # # $Z iterations=$NTaux \ # # $Z LISTE_TAUX=$xTV/TAUX \ # # $Z xbg=3.000 ybg=3.500 \ # # $Z xhd=3.350 yhd=3.850 \ # # $Z zD=4 zA=3 \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z editer_fenetre_courante=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/TAUX # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=50 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=+1.20 # # $Z set AnGlEN=-1.05 # # $Z set PLAnGlEs="$K_VIDE" # # $Z set PLAnGlEs="$PLAnGlEs"" p=$Premiere d=$Derniere" # # $Z set PLAnGlEs="$PLAnGlEs"" vD=$AnGlE0 vA=$AnGlEN" # # $Z set PLAnGlEs="$PLAnGlEs"" lineaire=VRAI" # # $Z set PLAnGlEs="$PLAnGlEs"" format=f decimales=4" # # $Z set LAnGlEs=`$xci/valeurs_inte$X $PLAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____DxDyDz=1 # # $Z set _____SuperEchelle=FAUX # # $Z set _____DRotation=VRAI # # $Z set _____DRotationX=0 # # $Z set _____DRotationY=$LAnGlEs[$ImAgE] # # $Z set _____LineaireD=VRAI # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.91.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.91 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.91.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.91.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.91.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_91: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.81.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # En ce qui concerne le choix des angles de rotation dans [-1.05,+1.20], les commentaires # # 'v $xiii/di_album$FON 20101209152519' le justifie... # v $xiac/LYAP.B1$R16 v $xiac/LYAP.B1.1$R16 v $xiac/LYAP.B1.2$R16 v $xiac/LYAP.B1.2.1$R16 v $xiirc/LYAP.B1.2.0001 v $xiirc/LYAP.B1.2.0002 v $xiirc/LYAP.B1.2.0003 v $xiirc/LYAP.B1.2.0004 v $xiirc/LYAP.B1.2.0005 v $xiirc/LYAP.B1.2.0006 v $xiirc/LYAP.B1.2.0007 v $xiirc/LYAP.B1.2.0008 v $xiirc/LYAP.B1.2.0009 v $xiirc/LYAP.B1.2.0010 v $xiirc/LYAP.B1.2.0011 v $xiirc/LYAP.B1.2.0012 v $xiirc/LYAP.B1.2.0013 v $xiirc/LYAP.B1.2.0014 v $xiirc/LYAP.B1.2.0015 v $xiirc/LYAP.B1.2.0016 Pal ; anim3 A=$xiirc/LYAP.B1.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # :Debut_listG_LYAP_B1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=511 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xTV/TAUX # # # # $Z set NTaux=32 # # # # $Z $xci/valeurs_trig$X \ # # $Z p=1 d=$NTaux \ # # $Z aD=0 aA=`calcul 8*$pi` \ # # $Z gamma=1 \ # # $Z entier=VRAI \ # # $Z epsilon=0.2 \ # # $Z > $xTV/TAUX # # # # $Z set _____ImageT1=$xTV/LYAP.81 # # # # $Z $xrk/lyapunov.22$X \ # # $Z images=$Nimages \ # # $Z iterations=$NTaux \ # # $Z LISTE_TAUX=$xTV/TAUX \ # # $Z xbg=3.100 ybg=3.400 \ # # $Z xhd=3.300 yhd=3.750 \ # # $Z zD=4.0000 zA=3.750 \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z editer_fenetre_courante=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/TAUX # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=50 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=+1.20 # # $Z set AnGlEN=-1.05 # # $Z set PLAnGlEs="$K_VIDE" # # $Z set PLAnGlEs="$PLAnGlEs"" p=$Premiere d=$Derniere" # # $Z set PLAnGlEs="$PLAnGlEs"" vD=$AnGlE0 vA=$AnGlEN" # # $Z set PLAnGlEs="$PLAnGlEs"" lineaire=VRAI" # # $Z set PLAnGlEs="$PLAnGlEs"" format=f decimales=4" # # $Z set LAnGlEs=`$xci/valeurs_inte$X $PLAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____DxDyDz=1 # # $Z set _____SuperEchelle=FAUX # # $Z set _____DRotation=VRAI # # $Z set _____DRotationX=0 # # $Z set _____DRotationY=$LAnGlEs[$ImAgE] # # $Z set _____LineaireD=VRAI # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.B1.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.B1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.B1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.B1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.B1.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_B1: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.A1.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # En ce qui concerne le choix des angles de rotation dans [-1.05,+1.20], les commentaires # # 'v $xiii/di_album$FON 20101209152519' le justifie... # v $xiac/LYAP.E5$R16 v $xiac/LYAP.E5.1$R16 v $xiac/LYAP.E5.2$R16 v $xiac/LYAP.E5.2.1$R16 v $xiirc/LYAP.E5.2.0001 v $xiirc/LYAP.E5.2.0002 v $xiirc/LYAP.E5.2.0003 v $xiirc/LYAP.E5.2.0004 v $xiirc/LYAP.E5.2.0005 v $xiirc/LYAP.E5.2.0006 v $xiirc/LYAP.E5.2.0007 v $xiirc/LYAP.E5.2.0008 v $xiirc/LYAP.E5.2.0009 v $xiirc/LYAP.E5.2.0010 v $xiirc/LYAP.E5.2.0011 v $xiirc/LYAP.E5.2.0012 v $xiirc/LYAP.E5.2.0013 v $xiirc/LYAP.E5.2.0014 v $xiirc/LYAP.E5.2.0015 v $xiirc/LYAP.E5.2.0016 Pal ; anim3 A=$xiirc/LYAP.E5.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # :Debut_listG_LYAP_E5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=511 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xTV/TAUX # # # # $Z set NTaux=32 # # # # $Z $xci/valeurs_trig$X \ # # $Z p=1 d=$NTaux \ # # $Z aD=0 aA=`calcul 5*$pi` \ # # $Z gamma=1 \ # # $Z entier=VRAI \ # # $Z epsilon=0.2 \ # # $Z > $xTV/TAUX # # # # $Z set _____ImageT1=$xTV/LYAP.E5 # # # # $Z $xrk/lyapunov.22$X \ # # $Z images=$Nimages \ # # $Z iterations=$NTaux \ # # $Z LISTE_TAUX=$xTV/TAUX \ # # $Z xbg=3.000 ybg=3.500 \ # # $Z xhd=3.350 yhd=3.850 \ # # $Z zD=4 zA=3 \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z editer_fenetre_courante=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/TAUX # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=35 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=+1.20 # # $Z set AnGlEN=-1.05 # # $Z set PLAnGlEs="$K_VIDE" # # $Z set PLAnGlEs="$PLAnGlEs"" p=$Premiere d=$Derniere" # # $Z set PLAnGlEs="$PLAnGlEs"" vD=$AnGlE0 vA=$AnGlEN" # # $Z set PLAnGlEs="$PLAnGlEs"" lineaire=VRAI" # # $Z set PLAnGlEs="$PLAnGlEs"" format=f decimales=4" # # $Z set LAnGlEs=`$xci/valeurs_inte$X $PLAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____DxDyDz=1 # # $Z set _____SuperEchelle=FAUX # # $Z set _____DRotation=VRAI # # $Z set _____DRotationX=0 # # $Z set _____DRotationY=$LAnGlEs[$ImAgE] # # $Z set _____LineaireD=VRAI # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.E5.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.E5 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.E5.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.E5.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.E5.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_E5: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.C5.2' et # # donne donc 4x3 stereogrammes de cette image. # # # # En ce qui concerne le choix des angles de rotation dans [-1.05,+1.20], les commentaires # # 'v $xiii/di_album$FON 20101209152519' le justifie... # v $xiac/LYAP.E6$R16 v $xiac/LYAP.E6.1$R16 v $xiac/LYAP.E6.2$R16 v $xiac/LYAP.E6.2.1$R16 v $xiirc/LYAP.E6.2.0001 v $xiirc/LYAP.E6.2.0002 v $xiirc/LYAP.E6.2.0003 v $xiirc/LYAP.E6.2.0004 v $xiirc/LYAP.E6.2.0005 v $xiirc/LYAP.E6.2.0006 v $xiirc/LYAP.E6.2.0007 v $xiirc/LYAP.E6.2.0008 v $xiirc/LYAP.E6.2.0009 v $xiirc/LYAP.E6.2.0010 v $xiirc/LYAP.E6.2.0011 v $xiirc/LYAP.E6.2.0012 v $xiirc/LYAP.E6.2.0013 v $xiirc/LYAP.E6.2.0014 v $xiirc/LYAP.E6.2.0015 v $xiirc/LYAP.E6.2.0016 Std ; anim3 A=$xiirc/LYAP.E6.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # :Debut_listG_LYAP_E6: # # # # $Z Std # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=0 # # $Z SET cDerniere=511 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xTV/TAUX # # # # $Z set NTaux=32 # # # # $Z $xci/valeurs_trig$X \ # # $Z p=1 d=$NTaux \ # # $Z aD=0 aA=`calcul 5*$pi` \ # # $Z gamma=1 \ # # $Z entier=VRAI \ # # $Z epsilon=0.2 \ # # $Z > $xTV/TAUX # # # # $Z set _____ImageT1=$xTV/LYAP.E6 # # # # $Z $xrk/lyapunov.22$X \ # # $Z images=$Nimages \ # # $Z iterations=$NTaux \ # # $Z LISTE_TAUX=$xTV/TAUX \ # # $Z xbg=3.000 ybg=3.500 \ # # $Z xhd=3.350 yhd=3.850 \ # # $Z zD=4 zA=3 \ # # $Z negatifs=VRAI \ # # $Z positifs=FAUX \ # # $Z editer_fenetre_courante=FAUX \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/TAUX # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z $xci/seuil$X \ # # $Z A=$_____ImageT1.%04d \ # # $Z seuil=15 \ # # $Z R=$_____ImageT1.%04d \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul +$dpi/16` # # $Z set AnGlEN=`calcul -$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____SuperEchelle=FAUX # # $Z set _____DRotation=VRAI # # $Z set _____DRotationX=0 # # $Z set _____DRotationY=$LAnGlEs[$ImAgE] # # $Z set _____LineaireD=VRAI # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/LYAP.E6.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/LYAP.E6 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/LYAP.E6.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/LYAP.E6.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/LYAP.E6.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_LYAP_E6: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/LYAP.C5.2' et # # donne donc 4x3 stereogrammes de cette image. On notera qu'etant donne le principe # # de la methode ici utilisee (faire tourner la densite avant chaque accumulation), c'est # # rotation inverse [+$dpi/16,-$dpi/16] qui doit etre utilisee. D'autre part, l'espace de # # calcul est parfaitement cubique (de taille 512^3) de facon a eliminer au maximum les # # artefacts rencontres dans un espace distordu (par exemple 'Pal' pour 'OX' et 'OY', et # # [0,127] pour 'Oz'). # v $xiac/LYAP.M3$HauteDef$R16 # Voir 'v $xiirc/$Fnota _listG_LYAP_M3_HauteDef'... # v $xiac/MANB.42.1$R16 v $xiac/MANB.42.2$R16 v $xiirc/MANB.42.1.0001 v $xiirc/MANB.42.1.0002 v $xiirc/MANB.42.1.0003 v $xiirc/MANB.42.1.0004 v $xiirc/MANB.42.1.0005 v $xiirc/MANB.42.1.0006 v $xiirc/MANB.42.1.0007 v $xiirc/MANB.42.1.0008 v $xiirc/MANB.42.1.0009 v $xiirc/MANB.42.1.0010 v $xiirc/MANB.42.1.0011 v $xiirc/MANB.42.1.0012 v $xiirc/MANB.42.1.0013 v $xiirc/MANB.42.1.0014 v $xiirc/MANB.42.1.0015 v $xiirc/MANB.42.1.0016 v $xiirc/MANB.42.2.0001 v $xiirc/MANB.42.2.0002 v $xiirc/MANB.42.2.0003 v $xiirc/MANB.42.2.0004 v $xiirc/MANB.42.2.0005 v $xiirc/MANB.42.2.0006 v $xiirc/MANB.42.2.0007 v $xiirc/MANB.42.2.0008 v $xiirc/MANB.42.2.0009 v $xiirc/MANB.42.2.0010 v $xiirc/MANB.42.2.0011 v $xiirc/MANB.42.2.0012 v $xiirc/MANB.42.2.0013 v $xiirc/MANB.42.2.0014 v $xiirc/MANB.42.2.0015 v $xiirc/MANB.42.2.0016 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MANB_42: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MANB.41 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/MANB.42 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/MANB.43 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=0 vA=+1 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ITER0 15 # # $c #define ITERP 4 # # $c # # $c #define SEUIL0 50 # # $c #define SEUILN 10 # # $c # # $c int main() # # $c { # # $c int n; # # $c int iteration=ITER0; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double seuil=((SEUILN*(n-N0))+(SEUIL0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=%d # # $c seuil=%f # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-6 ybg=-6 xhd=+6 yhd=+6 # # $c produit_non_theorique=FAUX # # $c transformer_suite_point=VRAI # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=0 # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,iteration # # $c ,seuil # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=0 pY=0 pZ=1 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=1 pY=0 pZ=0'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c ROTATION_OY=+0.3 # # $c R=$xTV/MANB.42%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/MANB.42%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c iteration = iteration+ITERP; # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/MANB.42.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/MANB.42.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MANB.42.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MANB.42.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MANB_42: # # # # # # Cette animation propose un "epluchage" de 'v $xiirc/MANB.32.2'. # v $xiac/MAND.11$R64 p=$xiP/cercle.11 v $xiac/MAND.11$R64 p=$xiP/fractal.91 v $xiac/MAND.11$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 v $xiac/MAND.12$R64 p=$xiP/cercle.11 v $xiac/MAND.12$R64 p=$xiP/fractal.91 v $xiac/MAND.12$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 v $xiac/MAND$M.2$R16 p=$xiP/enfer.03 v $xiac/MAND$M.2$R16 p=$xiP/montagnes.01 v $xiac/MAND$M.2$R64 p=$xiP/enfer.03 t=64 d=4 ralenti=32 v $xiac/MAND$M.2$R64 p=$xiP/montagnes.01 t=64 d=4 ralenti=32 v $xiac/MAND.12$R64 p=$xiP/cercle.02 t=64 d=4 ralenti=32 Gamma $Gamma_mandel v $xiac/MAND.43.2.0$R16 p=$xiP/arc_ciel.01 t=16 d=4 ralenti=16 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 011624_011639 # # # # avec de plus : # # # # $xci/acces$X A=$xiac/MAND.43.2.0$R16 \ # # renormaliser=VRAI R=$xiac/MAND.43.2.0$R16 \ # # $formatI # # # Gamma $Gamma_lorenz v $xiac/MAND.43.2.1$R16 p=$xiP/gris.01 t=16 d=4 ralenti=16 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 011608_011623 # # # v $xiac/MAND.61.008$R16 p=$xiP/orange.11 v $xiac/MAND.61.008$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=8 \ # # globale=FAUX positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI # # # v $xiac/MAND.61.016$R16 p=$xiP/orange.11 v $xiac/MAND.61.016$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=16 \ # # globale=FAUX positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI # # # v $xiac/MAND.61.064$R16 p=$xiP/orange.11 v $xiac/MAND.61.064$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=64 \ # # globale=FAUX positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI # # # v $xiac/MAND.62.700$R16 p=$xiP/orange.11 v $xiac/MAND.62.700$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=32 iterations=700 \ # # globale=VRAI positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI # # # v $xiac/MAND.63.016$R16 p=$xiP/orange.11 v $xiac/MAND.63.016$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=16 \ # # globale=FAUX positifs=FAUX negatifs=VRAI \ # # mode=1 \ # # $formatI # # # v $xiac/MAND.71.016$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=16 \ # # globale=FAUX \ # # positifs=VRAI negatifs=VRAI \ # # mode=2 \ # # $formatI # # # # L'apparence etrange de la premiere image vient de ce que la partie Imaginaire est nulle # # sur l'axe Reel, et que l'on force alors une valeur infinie negative pour 'log(...)'. Il # # y a donc une distance enorme entre les niveaux minimal et maximal... # v $xiac/MAND.73.016$R16 p=$xiP/orange.11 v $xiac/MAND.73.016$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # $xrc/mandel.21$X R=... images=16 iterations=16 \ # # globale=FAUX \ # # positifs=FAUX negatifs=VRAI \ # # mode=2 \ # # $formatI # # # # L'apparence etrange de la premiere image vient de ce que la partie Imaginaire est nulle # # sur l'axe Reel, et que l'on force alors une valeur infinie negative pour 'log(...)'. Il # # y a donc une distance enorme entre les niveaux minimal et maximal... # v $xiac/MAND.91$R16 p=$xiP/cercle.32 t=16 d=4 ralenti=32 v $xiac/MAND.81$R16 p=$xiP/orange.11 v $xiac/MAND.81$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # alias mandel '$xrc/mandel.21$X images=1 iterations=\!* \ # # globale=FAUX positifs=FAUX negatifs=VRAI \ # # mode=1 \ # # $formatI | \ # # $xci/acces$X R=$xw1/MAND.100\!* \ # # $formatI' # # # # puis : # # # # mandel 01 # # mandel 02 # # mandel 03 # # mandel 04 # # mandel 05 # # mandel 06 # # mandel 07 # # mandel 08 # # mandel 09 # # mandel 10 # # mandel 11 # # mandel 12 # # mandel 13 # # mandel 14 # # mandel 15 # # mandel 16 # # # # puis voir '$xiac/MAND.81$R16'... # v $xiac/MAND.82$R16 p=$xiP/orange.11 v $xiac/MAND.82$R16 p=$xiP/orange.11 t=16 d=4 ralenti=32 # Genere a partir de : # # # # alias mandel '$xrc/mandel.21$X images=1 iterations=\!* \ # # globale=FAUX positifs=VRAI negatifs=VRAI \ # # mode=1 \ # # $formatI | \ # # $xci/acces$X R=$xw1/MAND.200\!* \ # # $formatI' # # # v $xiac/MAND.71.016$R16 p=$xiP/orange.11 v $xiac/MAND.91$R16 p=$xiP/arc_ciel.01 t=16 d=4 ralenti=32 v $xiac/MAND.91$R64 p=$xiP/cercle.32 t=64 d=4 ralenti=32 v $xiac/MAND.91$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 018018_018145 # # xivPdf 2 1 / 018146_018273 # # # # avec respectivement un "pas" de 2 et 8. # v $xiac/MAND.93$R16 p=$xiP/dentscie.01 v $xiac/MAND.92$R16 p=$xiP/cercle.32 t=16 d=4 ralenti=32 v $xiac/MAND.92$R16 p=$xiP/arc_ciel.01 t=16 d=4 ralenti=32 v $xiac/MAND.92$R64 p=$xiP/cercle.32 t=64 d=4 ralenti=32 v $xiac/MAND.92$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 018274_018401 # # xivPdf 2 1 / 018402_018529 # # # # avec respectivement un "pas" de 2 et 8. # v $xiac/MAND.93$R16 p=$xiP/cercle.32 t=16 d=4 ralenti=32 v $xiac/MAND.93$R16 p=$xiP/fractal.03 t=16 d=4 ralenti=32 v $xiac/MAND.93$R16 p=$xiP/fractal.21 v $xiac/MAND.93$R16 p=$xiP/random.14 v $xiac/MAND.93$R64 p=$xiP/cercle.32 t=64 d=4 ralenti=32 v $xiac/MAND.93$R64 p=$xiP/fractal.03 t=64 d=4 ralenti=32 v $xiac/MAND.93$R64 p=$xiP/fractal.21 v $xiac/MAND.93$R64 p=$xiP/random.14 # Correspond aux sequences d'images suivantes : # # # # xivPdf 2 1 / 018658_018785 # # xivPdf 2 1 / 018786_018913 # # xivPdf 2 1 / 018914_019041 # # # # avec respectivement un "pas" de 2 et 8. # v $xiac/MAND.94$R16 p=$xiP/arc_ciel.01 t=16 d=4 ralenti=32 v $xiac/MAND.94$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivante : # # # # xivPdf 2 1 / 019042_019169 # # # # avec respectivement un "pas" de 2 et 8, et "moyenne=FAUX maximum=VRAI". # v $xiac/MAND.A1$R16 p=$xiP/arc_ciel.01 v $xiac/MAND.A1$R16 p=$xiP/cercle.11 v $xiac/MAND.A1$R16 p=$xiP/fractal.91 v $xiac/MAND.A1$R16 p=$xiP/orange.11 v $xiac/MAND.A1$R16 p=$xiP/random.86 v $xiac/MAND.A1$R64 p=$xiP/arc_ciel.01 v $xiac/MAND.A1$R64 p=$xiP/cercle.11 v $xiac/MAND.A1$R64 p=$xiP/fractal.91 v $xiac/MAND.A1$R64 p=$xiP/orange.11 v $xiac/MAND.A1$R64 p=$xiP/random.86 v $xiac/MAND.A1$R64 p=$xiP/fractal.91 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivante : # # # # xivPdf 7 1 / 002889_003144 # # # # avec respectivement un "pas" de 16 et 4, et "moyenne=VRAI". # v $xiac/MAND.A2$R16 p=$xiP/fractal.91 v $xiac/MAND.A2$R16 p=$xiP/roug2_jaun2 v $xiac/MAND.A2$R64 p=$xiP/fractal.91 v $xiac/MAND.A2$R64 p=$xiP/fractal.91 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivante : # # # # xivPdf 7 1 / 002889_003144 # # # # avec respectivement un "pas" de 16 et 4, et "moyenne=FAUX maximum=VRAI". # # # # On notera que la palette '$xiP/roug2_jaun2' est celle qui correspond aux couleurs de # # l'Ecole Polytechnique et qui est donc utilisee sur Internet pour montrer la fresque de # # 1986... # v $xiac/MAND.A2$MP4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAND_A2: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=512 # # # # $Z @ NImAgEs = $Derniere - $Premiere + 1 # # $Z set NItErAtIoNs=256 # # # # $Z SET _____ImageT=$xTV/MAND.A2. # # # # $Z $xrc/mandel.01$X \ # # $Z N=$NImAgEs \ # # $Z premiere=$Premiere \ # # $Z iterations=$NItErAtIoNs \ # # $Z xbgD=-2 ybgD=-1.25 \ # # $Z xhdD=0.5 yhdD=1.25 \ # # $Z xbgA=-1.79606999534 ybgA=-0.00000000001 \ # # $Z xhdA=-1.79606999532 yhdA=+0.00000000001 \ # # $Z arguments=VRAI \ # # $Z R=$_____ImageT \ # # $Z $formatI # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____ImageT \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/roug2_jaun2 \ # # $Z R=$_____ImageT \ # # $Z $formatI # # # # $Z set _____Animation=$xiac/MAND.A2 # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # # # :Fin_listG_MAND_A2: # # # # # # Il s'agit d'une version '$MP4' de 'v $xiac/MAND.A2$R16' regeneree pour le CNRS # # ('v $Dcourrier_in/20150202102656 name=.colonna_anims.docx.'). # v $xiac/MAND.B1$M$R16 p=$xiP/enfer.02 v $xiac/MAND.B1$M$R16 p=$xiP/montagnes.01 v $xiac/MAND.B1$M$R16 p=$xiP/trou_noir.A4 v $xiac/MAND.B1$M$R64 p=$xiP/enfer.02 v $xiac/MAND.B1$M$R64 p=$xiP/montagnes.01 v $xiac/MAND.B1$M$R64 p=$xiP/enfer.02 t=64 d=4 ralenti=32 v $xiac/MAND.B1$M$R64 p=$xiP/montagnes.01 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivante : # # # # xivPdf 9 1 / 005756_006011 # # xivPdf 9 1 / 006012_006267 # # # # Ces animations ont ete recalculees aux alentours du 20060414175215 sur '$LACT17' afin de # # les ameliorer pour ce qui est des "falaises avant" ('v $xrc/mandel.02$K 20060414173128'). # # Afin de ne pas perturber le "this picture was created on MM/JJ/AAAA" des images '$xiMi' # # du site Internet, ces images devront faire l'objet d'un : # # # # retouche $xiac/MAND.B1$M$R16 19951215000000 # # retouche $xiac/MAND.B1$M$R64 19951215000000 # # # # apres qu'elles aient ete mises a jour sur toutes les MACHINEs... # v $xiac/MAND.B1$M$MP4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAND_B1_M: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=0 # # $Z SET Derniere=511 # # # # $Z @ NImAgEs = $Derniere - $Premiere + 1 # # $Z set NItErAtIoNs=256 # # # # $Z SET _____ImageT=$xTV/MAND.B1$M. # # # # $Z $xrc/mandel.02$X \ # # $Z N=$NImAgEs \ # # $Z R=$_____ImageT \ # # $Z $formatI # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____ImageT \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/trou_noir.A4 \ # # $Z R=$_____ImageT \ # # $Z $formatI # # # # $Z set _____Animation=$xiac/MAND.B1$M # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # # # :Fin_listG_MAND_B1_M: # # # # # # Il s'agit d'une version '$MP4' de 'v $xiac/MAND.B1$M$R16' regeneree pour le CNRS # # ('v $Dcourrier_in/20150202102656 name=.colonna_anims.docx.'). # v $xiac/MAND.C1$R16 # Correspond a la reduction '$R16' de la sequence '$xifc/MAND.3.' en vraies couleurs avec # # la palette '$xiP/fractal.91'. Cette sequence a ete generee par '$xrc/mandel.01$X' avec # # les parametres suivants : # # # # iterations=1024 # # xbgD=-2.0 ybgD=-1.25 # # xhdD=+0.5 yhdD=+1.25 # # xbgA=-0.74542955 ybgA=+0.11300805 # # xhdA=-0.74542955 yhdA=+0.11300805 # # arguments=VRAI # # # v $xiac/MAND.D1$R16 p=$xiP/cercle.11 v $xiac/MAND.D1$R16 p=$xiP/fractal.91 v $xiac/MAND.D1$R16 p=$xiP/orange.11 v $xiac/MAND.D1$R16 p=$xiP/random.06 v $xiac/MAND.D1$R64 p=$xiP/orange.11 v $xiac/MAND.D1$R64 p=$xiP/orange.11 t=64 d=4 ralenti=32 v $xiac/MAND.D1.1$R16 p=$xiP/orange.11 v $xiac/MAND.D1.1$R64 p=$xiP/orange.11 # Correspond a la sequence d'images suivante : # # # # xivPdf 11 1 / 031838_031965 # # # # les images '$xiac/MAND.D1.1.*' donnant respectivement les 16 et 64 premieres (pas=1). # v $xiac/MAND.D1.2$R16 p=$xiP/orange.11 v $xiac/MAND.D1.2$R64 p=$xiP/orange.11 # Correspond a la sequence d'images suivante : # # # # xivPdf 11 1 / 031838_031965 # # # # les images '$xiac/MAND.D1.2.*' donnant respectivement 16 et 64 images (pas=1) non pas a # # partir de la premiere comme pour 'v $xiac/MAND.D1.2$R16' et 'v $xiac/MAND.D1.2$R64' mais # # a partir de la seconde. Ceci a ete recalcule le 19981007114250 suite a l'introduction # # de l'image 'v $xiio/KADREN$R16' pour permettre une meilleure presentation sur le serveur # # 'WWW' au niveau de l'image '$xiMi/MAND.D1.1$R16$D' remplacee par '$xiMi/MAND.D1.2$R16$D' # # a cette date... # v $xiac/MAND.D2.2$R04 p=$xiP/orange.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_D2_2_R04: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=4 # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c #define ITER 1 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/mandel.01$X # # $c iterations=%d # # $c arguments=VRAI # # $c images=1 # # $c R=$xTV/MAND.1. # # $c $formatI\n" # # $c ,(n-N0)+ITER # # $c ); # # $c printf("$CP # # $c $xTV/MAND.1.%04d # # $c $xTV/MAND.1.%04d\n" # # $c ,N0-N0,n # # $c ); # # $c } # # $c } # # # # $Z $xci/reduction_04$X A=$xTV/MAND.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z calculer=VRAI \ # # $Z R=$xiac/MAND.D2.2$R04 \ # # $Z $formatI # # # # :Fin_listG_MA_D2_2_R04: # # # v $xiac/MAND.D2.2$R16 p=$xiP/orange.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_D2_2_R16: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z Pal # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c #define ITER 1 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/mandel.01$X # # $c iterations=%d # # $c arguments=VRAI # # $c images=1 # # $c R=$xTV/MAND.1. # # $c $formatI\n" # # $c ,(n-N0)+ITER # # $c ); # # $c printf("$CP # # $c $xTV/MAND.1.%04d # # $c $xTV/MAND.1.%04d\n" # # $c ,N0-N0,n # # $c ); # # $c } # # $c } # # # # $Z $xci/reduction_16$X A=$xTV/MAND.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z calculer=VRAI \ # # $Z R=$xiac/MAND.D2.2$R16 \ # # $Z $formatI # # # # :Fin_listG_MA_D2_2_R16: # # # v $xiac/MA.E1$R16 p=$xiP/cercle.66 v $xiac/MA.E1$R64 p=$xiP/cercle.66 # Correspond a la sequence d'images suivante : # # # # xivPdf 12 1 / 016348_016475 # # # v $xiac/MA.E1$M$R16 v $xiac/MA.E1$M$R64 # Correspond a la sequence d'images suivante : # # # # xivPdf 12 1 / 016604_016731 # # # # ATTENTION : dans cette sequence les champs a mettre en '$M' ont ete renormalises # # independemment les uns des autres contrairement a 'v $xiac/MA.E2$R16' et a # # 'v $xiac/MA.E2$R64'. # v $xiac/MA.E2$R16 p=$xiP/cercle.66 v $xiac/MA.E2$R64 p=$xiP/cercle.66 # Correspond a la sequence d'images suivante : # # # # xivPdf 12 1 / 016732_016859 # # # v $xiac/MA.E2$M$R16 v $xiac/MA.E2$M$R64 # Correspond a la sequence d'images suivante : # # # # xivPdf 12 1 / 016860_016987 # # # v $xiac/MA.F1$R16 v $xiac/MA.F1$R64 v $xiac/MA.F1$M$R16 v $xiac/MA.F1$M$R64 v $xiirc/MA.F1$M.0000 v $xiirc/MA.F1$M.0016 v $xiirc/MA.F1$M.0056 v $xiirc/MA.F1$M.0072 v $xiirc/MA.F1$M.0104 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_F1_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____imagesR=$xTV/MAND.1 # # $Z set _____Pbrume=$xiP/gris.08 # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.F1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.F1$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.F1$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0016%s \ # # $Z R=$xiirc/MA.F1$M.0016%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0056%s \ # # $Z R=$xiirc/MA.F1$M.0056%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0072%s \ # # $Z R=$xiirc/MA.F1$M.0072%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0104%s \ # # $Z R=$xiirc/MA.F1$M.0104%s \ # # $Z $formatI # # # # :Fin_listG_MA_F1_M: # # # v $xiac/MA.F2$R16 v $xiac/MA.F2$R64 v $xiac/MA.F2$M$R16 v $xiac/MA.F2$M$R64 v $xiirc/MA.F2$M.0000 v $xiirc/MA.F2$M.0016 v $xiirc/MA.F2$M.0056 v $xiirc/MA.F2$M.0072 v $xiirc/MA.F2$M.0078 v $xiirc/MA.F2$M.0098 v $xiirc/MA.F2$M.0104 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_F2_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____imagesR=$xTV/MAND.2 # # $Z set _____Pbrume=$xiP/gris.08 # # $Z set _____Ptexture=$xiP/roug2_jaun2 # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.F2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.F2$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.F2$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0016%s \ # # $Z R=$xiirc/MA.F2$M.0016%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0056%s \ # # $Z R=$xiirc/MA.F2$M.0056%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0072%s \ # # $Z R=$xiirc/MA.F2$M.0072%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0078%s \ # # $Z R=$xiirc/MA.F2$M.0078%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0098%s \ # # $Z R=$xiirc/MA.F2$M.0098%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0104%s \ # # $Z R=$xiirc/MA.F2$M.0104%s \ # # $Z $formatI # # # # :Fin_listG_MA_F2_M: # # # v $xiac/MA.F3$R16 v $xiac/MA.F3$R64 v $xiac/MA.F3$M$R16 v $xiac/MA.F3$M$R64 v $xiirc/MA.F3$M.0000 v $xiirc/MA.F3$M.0016 v $xiirc/MA.F3$M.0056 v $xiirc/MA.F3$M.0072 v $xiirc/MA.F3$M.0078 v $xiirc/MA.F3$M.0098 v $xiirc/MA.F3$M.0104 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_F3_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____imagesR=$xTV/MAND.3 # # $Z set _____Pbrume=$xiP/gris.08 # # $Z set _____Ptexture=$xiP/roug0_jaun0 # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.F3 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.F3$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.F3$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0016%s \ # # $Z R=$xiirc/MA.F3$M.0016%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0056%s \ # # $Z R=$xiirc/MA.F3$M.0056%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0072%s \ # # $Z R=$xiirc/MA.F3$M.0072%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0078%s \ # # $Z R=$xiirc/MA.F3$M.0078%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0098%s \ # # $Z R=$xiirc/MA.F3$M.0098%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0104%s \ # # $Z R=$xiirc/MA.F3$M.0104%s \ # # $Z $formatI # # # # :Fin_listG_MA_F3_M: # # # v $xiac/MA.G2$R16 v $xiac/MA.G2$R64 v $xiac/MA.G2$M$R16 v $xiac/MA.G2$M$R64 v $xiirc/MA.G2$M.0000 v $xiirc/MA.G2$M.0015 v $xiirc/MA.G2$M.0030 v $xiirc/MA.G2$M.0045 v $xiirc/MA.G2$M.0060 v $xiirc/MA.G2$M.0075 v $xiirc/MA.G2$M.0090 v $xiirc/MA.G2$M.0105 v $xiirc/MA.G2$M.0120 Pal ; anim3 A=$xiirc/MA.G2$M. premiere=0 derniere=120 pas=15 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_G2_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____imagesR=$xTV/MAND.2 # # $Z set _____Pbrume=$xiP/gris.05 # # $Z set _____Ptexture=$xiP/roug2_jaun2 # # $Z set _____Echelle=0.25 # # $Z set _____Perspective=0.6 # # $Z set _____Ty=0.86 # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.G2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.G2$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.G2$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0015%s \ # # $Z R=$xiirc/MA.G2$M.0015%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0030%s \ # # $Z R=$xiirc/MA.G2$M.0030%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0045%s \ # # $Z R=$xiirc/MA.G2$M.0045%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0060%s \ # # $Z R=$xiirc/MA.G2$M.0060%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0075%s \ # # $Z R=$xiirc/MA.G2$M.0075%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0090%s \ # # $Z R=$xiirc/MA.G2$M.0090%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0105%s \ # # $Z R=$xiirc/MA.G2$M.0105%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0120%s \ # # $Z R=$xiirc/MA.G2$M.0120%s \ # # $Z $formatI # # # # :Fin_listG_MA_G2_M: # # # v $xiac/MA.G3$R16 v $xiac/MA.G3$R64 v $xiac/MA.G3$M$R16 v $xiac/MA.G3$M$R64 v $xiirc/MA.G3$M.0000 v $xiirc/MA.G3$M.0015 v $xiirc/MA.G3$M.0030 v $xiirc/MA.G3$M.0045 v $xiirc/MA.G3$M.0060 v $xiirc/MA.G3$M.0075 v $xiirc/MA.G3$M.0090 v $xiirc/MA.G3$M.0105 v $xiirc/MA.G3$M.0120 Pal ; anim3 A=$xiirc/MA.G3$M. premiere=0 derniere=120 pas=15 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MA_G3_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____imagesR=$xTV/MAND.3 # # $Z set _____Pbrume=$xiP/gris.05 # # $Z set _____Ptexture=$xiP/roug0_jaun0 # # $Z set _____Echelle=0.25 # # $Z set _____Perspective=0.6 # # $Z set _____Ty=0.86 # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.G3 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.G3$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.G3$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0015%s \ # # $Z R=$xiirc/MA.G3$M.0015%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0030%s \ # # $Z R=$xiirc/MA.G3$M.0030%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0045%s \ # # $Z R=$xiirc/MA.G3$M.0045%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0060%s \ # # $Z R=$xiirc/MA.G3$M.0060%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0075%s \ # # $Z R=$xiirc/MA.G3$M.0075%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0090%s \ # # $Z R=$xiirc/MA.G3$M.0090%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0105%s \ # # $Z R=$xiirc/MA.G3$M.0105%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0120%s \ # # $Z R=$xiirc/MA.G3$M.0120%s \ # # $Z $formatI # # # # :Fin_listG_MA_G3_M: # # # v $xiac/MA.H3$R16 v $xiac/MA.H3$R64 v $xiac/MA.H3$N$R16 v $xiac/MA.H3$N$R64 v $xiac/MA.H3$M$R16 v $xiac/MA.H3$M$R64 v $xiirc/MA.H3$M.0000 v $xiirc/MA.H3$M.0015 v $xiirc/MA.H3$M.0030 v $xiirc/MA.H3$M.0045 v $xiirc/MA.H3$M.0060 v $xiirc/MA.H3$M.0075 v $xiirc/MA.H3$M.0090 v $xiirc/MA.H3$M.0105 v $xiirc/MA.H3$M.0120 Pal ; anim3 A=$xiirc/MA.H3$M. premiere=0 derniere=120 pas=15 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # # # :Debut_listG_MA_H3_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirc/.MAND.3.10._____U) # # # # $Z set _____ModulerBrume=$EXIST # # $Z setenv _____ModulationBrume $xTV/MODULATION # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OX 0.0 # # $c #define EX 4.0 # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double trX=((EX*(n-N0))+(OX*(N-n)))/(N-N0); # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.1 mz=0.2 # # $c trX=%.16f # # $c Z=%.16f # # $c R=$_____ModulationBrume.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,trX # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____ModulationBrume. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$_____ModulationBrume. \ # # $Z $formatI # # # # $Z set _____imagesR=$xTV/MAND.3 # # $Z set _____Pbrume=$xiP/gris.05 # # $Z set _____Ptexture=$xiP/roug0_jaun0 # # $Z set _____ModulerTexture=$EXIST # # $Z set _____PourcentageSeuil=49 # # $Z set _____Echelle=0.25 # # $Z set _____Perspective=0.6 # # $Z set _____Ty=0.86 # # $Z set _____DepthCueing=VRAI # # $Z set _____MinDepthCueing=0.3 # # $Z set _____Pbrume=$xiP/gris.08 # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z set _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.H3 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.H3$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # $Z set _____images=$_____ModulationBrume # # $Z set _____animation=$xiac/MA.H3$N # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0000%s \ # # $Z R=$xiirc/MA.H3$M.0000%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0015%s \ # # $Z R=$xiirc/MA.H3$M.0015%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0030%s \ # # $Z R=$xiirc/MA.H3$M.0030%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0045%s \ # # $Z R=$xiirc/MA.H3$M.0045%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0060%s \ # # $Z R=$xiirc/MA.H3$M.0060%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0075%s \ # # $Z R=$xiirc/MA.H3$M.0075%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0090%s \ # # $Z R=$xiirc/MA.H3$M.0090%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0105%s \ # # $Z R=$xiirc/MA.H3$M.0105%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0120%s \ # # $Z R=$xiirc/MA.H3$M.0120%s \ # # $Z $formatI # # # # :Fin_listG_MA_H3_M: # # # # # # La nouvelle version de la fresque "L'ILLUSION DE LA CONNAISSANCE" fut ainsi generee (sur # # '$CMAP28' -ex "belleville"-), en fixant les parametre suivants : # # # # XYmaxNe 2999 2999 # # # # afin d'avoir une image carree a la resolution 300dpi et pour une taille du quart de la # # taille finale (100x100 cm). D'autre par il a fallu fixer : # # # # niveau=16 # # # # pour '$xci/fract_3D.01$X' afin 'avoir des temps de calcul raisonnables (09:00) pour les # # neuf images (dont seulement sept seront utilisees, les images '0030' et '0060' etant # # exclues d'une part parce qu'il ne faut que sept images et que d'autre part, il aurait # # fallu modifier le parametre "_____PourcentageSeuil=49" en le dimunuant car, en effet, # # pour ces deux images il apparait que le seuil -'v $xiirc/.MAND.3.11.$U SeUiL'- est egal # # a '$BLANC' attenuant par la-meme l'integralite de la texture...). # # # # # # La sequence '$_____ModulationBrume' a ete utilisee pour generer 'v $xiirf/FRA3.Y2.2', sans # # la recalculer... # v $xiac/MAND.U1$R16 v $xiac/MAND.U1.1$R16 v $xiac/MAND.U1.2$R16 v $xiirc/MAND.U1.0001 v $xiirc/MAND.U1.0002 v $xiirc/MAND.U1.0003 v $xiirc/MAND.U1.0004 v $xiirc/MAND.U1.0005 v $xiirc/MAND.U1.0006 v $xiirc/MAND.U1.0007 v $xiirc/MAND.U1.0008 v $xiirc/MAND.U1.0009 v $xiirc/MAND.U1.0010 v $xiirc/MAND.U1.0011 v $xiirc/MAND.U1.0012 v $xiirc/MAND.U1.0013 v $xiirc/MAND.U1.0014 v $xiirc/MAND.U1.0015 v $xiirc/MAND.U1.0016 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_U1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT0=$xTV/MAND # # # # $Z set PaLeTtE=$xiP/fractal.11 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set _____ImageT1=$xTV/MAND.1 # # $Z set _____ImageT2=$xTV/MAND.2 # # $Z set _____ImageT3=$xTV/MAND.3 # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0.0 # # $c #define ANGLEN (2*3.1415926535897932) # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("Pqu\n"); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=60 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=+0.1 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.0 ybg=-1.0 xhd=+1.0 yhd=+1.0 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=FAUX # # $c ROTATION_OY=%f # # $c R=$_____ImageT0. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/accumule.02$X # # $c A=$_____ImageT0. # # $c premiere=$cPremiere derniere=$cDerniere pas=1 # # $c inverser=VRAI # # $c binariser=VRAI # # $c seuil=25 # # $c translation_quelconque=FAUX # # $c stereo=0.0 # # $c trx=`calcul 2/$dimX` try=0 # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,n # # $c ); # # $c printf("$xci/vraies_C$X # # $c A=$_____ImageT1.%04d # # $c p=$PaLeTtE # # $c RVB=VRAI # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT1.%04d%%s # # $c points=25 # # $c $formatI | # # $c $xci/format.01$X # # $c mode=2 # # $c R=$_____ImageT1.%04d%%s # # $c $formatR_Pal%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("Pal\n"); # # $c # # $c printf("$xci/detourage.11$Z # # $c $_____ImageT1.%04d # # $c $_____ImageT2.%04d # # $c 6 # # $c 80 # # $c $EXIST # # $c $NEXIST\n" # # $c ,n # # $c ,n # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT1.%04d%%s # # $c R=$xiirc/MAND.U1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z Pal # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/MAND.U1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.U1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.U1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_U1: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MAND.U1'. # v $xiac/MAND.Z2.1$R16 v $xiac/MAND.Z2.2$R16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_Z2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.Z1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/MAND.Z2 # # $Z set _____ImageT=$_____ImageT2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/MAND.Z3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.Z2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define DEUX_PI 6.283185307179586 # # $c # # $c #define ANGLE0 (-DEUX_PI/16) # # $c #define ANGLEN (+DEUX_PI/16) # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=10 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=+0.1 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.0 ybg=-1.0 xhd=+1.0 yhd=+1.0 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.Z2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.Z2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_Z2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MAND.Z2.1' et # # de 'v $xiirc/MAND.Z2.2' et donne donc 4x3 stereogrammes de ces images. # v $xiac/MAND.a2.1$R16 v $xiac/MAND.a2.2$R16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_a2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.a1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/MAND.a2 # # $Z set _____ImageT=$_____ImageT2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/MAND.a3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.a2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define K0 0 # # $c #define KN 0.2 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double k=((KN*(n-N0))+(K0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=10 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=%+f # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.0 ybg=-1.0 xhd=+1.0 yhd=+1.0 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,k # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.a2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.a2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_a2: # # # # # # Cette animation propose plusieurs sections tridimensionnelles le long de l'axe 'K' # # de 'v $xiirc/MAND.Z2.1' et de 'v $xiirc/MAND.Z2.2'. # v $xiac/MAND.b2.1$R16 v $xiac/MAND.b2.2$R16 # Generee (sur '$CMAP28' -ex "belleville"-) par : # # # # # # :Debut_listG_MAND_b2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.b1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/MAND.b2 # # $Z set _____ImageT=$_____ImageT2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/MAND.b3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.b2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define K0 0 # # $c #define KN 0.22 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double k=((KN*(n-N0))+(K0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=10 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=%+f # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.0 ybg=-1.0 xhd=+1.0 yhd=+1.0 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,k # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.b2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.b2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_b2: # # # # # # Cette animation propose plusieurs sections tridimensionnelles le long de l'axe 'K' # # de 'v $xiirc/MAND.Z2.1' et de 'v $xiirc/MAND.Z2.2' mais en faisant "exposant=1" # v $xiac/MAND.c2.1$R16 v $xiac/MAND.c2.2$R16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_c2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.c1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/MAND.c2 # # $Z set _____ImageT=$_____ImageT2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/MAND.c3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.c2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.0 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=10 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=+0.1 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.0 ybg=-1.0 xhd=+1.0 yhd=+1.0 # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.c2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.c2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_c2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MAND.Z2.1' et # # de 'v $xiirc/MAND.Z2.2'. # v $xiac/MAND.d2.1$R16 v $xiac/MAND.d2.2$R16 v $xiirc/MAND.d2.1.0001 v $xiirc/MAND.d2.1.0002 v $xiirc/MAND.d2.1.0003 v $xiirc/MAND.d2.1.0004 v $xiirc/MAND.d2.1.0005 v $xiirc/MAND.d2.1.0006 v $xiirc/MAND.d2.1.0007 v $xiirc/MAND.d2.2.0001 v $xiirc/MAND.d2.2.0002 v $xiirc/MAND.d2.2.0003 v $xiirc/MAND.d2.2.0004 v $xiirc/MAND.d2.2.0005 v $xiirc/MAND.d2.2.0006 v $xiirc/MAND.d2.2.0007 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_d2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.d1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT=$xTV/MAND.d2 # # $Z set _____ImageT2=$xiirc/MAND.d2.1 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MAND.d2.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.d2 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define XBG_D -1.0 # # $c #define XBG_A +0.22261270 # # $c # # $c #define XHD_D +1.0 # # $c #define XHD_A +0.22261272 # # $c # # $c #define YBG_D -1.0 # # $c #define YBG_A +0.21514812 # # $c # # $c #define YHD_D +1.0 # # $c #define YHD_A +0.21514814 # # $c # # $c #define J1__D +1.0 # # $c #define J1__A +0.39999998 # # $c # # $c #define J2__D 0 # # $c #define J2__A +0.40000002 # # $c # # $c #define PRECISION 1e-7 # # $c # # $c #define BA(o,e,l) (((1-(l))*(o))+(((l)-0)*(e))) # # $c # # $c extern double pow(); # # $c # # $c int main() # # $c { # # $c int n; # # $c double rapport=pow(PRECISION,1.0/((double)(N-N0))); # # $c # # $c double xbg=XBG_D; # # $c double xhd=XHD_D; # # $c double ybg=YBG_D; # # $c double yhd=YHD_D; # # $c double j1_=J1__D; # # $c double j2_=J2__D; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$DELETE $xTV/COMPOSANTE_J\n"); # # $c # # $c printf("$xci/valeurs_inte$X # # $c p=$cPremiere d=$cDerniere # # $c vD=%.8f vA=%.8f # # $c cubique=FAUX # # $c > $xTV/COMPOSANTE_J\n" # # $c ,j1_,j2_ # # $c ); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=15 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=+0.1 # # $c exposant=2 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=%.8f xhd=%.8f ybg=%.8f yhd=%.8f # # $c produit_non_theorique=VRAI # # $c pTheta=2 pPhi=2 # # $c tTheta=$pi tPhi=$pi # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,xbg,xhd # # $c ,ybg,yhd # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c xbg=BA(xbg,XBG_A,1-rapport); # # $c xhd=BA(xhd,XHD_A,1-rapport); # # $c ybg=BA(ybg,YBG_A,1-rapport); # # $c yhd=BA(yhd,YHD_A,1-rapport); # # $c j1_=BA(j1_,J1__A,1-rapport); # # $c j2_=BA(j2_,J2__A,1-rapport); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.d2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.d2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z execRVB $DELETE $_____ImageT2.0008%s # # $Z execRVB $DELETE $_____ImageT2.0009%s # # $Z execRVB $DELETE $_____ImageT2.0010%s # # $Z execRVB $DELETE $_____ImageT2.0011%s # # $Z execRVB $DELETE $_____ImageT2.0012%s # # $Z execRVB $DELETE $_____ImageT2.0013%s # # $Z execRVB $DELETE $_____ImageT2.0014%s # # $Z execRVB $DELETE $_____ImageT2.0015%s # # $Z execRVB $DELETE $_____ImageT2.0016%s # # # # $Z execRVB $DELETE $_____ImageT3.0008%s # # $Z execRVB $DELETE $_____ImageT3.0009%s # # $Z execRVB $DELETE $_____ImageT3.0010%s # # $Z execRVB $DELETE $_____ImageT3.0011%s # # $Z execRVB $DELETE $_____ImageT3.0012%s # # $Z execRVB $DELETE $_____ImageT3.0013%s # # $Z execRVB $DELETE $_____ImageT3.0014%s # # $Z execRVB $DELETE $_____ImageT3.0015%s # # $Z execRVB $DELETE $_____ImageT3.0016%s # # # # # # :Fin_listG_MAND_d2: # # # # # # Cette animation propose un zoom sur 'v $xiirc/MAND.Z2.1' et 'v $xiirc/MAND.Z2.2', mais # # en fait pas tres interessant au dela de la septieme image car alors se forment des sortes # # nappes uniformes sur la troisieme dimension... # v $xiac/MAND.l2.1$R16 v $xiac/MAND.l2.2$R16 v $xiirc/MAND.l2.1.0001 v $xiirc/MAND.l2.1.0002 v $xiirc/MAND.l2.1.0003 v $xiirc/MAND.l2.1.0004 v $xiirc/MAND.l2.1.0005 v $xiirc/MAND.l2.1.0006 v $xiirc/MAND.l2.1.0007 v $xiirc/MAND.l2.1.0008 v $xiirc/MAND.l2.1.0009 v $xiirc/MAND.l2.1.0010 v $xiirc/MAND.l2.1.0011 v $xiirc/MAND.l2.1.0012 v $xiirc/MAND.l2.1.0013 v $xiirc/MAND.l2.1.0014 v $xiirc/MAND.l2.1.0015 v $xiirc/MAND.l2.1.0016 Pal ; anim3 A=$xiirc/MAND.l2.1. premiere=1 derniere=16 v $xiirc/MAND.l2.2.0001 v $xiirc/MAND.l2.2.0002 v $xiirc/MAND.l2.2.0003 v $xiirc/MAND.l2.2.0004 v $xiirc/MAND.l2.2.0005 v $xiirc/MAND.l2.2.0006 v $xiirc/MAND.l2.2.0007 v $xiirc/MAND.l2.2.0008 v $xiirc/MAND.l2.2.0009 v $xiirc/MAND.l2.2.0010 v $xiirc/MAND.l2.2.0011 v $xiirc/MAND.l2.2.0012 v $xiirc/MAND.l2.2.0013 v $xiirc/MAND.l2.2.0014 v $xiirc/MAND.l2.2.0015 v $xiirc/MAND.l2.2.0016 Pal ; anim3 A=$xiirc/MAND.l2.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "belleville"-) par : # # # # # # :Debut_listG_MAND_l2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.l1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xiirc/MAND.l2.1 # # $Z set _____ImageT=$xTV/MAND.l2 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MAND.l2.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.l2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.085 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 3.14159265358979312 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=20 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=-1.1 ybg=-1.1 xhd=+1.1 yhd=+1.1 # # $c produit_non_theorique=VRAI # # $c eRho=8 # # $c pTheta=8 pPhi=8 # # $c tTheta=0 tPhi=0 # # $c visualiser_appartenance=VRAI # # $c ROTATION_OY=%f # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,angle # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.l2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.l2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_l2: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MAND.k2.1' et # # de 'v $xiirc/MAND.k2.2'. # v $xiac/MAND.m2.1$R16 v $xiac/MAND.m2.2$R16 v $xiirc/MAND.m2.1.0001 v $xiirc/MAND.m2.1.0002 v $xiirc/MAND.m2.1.0003 v $xiirc/MAND.m2.1.0004 v $xiirc/MAND.m2.1.0005 v $xiirc/MAND.m2.1.0006 v $xiirc/MAND.m2.1.0007 v $xiirc/MAND.m2.1.0008 v $xiirc/MAND.m2.1.0009 v $xiirc/MAND.m2.1.0010 v $xiirc/MAND.m2.1.0011 v $xiirc/MAND.m2.1.0012 v $xiirc/MAND.m2.1.0013 v $xiirc/MAND.m2.1.0014 v $xiirc/MAND.m2.1.0015 v $xiirc/MAND.m2.1.0016 Pal ; anim3 A=$xiirc/MAND.m2.1. premiere=1 derniere=16 v $xiirc/MAND.m2.2.0001 v $xiirc/MAND.m2.2.0002 v $xiirc/MAND.m2.2.0003 v $xiirc/MAND.m2.2.0004 v $xiirc/MAND.m2.2.0005 v $xiirc/MAND.m2.2.0006 v $xiirc/MAND.m2.2.0007 v $xiirc/MAND.m2.2.0008 v $xiirc/MAND.m2.2.0009 v $xiirc/MAND.m2.2.0010 v $xiirc/MAND.m2.2.0011 v $xiirc/MAND.m2.2.0012 v $xiirc/MAND.m2.2.0013 v $xiirc/MAND.m2.2.0014 v $xiirc/MAND.m2.2.0015 v $xiirc/MAND.m2.2.0016 Pal ; anim3 A=$xiirc/MAND.m2.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_MAND_m2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.m1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT=$xTV/MAND.m2 # # $Z set _____ImageT2=$xiirc/MAND.m2.1 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MAND.m2.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.m2 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define XBG_D -1.0 # # $c #define XBG_A -0.045609 # # $c # # $c #define XHD_D +1.0 # # $c #define XHD_A -0.045607 # # $c # # $c #define YBG_D -1.0 # # $c #define YBG_A -0.362768 # # $c # # $c #define YHD_D +1.0 # # $c #define YHD_A -0.362766 # # $c # # $c #define J1__D +1.085 # # $c #define J1__A +0.799992 # # $c # # $c #define J2__D 0 # # $c #define J2__A +0.799994 # # $c # # $c #define PRECISION 1e-7 # # $c # # $c #define BA(o,e,l) (((1-(l))*(o))+(((l)-0)*(e))) # # $c # # $c extern double pow(); # # $c # # $c int main() # # $c { # # $c int n; # # $c double rapport=pow(PRECISION,1.0/((double)(N-N0))); # # $c # # $c double xbg=XBG_D; # # $c double xhd=XHD_D; # # $c double ybg=YBG_D; # # $c double yhd=YHD_D; # # $c double j1_=J1__D; # # $c double j2_=J2__D; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$DELETE $xTV/COMPOSANTE_J\n"); # # $c # # $c printf("$xci/valeurs_inte$X # # $c p=$cPremiere d=$cDerniere # # $c vD=%.8f vA=%.8f # # $c cubique=FAUX # # $c > $xTV/COMPOSANTE_J\n" # # $c ,j1_,j2_ # # $c ); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=20 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=%.8f xhd=%.8f ybg=%.8f yhd=%.8f # # $c produit_non_theorique=VRAI # # $c eRho=8 # # $c pTheta=8 pPhi=8 # # $c tTheta=0 tPhi=0 # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,xbg,xhd # # $c ,ybg,yhd # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c xbg=BA(xbg,XBG_A,1-rapport); # # $c xhd=BA(xhd,XHD_A,1-rapport); # # $c ybg=BA(ybg,YBG_A,1-rapport); # # $c yhd=BA(yhd,YHD_A,1-rapport); # # $c j1_=BA(j1_,J1__A,1-rapport); # # $c j2_=BA(j2_,J2__A,1-rapport); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.m2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.m2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_m2: # # # # # # Cette animation propose un zoom sur 'v $xiirc/MAND.k2.1' et 'v $xiirc/MAND.k2.2'. # v $xiac/MAND.n2.1$R16 v $xiac/MAND.n2.2$R16 v $xiirc/MAND.n2.1.0001 v $xiirc/MAND.n2.1.0002 v $xiirc/MAND.n2.1.0003 v $xiirc/MAND.n2.1.0004 v $xiirc/MAND.n2.1.0005 v $xiirc/MAND.n2.1.0006 v $xiirc/MAND.n2.1.0007 v $xiirc/MAND.n2.1.0008 v $xiirc/MAND.n2.1.0009 v $xiirc/MAND.n2.1.0010 v $xiirc/MAND.n2.1.0011 v $xiirc/MAND.n2.1.0012 v $xiirc/MAND.n2.1.0013 v $xiirc/MAND.n2.1.0014 v $xiirc/MAND.n2.1.0015 v $xiirc/MAND.n2.1.0016 Pal ; anim3 A=$xiirc/MAND.n2.1. premiere=1 derniere=16 v $xiirc/MAND.n2.2.0001 v $xiirc/MAND.n2.2.0002 v $xiirc/MAND.n2.2.0003 v $xiirc/MAND.n2.2.0004 v $xiirc/MAND.n2.2.0005 v $xiirc/MAND.n2.2.0006 v $xiirc/MAND.n2.2.0007 v $xiirc/MAND.n2.2.0008 v $xiirc/MAND.n2.2.0009 v $xiirc/MAND.n2.2.0010 v $xiirc/MAND.n2.2.0011 v $xiirc/MAND.n2.2.0012 v $xiirc/MAND.n2.2.0013 v $xiirc/MAND.n2.2.0014 v $xiirc/MAND.n2.2.0015 v $xiirc/MAND.n2.2.0016 Pal ; anim3 A=$xiirc/MAND.n2.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "belleville"-) par : # # # # # # :Debut_listG_MAND_n2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.n1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT=$xTV/MAND.n2 # # $Z set _____ImageT2=$xiirc/MAND.n2.1 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MAND.n2.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.n2 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define XBG_D -1.0 # # $c #define XBG_A -0.02900000 # # $c # # $c #define XHD_D +1.0 # # $c #define XHD_A -0.02880000 # # $c # # $c #define YBG_D -1.0 # # $c #define YBG_A -0.35110000 # # $c # # $c #define YHD_D +1.0 # # $c #define YHD_A -0.35090000 # # $c # # $c #define J1__D +1.085 # # $c #define J1__A +0.80020000 # # $c # # $c #define J2__D 0 # # $c #define J2__A +0.80000000 # # $c # # $c #define PRECISION 1e-4 # # $c # # $c #define BA(o,e,l) (((1-(l))*(o))+(((l)-0)*(e))) # # $c # # $c extern double pow(); # # $c # # $c int main() # # $c { # # $c int n; # # $c double rapport=pow(PRECISION,1.0/((double)(N-N0))); # # $c # # $c double xbg=XBG_D; # # $c double xhd=XHD_D; # # $c double ybg=YBG_D; # # $c double yhd=YHD_D; # # $c double j1_=J1__D; # # $c double j2_=J2__D; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$DELETE $xTV/COMPOSANTE_J\n"); # # $c # # $c printf("$xci/valeurs_inte$X # # $c p=$cPremiere d=$cDerniere # # $c vD=%.8f vA=%.8f # # $c cubique=FAUX # # $c > $xTV/COMPOSANTE_J\n" # # $c ,j1_,j2_ # # $c ); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=20 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=0 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=%.8f xhd=%.8f ybg=%.8f yhd=%.8f # # $c produit_non_theorique=VRAI # # $c eRho=8 # # $c pTheta=8 pPhi=8 # # $c tTheta=0 tPhi=0 # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,xbg,xhd # # $c ,ybg,yhd # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c xbg=BA(xbg,XBG_A,1-rapport); # # $c xhd=BA(xhd,XHD_A,1-rapport); # # $c ybg=BA(ybg,YBG_A,1-rapport); # # $c yhd=BA(yhd,YHD_A,1-rapport); # # $c j1_=BA(j1_,J1__A,1-rapport); # # $c j2_=BA(j2_,J2__A,1-rapport); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.n2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.n2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_n2: # # # # # # Cette animation propose un zoom sur 'v $xiirc/MAND.k2.1' et 'v $xiirc/MAND.k2.2'. # v $xiac/MAND.r2.1$R16 v $xiac/MAND.r2.2$R16 v $xiirc/MAND.r2.1.0001 v $xiirc/MAND.r2.1.0002 v $xiirc/MAND.r2.1.0003 v $xiirc/MAND.r2.1.0004 v $xiirc/MAND.r2.1.0005 v $xiirc/MAND.r2.1.0006 v $xiirc/MAND.r2.1.0007 v $xiirc/MAND.r2.1.0008 v $xiirc/MAND.r2.1.0009 v $xiirc/MAND.r2.1.0010 v $xiirc/MAND.r2.1.0011 v $xiirc/MAND.r2.1.0012 v $xiirc/MAND.r2.1.0013 v $xiirc/MAND.r2.1.0014 v $xiirc/MAND.r2.1.0015 v $xiirc/MAND.r2.1.0016 Pal ; anim3 A=$xiirc/MAND.r2.1. premiere=1 derniere=16 v $xiirc/MAND.r2.2.0001 v $xiirc/MAND.r2.2.0002 v $xiirc/MAND.r2.2.0003 v $xiirc/MAND.r2.2.0004 v $xiirc/MAND.r2.2.0005 v $xiirc/MAND.r2.2.0006 v $xiirc/MAND.r2.2.0007 v $xiirc/MAND.r2.2.0008 v $xiirc/MAND.r2.2.0009 v $xiirc/MAND.r2.2.0010 v $xiirc/MAND.r2.2.0011 v $xiirc/MAND.r2.2.0012 v $xiirc/MAND.r2.2.0013 v $xiirc/MAND.r2.2.0014 v $xiirc/MAND.r2.2.0015 v $xiirc/MAND.r2.2.0016 Pal ; anim3 A=$xiirc/MAND.r2.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "villiers"-) par : # # # # # # :Debut_listG_MAND_r2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MAND.l1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xiirc/MAND.r2.1 # # $Z set _____ImageT=$xTV/MAND.r2 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MAND.r2.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.r2 # # # # $Z $DELETE $xTV/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+1.085 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COMPOSANTE_J # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define XBG_D -1.1 # # $c #define XBG_A -0.822 # # $c # # $c #define XHD_D +1.1 # # $c #define XHD_A +0.822 # # $c # # $c #define YBG_D -1.1 # # $c #define YBG_A -0.822 # # $c # # $c #define YHD_D +1.1 # # $c #define YHD_A +0.822 # # $c # # $c #define PRECIS_1 1e-1 # # $c #define PRECIS_2 2e-1 # # $c # # $c #define K0___ 0 # # $c #define KN___ 0.88 # # $c # # $c #define BA(o,e,l) (((1-(l))*(o))+(((l)-0)*(e))) # # $c # # $c extern double pow(); # # $c # # $c int main() # # $c { # # $c int n; # # $c double rapport_1=pow(PRECIS_1,1.0/((double)(N-N0))); # # $c double rapport_2=pow(PRECIS_2,1.0/((double)(N-N0))); # # $c # # $c double xbg=XBG_D; # # $c double xhd=XHD_D; # # $c double ybg=YBG_D; # # $c double yhd=YHD_D; # # $c # # $c double k__=K0___; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=20 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=%.2f # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=%.3f ybg=%.3f xhd=%.3f yhd=%.3f # # $c produit_non_theorique=VRAI # # $c eRho=8 # # $c pTheta=8 pPhi=8 pAlpha=8 # # $c tTheta=0 tPhi=0 tAlpha=0 # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,k__ # # $c ,xbg,ybg # # $c ,xhd,yhd # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c xbg=BA(xbg,XBG_A,1-rapport_1); # # $c xhd=BA(xhd,XHD_A,1-rapport_1); # # $c ybg=BA(ybg,YBG_A,1-rapport_1); # # $c yhd=BA(yhd,YHD_A,1-rapport_1); # # $c # # $c k__=BA(k__,KN___,1-rapport_2); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MAND.r2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MAND.r2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MAND_r2: # # # # # # Cette animation propose une interpolation entre 'v $xiirc/MAND.k2.2' et # # 'v $xiirc/MAND.p2.2'. # # # # On notera que les valeurs d'arrivee {{xbg,ybg},{xhd,yhd}} et de 'K' sont respectivement # # {{-0.822,-0.822},{+0.822,+0.822}} et 0.88 respectivement et non pas {{-0.85,-0.85}, # # {{-0.85,-0.85},{+0.85,+0.85}} et 0.7 a cause de l'interpolation par 'BA(...)'. Ainsi # # on atteint en fait les valeurs {{-0.85,-0.85},{+0.85,+0.85}} et 0.7 a la derniere # # iteration... # v $xiac/MAND.s12$R16 p=$xiP/nuages.02 v $xiac/MAND.s12$R64 p=$xiP/nuages.02 # Donne la texture tridimensionnelle de 'v $xiirc/MAND.s1.2' et 'v $xiirc/MAND.s2.2'. # v $xiac/MAND.w12$R16 p=$xiP/fract.02$Fi v $xiac/MAND.w12$R64 p=$xiP/fract.02$Fi # Donne la texture tridimensionnelle de 'v $xiirc/MAND.w1.2' et 'v $xiirc/MAND.w2.2'. # v $xiac/MAND.x2.2$R04 p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MAND_x2_2_R04: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=4 # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c #define ITER 1 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/mandel.01$X # # $c iterations=%d # # $c arguments=FAUX # # $c images=1 # # $c R=$xTV/MAND.1. # # $c $formatI\n" # # $c ,(n-N0)+ITER # # $c ); # # $c printf("$CP # # $c $xTV/MAND.1.%04d # # $c $xTV/MAND.1.%04d\n" # # $c ,N0-N0,n # # $c ); # # $c } # # $c } # # # # $Z $xci/reduction_04$X A=$xTV/MAND.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z calculer=VRAI \ # # $Z R=$xiac/MAND.x2.2$R04 \ # # $Z $formatI # # # # :Fin_listG_MAND_x2_2_R04: # # # v $xiac/MAND.x2.2$R16 p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_MAND_x2_2_R16: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z Pal # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c #define ITER 1 # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/mandel.01$X # # $c iterations=%d # # $c arguments=FAUX # # $c images=1 # # $c R=$xTV/MAND.1. # # $c $formatI\n" # # $c ,(n-N0)+ITER # # $c ); # # $c printf("$CP # # $c $xTV/MAND.1.%04d # # $c $xTV/MAND.1.%04d\n" # # $c ,N0-N0,n # # $c ); # # $c } # # $c } # # # # $Z $xci/reduction_16$X A=$xTV/MAND.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z calculer=VRAI \ # # $Z R=$xiac/MAND.x2.2$R16 \ # # $Z $formatI # # # # :Fin_listG_MAND_x2_2_R16: # # # v $xiac/MANE.22.1$R16 v $xiac/MANE.22.2$R16 v $xiirc/MANE.22.1.0001 v $xiirc/MANE.22.1.0002 v $xiirc/MANE.22.1.0003 v $xiirc/MANE.22.1.0004 v $xiirc/MANE.22.1.0005 v $xiirc/MANE.22.1.0006 v $xiirc/MANE.22.1.0007 v $xiirc/MANE.22.1.0008 v $xiirc/MANE.22.1.0009 v $xiirc/MANE.22.1.0010 v $xiirc/MANE.22.1.0011 v $xiirc/MANE.22.1.0012 v $xiirc/MANE.22.1.0013 v $xiirc/MANE.22.1.0014 v $xiirc/MANE.22.1.0015 v $xiirc/MANE.22.1.0016 Pal ; anim3 A=$xiirc/MANE.22.1. premiere=1 derniere=16 v $xiirc/MANE.22.2.0001 v $xiirc/MANE.22.2.0002 v $xiirc/MANE.22.2.0003 v $xiirc/MANE.22.2.0004 v $xiirc/MANE.22.2.0005 v $xiirc/MANE.22.2.0006 v $xiirc/MANE.22.2.0007 v $xiirc/MANE.22.2.0008 v $xiirc/MANE.22.2.0009 v $xiirc/MANE.22.2.0010 v $xiirc/MANE.22.2.0011 v $xiirc/MANE.22.2.0012 v $xiirc/MANE.22.2.0013 v $xiirc/MANE.22.2.0014 v $xiirc/MANE.22.2.0015 v $xiirc/MANE.22.2.0016 Pal ; anim3 A=$xiirc/MANE.22.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_MANE_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MANE.21 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT=$xTV/MANE.22 # # $Z set _____ImageT2=$xiirc/MANE.22.1 # # $Z set _____ImageT22=$_____ImageT.2 # # $Z set _____ImageT23=$_____ImageT.3 # # $Z set _____ImageT3=$xiirc/MANE.22.2 # # $Z set _____ImageZ=$xTV/Z_BUFFER.22 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define XBG_D -0.85 # # $c #define XBG_A +0.096327 # # $c # # $c #define XHD_D +0.85 # # $c #define XHD_A +0.098327 # # $c # # $c #define YBG_D -0.85 # # $c #define YBG_A -0.437969 # # $c # # $c #define YHD_D +0.85 # # $c #define YHD_A -0.435969 # # $c # # $c #define J1__D +0.820 # # $c #define J1__A +0.42043118 # # $c # # $c #define J2__D 0 # # $c #define J2__A +0.40795553 # # $c # # $c #define PRECISION 1e-3 # # $c # # $c #define BA(o,e,l) (((1-(l))*(o))+(((l)-0)*(e))) # # $c # # $c extern double pow(); # # $c # # $c int main() # # $c { # # $c int n; # # $c double rapport=pow(PRECISION,1.0/((double)(N-N0))); # # $c # # $c double xbg=XBG_D; # # $c double xhd=XHD_D; # # $c double ybg=YBG_D; # # $c double yhd=YHD_D; # # $c double j1_=J1__D; # # $c double j2_=J2__D; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$DELETE $xTV/COMPOSANTE_J\n"); # # $c # # $c printf("$xci/valeurs_inte$X # # $c p=$cPremiere d=$cDerniere # # $c vD=%.8f vA=%.8f # # $c cubique=FAUX # # $c > $xTV/COMPOSANTE_J\n" # # $c ,j1_,j2_ # # $c ); # # $c # # $c printf("$xrc/mandel.41$X # # $c images=$Nimages # # $c iterations=20 # # $c COMPOSANTE_J=$xTV/COMPOSANTE_J # # $c K=+0.7 # # $c exposant=1 # # $c fenetres_depart_arrivee_identiques=VRAI # # $c xbg=%.8f xhd=%.8f ybg=%.8f yhd=%.8f # # $c produit_non_theorique=VRAI # # $c eRho=8 # # $c pTheta=8 pPhi=8 pAlpha=8 # # $c tTheta=0 tPhi=0 tAlpha=0 # # $c visualiser_appartenance=VRAI # # $c R=$_____ImageT1. # # $c $formatI\n" # # $c ,xbg,xhd # # $c ,ybg,yhd # # $c ); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=0 pY=0 pZ=1 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=1 pY=0 pZ=0'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=0 # # $c R=$_____ImageT%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c xbg=BA(xbg,XBG_A,1-rapport); # # $c xhd=BA(xhd,XHD_A,1-rapport); # # $c ybg=BA(ybg,YBG_A,1-rapport); # # $c yhd=BA(yhd,YHD_A,1-rapport); # # $c j1_=BA(j1_,J1__A,1-rapport); # # $c j2_=BA(j2_,J2__A,1-rapport); # # $c } # # $c } # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/MANE.22.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/MANE.22.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_MANE_22: # # # # # # Cette animation propose un zoom sur 'v $xiirc/MAND.q1.2'. # v $xiac/MANE.41$R16 p=$xiP/trou_noir.D4 v $xiac/MANE.41$R64 p=$xiP/trou_noir.D4 # Donne la texture tridimensionnelle de 'v $xiirc/MANE.41.2'. # v $xiac/MANE.81$R16 v $xiac/MANE.81.1$R16 v $xiac/MANE.81.2$R16 v $xiac/MANE.81.2.1$R16 v $xiirc/MANE.81.2.0001 v $xiirc/MANE.81.2.0002 v $xiirc/MANE.81.2.0003 v $xiirc/MANE.81.2.0004 v $xiirc/MANE.81.2.0005 v $xiirc/MANE.81.2.0006 v $xiirc/MANE.81.2.0007 v $xiirc/MANE.81.2.0008 v $xiirc/MANE.81.2.0009 v $xiirc/MANE.81.2.0010 v $xiirc/MANE.81.2.0011 v $xiirc/MANE.81.2.0012 v $xiirc/MANE.81.2.0013 v $xiirc/MANE.81.2.0014 v $xiirc/MANE.81.2.0015 v $xiirc/MANE.81.2.0016 Pal ; anim3 A=$xiirc/MANE.81.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # :Debut_listG_MANE_81: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MANE.81 # # # # $Z $DELETE $xTV/param.81 # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=0.80131489 vA=0.79628076 \ # # $Z cubique=FAUX \ # # $Z > $xTV/param.81 # # # # $Z $xrc/mandel.41$X \ # # $Z images=$Nimages \ # # $Z iterations=20 \ # # $Z COMPOSANTE_J=$xTV/param.81 \ # # $Z K=0 \ # # $Z exposant=1 \ # # $Z fenetres_depart_arrivee_identiques=VRAI \ # # $Z xbg=-0.04403889 xhd=-0.03475372 \ # # $Z ybg=-0.36672577 yhd=-0.35744060 \ # # $Z produit_non_theorique=VRAI \ # # $Z eRho=8 \ # # $Z pTheta=8 pPhi=8 pAlpha=1 \ # # $Z tTheta=0 tPhi=0 tAlpha=0 \ # # $Z visualiser_appartenance=VRAI \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/param.81 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.81.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/MANE.81 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/MANE.81.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.81.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/MANE.81.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_81: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MANE.61.2' et # # donne donc 4x3 stereogrammes de cette image. On notera qu'ici la source lumineuse relative # # l'ombrage semble tourner de facon identique a celle de l'objet : les ombres portees sont # # donc immobiles par rapport a l'objet (l'objet et la source lumineuse tournent ensemble). # # # # ATTENTION : l'ombrage par 'v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X' n'est pas fait a # # l'interieur de la boucle 'while(...)', mais une seule fois au prealable et a l'exterieur, # # ce qui est en fait incorrect car, en effet pour que les ombres semblent fixes sur l'objet, # # alors que ce dernier tourne, il faut que la source lumineuse tourne aussi... # v $xiac/MANE.91$R16 v $xiac/MANE.91.1$R16 v $xiac/MANE.91.2$R16 v $xiac/MANE.91.2.1$R16 v $xiirc/MANE.91.2.0001 v $xiirc/MANE.91.2.0002 v $xiirc/MANE.91.2.0003 v $xiirc/MANE.91.2.0004 v $xiirc/MANE.91.2.0005 v $xiirc/MANE.91.2.0006 v $xiirc/MANE.91.2.0007 v $xiirc/MANE.91.2.0008 v $xiirc/MANE.91.2.0009 v $xiirc/MANE.91.2.0010 v $xiirc/MANE.91.2.0011 v $xiirc/MANE.91.2.0012 v $xiirc/MANE.91.2.0013 v $xiirc/MANE.91.2.0014 v $xiirc/MANE.91.2.0015 v $xiirc/MANE.91.2.0016 Pal ; anim3 A=$xiirc/MANE.91.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # :Debut_listG_MANE_91: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/MANE.91 # # # # $Z $DELETE $xTV/param.91 # # # # $Z $xci/valeurs_inte$X p=$cPremiere d=$cDerniere \ # # $Z vD=+0.820 vA=0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/param.91 # # # # $Z $xrc/mandel.41$X \ # # $Z images=$Nimages \ # # $Z iterations=20 \ # # $Z COMPOSANTE_J=$xTV/param.91 \ # # $Z K=+0.7 \ # # $Z exposant=1 \ # # $Z fenetres_depart_arrivee_identiques=VRAI \ # # $Z xbg=-0.85 ybg=-0.85 xhd=+0.85 yhd=+0.85 \ # # $Z produit_non_theorique=VRAI \ # # $Z eRho=8 \ # # $Z pTheta=8 pPhi=8 pAlpha=8 \ # # $Z tTheta=0 tPhi=0 tAlpha=0 \ # # $Z visualiser_appartenance=VRAI \ # # $Z R=$_____ImageT1. \ # # $Z $formatI # # # # $Z $DELETE $xTV/param.91 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.1%s $_____ImageT1.1.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # $Z execRVB $MV $_____ImageT1.$NImAgE.2.1%s $_____ImageT1.2.1.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.91.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiac/MANE.91 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.1 # # $Z set _____animation=$xiac/MANE.91.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.91.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT1.2.1 # # $Z set _____animation=$xiac/MANE.91.2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_91: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MANE.72.2' et # # donne donc 4x3 stereogrammes de cette image. On notera que dans cette rotation, # # l'ombrage semble tourner de facon identique a celle de l'objet : les ombres portees sont # # donc immobiles par rapport a l'objet (l'objet et la source lumineuse tournent ensemble). # # # # ATTENTION : l'ombrage par 'v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X' n'est pas fait a # # l'interieur de la boucle 'while(...)', mais une seule fois au prealable et a l'exterieur, # # ce qui est en fait incorrect car, en effet pour que les ombres semblent fixes sur l'objet, # # alors que ce dernier tourne, il faut que la source lumineuse tourne aussi... # v $xiac/MANE.C1$R16 p=$xiP/fractal.91 v $xiac/MANE.C1$R16 p=$xiP/inter.02.11 v $xiac/MANE.C1$R16 p=$xiP/orange.11 v $xiirc/MANE.C1.0000 v $xiirc/MANE.C1.0008 v $xiirc/MANE.C1.0016 v $xiirc/MANE.C1.0024 v $xiirc/MANE.C1.0032 v $xiirc/MANE.C1.0040 v $xiirc/MANE.C1.0048 v $xiirc/MANE.C1.0056 v $xiirc/MANE.C1.0064 v $xiirc/MANE.C1.0072 v $xiirc/MANE.C1.0080 v $xiirc/MANE.C1.0088 v $xiirc/MANE.C1.0096 v $xiirc/MANE.C1.0104 v $xiirc/MANE.C1.0112 v $xiirc/MANE.C1.0120 Pal ; anim1 A=$xiirc/MANE.C1. premiere=0 Zmax=120 pas=8 p=$xiP/fractal.91 Pal ; anim1 A=$xiirc/MANE.C1. premiere=0 Zmax=120 pas=8 p=$xiP/inter.02.11 Pal ; anim1 A=$xiirc/MANE.C1. premiere=0 Zmax=120 pas=8 p=$xiP/orange.11 Pal ; anim3 A=$xiirc/MANE.C1. premiere=0 derniere=120 pas=8 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # :Debut_listG_MANE_C1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set LiStE_N=`$xci/nombres$X A="$K_VIDE" p=0 d=127 pas=8 CAL1=FAUX` # # $Z set _____ListeNumeros=($LiStE_N) # # $Z set __________imagesR=$xiirc/MANE.C1 # # $m4 _____include(_____xiirc/.MANE.B1.1._____U) # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $xci/luminance.01$X \ # # $Z A=$__________imagesR.%04d \ # # $Z R=$__________imagesR.%04d \ # # $Z $formatI # # # # $Z set Premiere=`echo $LiStE_N[1] | $SE -e 's/^0*\(..*\)$/\1/'` # # $Z set Derniere=`echo $LiStE_N[$#LiStE_N] | $SE -e 's/^0*\(..*\)$/\1/'` # # $Z set _____images=$__________imagesR # # $Z set _____animation=$xiac/MANE.C1 # # $Z SET _____CalculerR64=$NEXIST # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z $xci/reduction_16$X \ # # $Z A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z calculer=FAUX pas=8 \ # # $Z R=$_____animation$R16 \ # # $Z $formatI # # # # :Fin_listG_MANE_C1: # # # v $xiac/MANE.O1.2$R16 v $xiirc/MANE.O1.2.0001 v $xiirc/MANE.O1.2.0002 v $xiirc/MANE.O1.2.0003 v $xiirc/MANE.O1.2.0004 v $xiirc/MANE.O1.2.0005 v $xiirc/MANE.O1.2.0006 v $xiirc/MANE.O1.2.0007 v $xiirc/MANE.O1.2.0008 v $xiirc/MANE.O1.2.0009 v $xiirc/MANE.O1.2.0010 v $xiirc/MANE.O1.2.0011 v $xiirc/MANE.O1.2.0012 v $xiirc/MANE.O1.2.0013 v $xiirc/MANE.O1.2.0014 v $xiirc/MANE.O1.2.0015 v $xiirc/MANE.O1.2.0016 Pal ; anim3 A=$xiirc/MANE.O1.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # :Debut_listG_MANE_O1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/MANE.O1 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OJ 0.80131489 # # $c #define EJ 0.79828076 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xrc/mandel.81$X # # $c images=1 # # $c iterations=20 # # $c J=%f # # $c K=0 # # $c S=0 # # $c T=0 # # $c U=0 # # $c V=0 # # $c exposant=1 # # $c fdai=VRAI # # $c xbg=-0.04553889 # # $c xhd=-0.04089630 # # $c ybg=-0.36672577 # # $c yhd=-0.36208318 # # $c pnt=VRAI # # $c eRho=8 # # $c pA1=8 tA1=0 # # $c pA2=8 tA2=0 # # $c pA3=8 tA3=0 # # $c pA4=1 tA4=0 # # $c pA5=1 tA5=0 # # $c pA6=1 tA6=0 # # $c pA7=1 tA7=0 # # $c appartenance=VRAI # # $c chiffres=0 # # $c R=$_____ImageT1.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,J # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.O1.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.O1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_O1: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MANE.O1.2' et # # donne donc 4x3 stereogrammes de cette image. On notera que dans cette rotation, # # l'ombrage semble tourner de facon identique a celle de l'objet : les ombres portees sont # # donc immobiles par rapport a l'objet (l'objet et la source lumineuse tournent ensemble). # # # # ATTENTION : l'ombrage par 'v $xiirc/.MANE.41.3.$U .xci.ombrage.11.X' n'est pas fait a # # l'interieur de la boucle 'while(...)', mais une seule fois au prealable et a l'exterieur, # # ce qui est en fait incorrect car, en effet pour que les ombres semblent fixes sur l'objet, # # alors que ce dernier tourne, il faut que la source lumineuse tourne aussi... # v $xiac/MANE.O4.1$R16 v $xiac/MANE.O4.2$R16 v $xiac/MANE.O4.21$R16 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_MANE_O4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=64 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/MANE.O4.1 # # $Z set _____ImageT2=$xTV/MANE.O4.2 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OJ 0.80131489 # # $c #define EJ 0.79828076 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xrc/mandel.81$X # # $c images=1 # # $c iterations=20 # # $c J=%f # # $c K=0 # # $c S=0 # # $c T=0 # # $c U=0 # # $c V=0 # # $c exposant=1 # # $c fdai=VRAI # # $c xbg=-0.04553889 # # $c xhd=-0.04089630 # # $c ybg=-0.36672577 # # $c yhd=-0.36208318 # # $c pnt=VRAI # # $c eRho=8 # # $c pA1=8 tA1=0 # # $c pA2=8 tA2=0 # # $c pA3=8 tA3=0 # # $c pA4=1 tA4=0 # # $c pA5=1 tA5=0 # # $c pA6=1 tA6=0 # # $c pA7=1 tA7=0 # # $c appartenance=VRAI # # $c chiffres=0 # # $c R=$_____ImageT1.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,J # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMeTrEs="$K_VIDE" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" premiere=$Premiere" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" derniere=$Derniere" # # # # $Z set LNuMeRo=`$xci/nombres$X $PaRaMeTrEs` # # $Z set index=1 # # # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" vD=-1.0" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" vA=+1.0" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" lineaire=VRAI" # # # # $Z set LSoUrCeX=`$xci/valeurs_inte$X $PaRaMeTrEs` # # # # $Z foreach NuMeRo ($LNuMeRo) # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $Z set _____SourceX=$LSoUrCeX[$index] # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____Speculaire=8 # # $Z set _____imagesR=$_____ImageT2.$NuMeRo # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $xci/format.01$X A=$_____imagesR.1%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageT2.1.$NuMeRo%s \ # # $Z $formatR_Pqu # # # # $Z execRVB $xci/format.01$X A=$_____imagesR.2%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageT2.2.$NuMeRo%s \ # # $Z $formatR_Pqu # # # # $Z execRVB $xci/format.01$X A=$_____imagesR.21%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageT2.21.$NuMeRo%s \ # # $Z $formatR_Pqu # # # # $Z @ index = $index + 1 # # $Z end # # # # $Z Pqu # # # # $Z set _____images=$_____ImageT2.1 # # $Z set _____animation=$xiac/MANE.O4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2.2 # # $Z set _____animation=$xiac/MANE.O4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2.21 # # $Z set _____animation=$xiac/MANE.O4.21 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_O4: # # # # # # Cette image correspond a un mouvement de la source lumineuse de la gauche vers la droite, # # de 'v $xiirc/MANE.O2.2' a 'v $xiirc/MANE.O3.2'... # v $xiac/MANE.R1.2$R16 v $xiirc/MANE.R1.2.0001 v $xiirc/MANE.R1.2.0002 v $xiirc/MANE.R1.2.0003 v $xiirc/MANE.R1.2.0004 v $xiirc/MANE.R1.2.0005 v $xiirc/MANE.R1.2.0006 v $xiirc/MANE.R1.2.0007 v $xiirc/MANE.R1.2.0008 v $xiirc/MANE.R1.2.0009 v $xiirc/MANE.R1.2.0010 v $xiirc/MANE.R1.2.0011 v $xiirc/MANE.R1.2.0012 v $xiirc/MANE.R1.2.0013 v $xiirc/MANE.R1.2.0014 v $xiirc/MANE.R1.2.0015 v $xiirc/MANE.R1.2.0016 Pal ; anim3 A=$xiirc/MANE.R1.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # :Debut_listG_MANE_R1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/MANE.R1 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OJ 0.80131489 # # $c #define EJ 0.79828076 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xrc/mandel.81$X # # $c images=1 # # $c iterations=20 # # $c J=%f # # $c K=0 # # $c S=0 # # $c T=0 # # $c U=0 # # $c V=0 # # $c exposant=1 # # $c fdai=VRAI # # $c xbg=-0.04553889 # # $c xhd=-0.04089630 # # $c ybg=-0.36672577 # # $c yhd=-0.36208318 # # $c pnt=VRAI # # $c eRho=8 # # $c pA1=8 tA1=0 # # $c pA2=8 tA2=0 # # $c pA3=8 tA3=0 # # $c pA4=1 tA4=0 # # $c pA5=1 tA5=0 # # $c pA6=1 tA6=0 # # $c pA7=1 tA7=0 # # $c appartenance=VRAI # # $c chiffres=0 # # $c R=$_____ImageT1.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,J # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # $Z set _____RotationZ=0 # # # # $Z set _____ORotationX=$_____RotationX # # $Z set _____ORotationY=$_____RotationY # # $Z set _____ORotationZ=$_____RotationZ # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.R1.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.R1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_R1: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/MANE.O1.2' et # # donne donc 4x3 stereogrammes de cette image. On notera que dans cette rotation, # # l'ombrage ne tourne pas comme l'objet : les ombres portees sont donc mobiles par # # rapport a l'objet (l'objet tourne, mais pas la source lumineuse). # v $xiac/MANE.V1.2$R16 v $xiirc/MANE.V1.2.0001 v $xiirc/MANE.V1.2.0002 v $xiirc/MANE.V1.2.0003 v $xiirc/MANE.V1.2.0004 v $xiirc/MANE.V1.2.0005 v $xiirc/MANE.V1.2.0006 v $xiirc/MANE.V1.2.0007 v $xiirc/MANE.V1.2.0008 v $xiirc/MANE.V1.2.0009 v $xiirc/MANE.V1.2.0010 v $xiirc/MANE.V1.2.0011 v $xiirc/MANE.V1.2.0012 v $xiirc/MANE.V1.2.0013 v $xiirc/MANE.V1.2.0014 v $xiirc/MANE.V1.2.0015 v $xiirc/MANE.V1.2.0016 Pal ; anim3 A=$xiirc/MANE.V1.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # :Debut_listG_MANE_V1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/MANE.V1 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z SET PrEciSiOn="precision=0.0002" # # # # $Z set OJ_0=1.08800000 # # $Z set OJ_N=0.80093562 # # $Z set L_OJs="p=$Premiere d=$Derniere vD=$OJ_0 vA=$OJ_N" # # $Z set L_OJs=`$xci/valeurs_bary$X $L_OJs $PrEciSiOn` # # # # $Z set EJ_0=0.00000000 # # $Z set EJ_N=0.80093562 # # $Z set L_EJs="p=$Premiere d=$Derniere vD=$EJ_0 vA=$EJ_N" # # $Z set L_EJs=`$xci/valeurs_bary$X $L_EJs $PrEciSiOn` # # # # $Z set xbg_0=-1.00000000 # # $Z set xbg_N=-0.04129560 # # $Z set L_xbgs="p=$Premiere d=$Derniere vD=$xbg_0 vA=$xbg_N" # # $Z set L_xbgs=`$xci/valeurs_bary$X $L_xbgs $PrEciSiOn` # # # # $Z set xhd_0=+1.00000000 # # $Z set xhd_N=-0.04129560 # # $Z set L_xhds="p=$Premiere d=$Derniere vD=$xhd_0 vA=$xhd_N" # # $Z set L_xhds=`$xci/valeurs_bary$X $L_xhds $PrEciSiOn` # # # # $Z set ybg_0=-1.00000000 # # $Z set ybg_N=-0.36665904 # # $Z set L_ybgs="p=$Premiere d=$Derniere vD=$ybg_0 vA=$ybg_N" # # $Z set L_ybgs=`$xci/valeurs_bary$X $L_ybgs $PrEciSiOn` # # # # $Z set yhd_0=+1.00000000 # # $Z set yhd_N=-0.36665904 # # $Z set L_yhds="p=$Premiere d=$Derniere vD=$yhd_0 vA=$yhd_N" # # $Z set L_yhds=`$xci/valeurs_bary$X $L_yhds $PrEciSiOn` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # # # $Z setenv _OJ $L_OJs[$ImAgE] # # $Z setenv _EJ $L_EJs[$ImAgE] # # $Z setenv _xbg $L_xbgs[$ImAgE] # # $Z setenv _xhd $L_xhds[$ImAgE] # # $Z setenv _ybg $L_ybgs[$ImAgE] # # $Z setenv _yhd $L_yhds[$ImAgE] # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define n_N0 ((double)(n-N0)) # # $c #define N_N0 ((double)(N-N0)) # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double lambda=n_N0/N_N0; # # $c # # $c printf("echo %c$xrc/mandel.81$X # # $c images=1 # # $c iterations=20 # # $c J=`$xcg/BARY.01$X O=$_OJ E=$_EJ L=%f` # # $c K=0 # # $c S=0 # # $c T=0 # # $c U=0 # # $c V=0 # # $c exposant=1 # # $c fdai=VRAI # # $c xbg=$_xbg # # $c xhd=$_xhd # # $c ybg=$_ybg # # $c yhd=$_yhd # # $c pnt=VRAI # # $c eRho=8 # # $c pA1=8 tA1=0 # # $c pA2=8 tA2=0 # # $c pA3=8 tA3=0 # # $c pA4=1 tA4=0 # # $c pA5=1 tA5=0 # # $c pA6=1 tA6=0 # # $c pA7=1 tA7=0 # # $c appartenance=VRAI # # $c chiffres=0 # # $c R=$_____ImageT1.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,lambda # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $Z set _____ImageTT=$_____ImageTo # # # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.V1.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.V1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_V1: # # # # # # Cette animation un zoom de 'v $xiirc/MANE.V1.2' a 'v $xiirc/MANE.U1.2'... # v $xiac/MANE.d1.2$R16 v $xiirc/MANE.d1.2.0001 v $xiirc/MANE.d1.2.0002 v $xiirc/MANE.d1.2.0003 v $xiirc/MANE.d1.2.0004 v $xiirc/MANE.d1.2.0005 v $xiirc/MANE.d1.2.0006 v $xiirc/MANE.d1.2.0007 v $xiirc/MANE.d1.2.0008 v $xiirc/MANE.d1.2.0009 v $xiirc/MANE.d1.2.0010 v $xiirc/MANE.d1.2.0011 v $xiirc/MANE.d1.2.0012 v $xiirc/MANE.d1.2.0013 v $xiirc/MANE.d1.2.0014 v $xiirc/MANE.d1.2.0015 v $xiirc/MANE.d1.2.0016 Pdu ; anim3 A=$xiirc/MANE.d1.2. premiere=1 derniere=16 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_MANE_d1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $m4 _____include(_____xiirf/.FRB3.32.2.1._____U) # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____ImageT2. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z p=$xiP/trou_noir.E5 \ # # $Z R=$_____ImageT2. \ # # $Z $formatI # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/MANE.d1 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OJ 0.80131489 # # $c #define EJ 0.79828076 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xrc/mandel.81$X # # $c images=1 # # $c iterations=20 # # $c J=%f # # $c K=0 # # $c S=0 # # $c T=0 # # $c U=0 # # $c V=0 # # $c exposant=1 # # $c fdai=VRAI # # $c xbg=-0.04553889 # # $c xhd=-0.04089630 # # $c ybg=-0.36672577 # # $c yhd=-0.36208318 # # $c pnt=VRAI # # $c eRho=8 # # $c pA1=8 tA1=0 # # $c pA2=8 tA2=0 # # $c pA3=8 tA3=0 # # $c pA4=1 tA4=0 # # $c pA5=1 tA5=0 # # $c pA6=1 tA6=0 # # $c pA7=1 tA7=0 # # $c appartenance=VRAI # # $c chiffres=0 # # $c R=$_____ImageT1.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,J # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # # # $Z set execALBUM_Para=FAUX # # $Z execALBUM $cPremiere $cDerniere \ # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$_____ImageTo.%04d \ # # $Z A2=$_____ImageT2.%04d%%s \ # # $Z renormaliser=FAUX \ # # $Z R=$_____ImageTT.%04d%%s \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set AnGlE0=`calcul -$dpi/16` # # $Z set AnGlEN=`calcul +$dpi/16` # # $Z set LAnGlEs="p=$Premiere d=$Derniere vD=$AnGlE0 vA=$AnGlEN" # # $Z set LAnGlEs=`$xci/valeurs_inte$X lineaire=VRAI $LAnGlEs` # # # # $Z set ImAgE=$Premiere # # # # $Z while ($ImAgE <= $Derniere) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$LAnGlEs[$ImAgE] # # $Z set _____RotationZ=0 # # # # $Z set _____ORotationX=$_____RotationX # # $Z set _____ORotationY=$_____RotationY # # $Z set _____ORotationZ=$_____RotationZ # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $Z set NImAgE=`$xci/nombres$X p=$ImAgE d=$ImAgE A="$K_VIDE"` # # $Z set _____ccXYZ=FAUX # # $Z set _____exec_aR="pX=0 pY=0 pZ=0" # # $Z set _____exec_aV="pX=0 pY=0 pZ=0" # # $Z set _____exec_aB="pX=0 pY=0 pZ=0" # # $Z set _____PostfixeT="%s" # # $Z set _____imagesR=$_____ImageT1.$NImAgE # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $MV $_____ImageT1.$NImAgE.2%s $_____ImageT1.2.$NImAgE%s # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageT1.2.$NImAgE%s \ # # $Z R=$xiirc/MANE.d1.2.$NImAgE%s \ # # $Z $formatI # # # # $Z @ ImAgE = $ImAgE + 1 # # $Z end # # # # $Z set _____images=$_____ImageT1.2 # # $Z set _____animation=$xiac/MANE.d1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_MANE_d1: # # # v $xiac/MANE.w1$R16 p=$xiP/fract.03$Fi v $xiac/MANE.w1$R16 p=$xiP/random.32$Fi # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MANE_w1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____images=$xTV/MANE.w1 # # # # $Z set Premiere=0 # # $Z set Derniere=15 # # $Z @ Nimages = $Derniere - $Premiere + 1 # # # # $Z $xrc/mandel.01$X \ # # $Z N=$Nimages \ # # $Z iterations=256 \ # # $Z xbgD=-2.0 ybgD=-1.25 \ # # $Z xhdD=+0.5 yhdD=+1.25 \ # # $Z xbgA=-0.74542955 ybgA=+0.11300805 \ # # $Z xhdA=-0.74542955 yhdA=+0.11300805 \ # # $Z arguments=FAUX \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/MANE.w1 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_MANE_w1: # # # v $xiac/MANE.w2$MPEG v $xiac/MANE.w2$R16 p=$xiP/fract.03$Fi v $xiac/MANE.w2$R16 p=$xiP/random.32$Fi # Generee (sur '$LACT1A', puis recaclculee sur '$LACT1B') par : # # # # # # :Debut_listG_MANE_w2: # # # # $Z Pal # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z setenv xTV $xTG # # # # $Z SET _____images=$xTV/MANE.w2 # # # # $Z set Premiere=0 # # $Z set Derniere=127 # # $Z @ Nimages = $Derniere - $Premiere + 1 # # # # $Z $xrc/mandel.01$X \ # # $Z N=$Nimages \ # # $Z iterations=256 \ # # $Z xbgD=-2.0 ybgD=-1.25 \ # # $Z xhdD=+0.5 yhdD=+1.25 \ # # $Z xbgA=-0.74542955 ybgA=+0.11300805 \ # # $Z xhdA=-0.74542955 yhdA=+0.11300805 \ # # $Z arguments=FAUX \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/MANE.w2 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=$xiP/random.32$Fi # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_MANE_w2: # # # v $xiac/MANE.x1$MPEG v $xiac/MANE.x1$R16 p=$xiP/arc_ciel.A1 v $xiac/MANE.x1$R16 p=$xiP/random.32$Fi # Generee (sur '$LACT1A', puis recaclculee sur '$LACT1B') par : # # # # # # :Debut_listG_MANE_x1: # # # # $Z Pal # # # # $Z SETENV Autoriser_____set_SET $EXIST # # # # $Z setenv xTV $xTG # # # # $Z SET _____images=$xTV/MANE.x1 # # # # $Z set Premiere=0 # # $Z set Derniere=127 # # $Z @ Nimages = $Derniere - $Premiere + 1 # # # # $Z $xrc/mandel.01$X \ # # $Z N=$Nimages \ # # $Z iterations=256 \ # # $Z xbgD=-2.0 ybgD=-1.25 \ # # $Z xhdD=+0.5 yhdD=+1.25 \ # # $Z xbgA=-0.15293 ybgA=+1.03980 \ # # $Z xhdA=-0.15293 yhdA=+1.03980 \ # # $Z arguments=FAUX \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/MANE.x1 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z set _____PaletteMPEG=$xiP/arc_ciel.A1 # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_MANE_x1: # # # v $xiac/MANF.D4.5$R16 p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MANF_D4_5: # # # # # # $Z set _____Debut="Debut_listG_MANF_D4_5" # # $Z set _____Fin__="Milieu_listG_MANF_D4_5" # # # # $Z set _____animation=$xiac/MANF.D4.5 # # $m4 _____include(_____xiac/.MANF.D4.5._____U) # # # # :Fin_listG_MANF_D4_5: # # # v $xiac/MANS.11$R16 p=$xiP/arc_ciel.01 # Genere a partir de : # # # # $xrc/mandel.31$X Sx=FAUX Sy=VRAI \ # # images=128 iterations=256 \ # # R=... \ # # $formatI # # # # et : # # # # $xci/reduction_16$X ... pas=4 R=$xiac/MANS.11$R16 \ # # $formatI # # # # Le nom 'MANS' est une contraction de 'MAND' et de 'Symetrique' qui rappelle le processus # # de calcul. ATTENTION, je n'ai pas genere de sequence video associee, car en effet, j'ai # # programme ce processus suite a un article sur lequel j'ai referre... # v $xiac/MA.Q0$R16$DROITE p=$xiP/arc_ciel.01 v $xiac/MA.Q0$R16$DROITE p=$xiP/fractal.11 v $xiac/MA.Q0$R16$DROITE p=$xiP/gris_oran.01 v $xiac/MA.Q0$R16$DROITE v $xiac/MA.Q0$R64$DROITE p=$xiP/arc_ciel.01 v $xiac/MA.Q0$R64$DROITE p=$xiP/fractal.11 v $xiac/MA.Q0$R64$DROITE p=$xiP/gris_oran.01 v $xiac/MA.Q0$R64$DROITE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012636_012763 # # xivPdf 7 1 / 012764_012891 # # # v $xiac/MA.Q0$R16$GAUCHE p=$xiP/arc_ciel.01 v $xiac/MA.Q0$R16$GAUCHE p=$xiP/fractal.11 v $xiac/MA.Q0$R16$GAUCHE p=$xiP/gris_oran.01 v $xiac/MA.Q0$R16$GAUCHE v $xiac/MA.Q0$R64$GAUCHE p=$xiP/arc_ciel.01 v $xiac/MA.Q0$R64$GAUCHE p=$xiP/fractal.11 v $xiac/MA.Q0$R64$GAUCHE p=$xiP/gris_oran.01 v $xiac/MA.Q0$R64$GAUCHE # Correspond a la sequence d'images suivantes : # # # # xivPdf 7 1 / 012892_013019 # # xivPdf 7 1 / 013020_013147 # # # v $xiac/MA.R3$MP4 v $xiac/MA.R3$R16 v $xiac/MA.R3$R64 v $xiac/MA.R3$N$MP4 v $xiac/MA.R3$N$R16 v $xiac/MA.R3$N$R64 v $xiac/MA.R3$M$MP4 v $xiac/MA.R3$M$R16 v $xiac/MA.R3$M$R64 v $xiirc/MA.R3$M.0001 v $xiirc/MA.R3$M.0016 v $xiirc/MA.R3$M.0032 v $xiirc/MA.R3$M.0048 v $xiirc/MA.R3$M.0064 v $xiirc/MA.R3$M.0080 v $xiirc/MA.R3$M.0096 v $xiirc/MA.R3$M.0112 v $xiirc/MA.R3$M.0128 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_MA_R3_M: # # # # $Z ext Pdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=128 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ModulerBrume=$EXIST # # $Z SET _____ModulationBrume=$xTV/NUAG.1 # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$xiff/NUAG.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$_____ModulationBrume. \ # # $Z $formatI # # # # $Z SET _____imagesR=$xTV/MAND.3 # # $Z set _____Pbrume=$xiP/gris.05 # # $Z set _____Ptexture=$xiP/roug0_jaun0 # # $Z set _____ModulerTexture=$EXIST # # $Z set _____PourcentageSeuil=49 # # $Z set _____Echelle=0.25 # # $Z set _____Perspective=0.6 # # $Z set _____Ty=0.86 # # $Z set _____DepthCueing=VRAI # # $Z set _____MinDepthCueing=0.3 # # $Z set _____Pbrume=$xiP/gris.08 # # $m4 _____include(_____xiirc/.MAND.3.11._____U) # # # # $Z SET _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.R3 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z SET _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.R3$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z SET _____images=$_____ModulationBrume # # $Z set _____animation=$xiac/MA.R3$N # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z set _____ImagesR=$xiirc/MA.R3$M # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0001%s \ # # $Z R=$_____ImagesR.0001%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0016%s \ # # $Z R=$_____ImagesR.0016%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0032%s \ # # $Z R=$_____ImagesR.0032%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0048%s \ # # $Z R=$_____ImagesR.0048%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0064%s \ # # $Z R=$_____ImagesR.0064%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0080%s \ # # $Z R=$_____ImagesR.0080%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0096%s \ # # $Z R=$_____ImagesR.0096%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0112%s \ # # $Z R=$_____ImagesR.0112%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0128%s \ # # $Z R=$_____ImagesR.0128%s \ # # $Z $formatI # # # # :Fin_listG_MA_R3_M: # v $xiac/MA.S3$MP4 v $xiac/MA.S3$R16 v $xiac/MA.S3$R64 v $xiac/MA.S3$M$MP4 v $xiac/MA.S3$M$R16 v $xiac/MA.S3$M$R64 v $xiirc/MA.R3$M.0321 v $xiirc/MA.R3$M.0433 v $xiirc/MA.R3$M.0497 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_MA_S3_M: # # # # $Z ext Pdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=512 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z SET _____imagesR=$xTV/MAND.3 # # $Z set _____Pbrume=$xiP/gris.05 # # $Z set _____Ptexture=$xiP/random.A5 # # $Z set _____ModulerTexture=$EXIST # # $Z set _____PourcentageSeuil=49 # # $Z set _____Echelle=0.25 # # $Z set _____Perspective=0.6 # # $Z set _____Ty=0.86 # # $Z set _____DepthCueing=VRAI # # $Z set _____MinDepthCueing=0.2 # # $Z set _____Pbrume=$xiP/gris.08 # # $m4 _____include(_____xiirc/.MAND.S.11._____U) # # # # $Z SET _____images=$_____imagesT # # $Z set _____animation=$xiac/MA.S3 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z SET _____images=$_____imagesR$M # # $Z set _____animation=$xiac/MA.S3$M # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z set _____ImagesR=$xiirc/MA.S3$M # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0321%s \ # # $Z R=$_____ImagesR.0321%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0433%s \ # # $Z R=$_____ImagesR.0433%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesR$M.0497%s \ # # $Z R=$_____ImagesR.0497%s \ # # $Z $formatI # # # # :Fin_listG_MA_S3_M: # v $xiac/POLY.112$R16 p=$xiP/cercle.35 v $xiac/POLY.112$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.11.2' et 'v $xiirc/POLY.12.2'. # v $xiac/POLY.212$R16 p=$xiP/cercle.35 v $xiac/POLY.212$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.21.2' et 'v $xiirc/POLY.22.2'. # v $xiac/POLY.312$R16 p=$xiP/cercle.35 v $xiac/POLY.312$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.31.2' et 'v $xiirc/POLY.32.2'. # v $xiac/POLY.412$R16 p=$xiP/cercle.35 v $xiac/POLY.412$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.41.2' et 'v $xiirc/POLY.42.2'. # v $xiac/POLY.512$R16 p=$xiP/cercle.35 v $xiac/POLY.512$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.51.2' et 'v $xiirc/POLY.52.2'. # v $xiac/POLY.612$R16 p=$xiP/cercle.35 v $xiac/POLY.612$R64 p=$xiP/cercle.35 # Donne l'exposant 'eRho' variable de 'v $xiirc/POLY.61.2' et 'v $xiirc/POLY.62.2'. # v $xiac/POLY.82.1$R16 v $xiac/POLY.82.2$R16 v $xiirc/POLY.82.1.0001 v $xiirc/POLY.82.1.0002 v $xiirc/POLY.82.1.0003 v $xiirc/POLY.82.1.0004 v $xiirc/POLY.82.1.0005 v $xiirc/POLY.82.1.0006 v $xiirc/POLY.82.1.0007 v $xiirc/POLY.82.1.0008 v $xiirc/POLY.82.1.0009 v $xiirc/POLY.82.1.0010 v $xiirc/POLY.82.1.0011 v $xiirc/POLY.82.1.0012 v $xiirc/POLY.82.1.0013 v $xiirc/POLY.82.1.0014 v $xiirc/POLY.82.1.0015 v $xiirc/POLY.82.1.0016 v $xiirc/POLY.82.2.0001 v $xiirc/POLY.82.2.0002 v $xiirc/POLY.82.2.0003 v $xiirc/POLY.82.2.0004 v $xiirc/POLY.82.2.0005 v $xiirc/POLY.82.2.0006 v $xiirc/POLY.82.2.0007 v $xiirc/POLY.82.2.0008 v $xiirc/POLY.82.2.0009 v $xiirc/POLY.82.2.0010 v $xiirc/POLY.82.2.0011 v $xiirc/POLY.82.2.0012 v $xiirc/POLY.82.2.0013 v $xiirc/POLY.82.2.0014 v $xiirc/POLY.82.2.0015 v $xiirc/POLY.82.2.0016 v $xiac/POLY.82$R16 p=$xiP/cercle.35 v $xiac/POLY.82$R64 p=$xiP/cercle.35 v $xiirc/POLY.82.1 v $xiirc/POLY.82.2 p=$xiP/enfer.03 v $xiirc/POLY.82.2 p=$xiP/trou_noir.13 v $xiirc/POLY.82.3 v $xiirc/POLY.82.4 p=$xiP/enfer.03 v $xiirc/POLY.82.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "belleville" puis "villiers" pour 'v $xiac/POLY.82$R16'-) par : # # # # # # :Debut_listG_POLY_82: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.81 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.82 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.83 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageF $_____ImageT1.f # # $Z setenv _____ImageFS $_____ImageT1.fs # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c standard=FAUX # # $c iterations=4 # # $c mx=0.05 my=0.05 mz=0.05 # # $c Z=%.16f # # $c R=$_____ImageF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageF.%04d # # $c origine=2 extremite=12 # # $c R=$_____ImageF.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ 0.58 # # $c #define EJ 0.0 # # $c # # $c #define OK 0.58 # # $c #define EK 0.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=1 # # $c ValiderAxes=FAUX # # $c xbg=-1 ybg=-1 # # $c xhd=+1 yhd=+1 # # $c ROTATION_OY=%f # # $c r=0 i=1 j=0 k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=$_____ImageF.%04d # # $c ApTheta=5 # # $c ApPhi=8 # # $c ApAlpha=11 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=6 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,p # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.82%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.82%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.82.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.82.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.82.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.82.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.82.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.82.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.82.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.82.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.82.1 \ # # $Z R=$xiirc/POLY.82.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.82.3 \ # # $Z R=$xiirc/POLY.82.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.82.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.82.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/acces$X # # $c A=$_____ImageF.%04d # # $c standard=FAUX zero=FAUX # # $c R=$_____ImageFS.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageFS # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # $Z set _____animation=$xiac/POLY.82 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # # # :Fin_listG_POLY_82: # # # # # # Cette animation propose une rotation autour de l'axe 'OY' de 'v $xiirc/POLY.22.1' et # # de 'v $xiirc/POLY.22.2'. # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication de degre variable (AeRho=Frac3D(x,y,z),ApTheta=5,ApPhi=8,ApAlpha=11) et le # # polynome P(q)=1.q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.92.1$R16 v $xiac/POLY.92.2$R16 v $xiirc/POLY.92.1.0001 v $xiirc/POLY.92.1.0002 v $xiirc/POLY.92.1.0003 v $xiirc/POLY.92.1.0004 v $xiirc/POLY.92.1.0005 v $xiirc/POLY.92.1.0006 v $xiirc/POLY.92.1.0007 v $xiirc/POLY.92.1.0008 v $xiirc/POLY.92.1.0009 v $xiirc/POLY.92.1.0010 v $xiirc/POLY.92.1.0011 v $xiirc/POLY.92.1.0012 v $xiirc/POLY.92.1.0013 v $xiirc/POLY.92.1.0014 v $xiirc/POLY.92.1.0015 v $xiirc/POLY.92.1.0016 v $xiirc/POLY.92.2.0001 v $xiirc/POLY.92.2.0002 v $xiirc/POLY.92.2.0003 v $xiirc/POLY.92.2.0004 v $xiirc/POLY.92.2.0005 v $xiirc/POLY.92.2.0006 v $xiirc/POLY.92.2.0007 v $xiirc/POLY.92.2.0008 v $xiirc/POLY.92.2.0009 v $xiirc/POLY.92.2.0010 v $xiirc/POLY.92.2.0011 v $xiirc/POLY.92.2.0012 v $xiirc/POLY.92.2.0013 v $xiirc/POLY.92.2.0014 v $xiirc/POLY.92.2.0015 v $xiirc/POLY.92.2.0016 v $xiac/POLY.92$R16 p=$xiP/cercle.35 v $xiac/POLY.92$R64 p=$xiP/cercle.35 v $xiirc/POLY.92.1 v $xiirc/POLY.92.2 p=$xiP/enfer.03 v $xiirc/POLY.92.2 p=$xiP/trou_noir.13 v $xiirc/POLY.92.3 v $xiirc/POLY.92.4 p=$xiP/enfer.03 v $xiirc/POLY.92.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_POLY_92: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.91 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.92 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.93 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageF $_____ImageT1.f # # $Z setenv _____ImageFS $_____ImageT1.fs # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c standard=FAUX # # $c iterations=4 # # $c mx=0.05 my=0.05 mz=0.05 # # $c Z=%.16f # # $c R=$_____ImageF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" p14=FAUX # # # # $Z FilSTmpE FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageF.%04d # # $c origine=2 extremite=4 # # $c R=$_____ImageF.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.0 # # $c #define EJ +1.0 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=1 # # $c ValiderAxes=FAUX # # $c xbg=-1.10 ybg=-1.10 # # $c xhd=+1.10 yhd=+1.10 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=$_____ImageF.%04d # # $c ApTheta=2 # # $c ApPhi=3 # # $c ApAlpha=4 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=10 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,p # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.92%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.92%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.92.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.92.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.92.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.92.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.92.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.92.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.92.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.92.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.92.1 \ # # $Z R=$xiirc/POLY.92.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.92.3 \ # # $Z R=$xiirc/POLY.92.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.92.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.92.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $c #include <stdio.h> # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/acces$X # # $c A=$_____ImageF.%04d # # $c standard=FAUX zero=FAUX # # $c R=$_____ImageFS.%04d # # $c $formatI\n" # # $c ,n # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z set _____images=$_____ImageFS # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # $Z set _____animation=$xiac/POLY.92 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # # # :Fin_listG_POLY_92: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication de degre variable (AeRho=Frac3D(x,y,z),ApTheta=2,ApPhi=3,ApAlpha=4) et le # # polynome P(q)=1.q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.A2.1$R16 v $xiac/POLY.A2.2$R16 v $xiirc/POLY.A2.1.0001 v $xiirc/POLY.A2.1.0002 v $xiirc/POLY.A2.1.0003 v $xiirc/POLY.A2.1.0004 v $xiirc/POLY.A2.1.0005 v $xiirc/POLY.A2.1.0006 v $xiirc/POLY.A2.1.0007 v $xiirc/POLY.A2.1.0008 v $xiirc/POLY.A2.1.0009 v $xiirc/POLY.A2.1.0010 v $xiirc/POLY.A2.1.0011 v $xiirc/POLY.A2.1.0012 v $xiirc/POLY.A2.1.0013 v $xiirc/POLY.A2.1.0014 v $xiirc/POLY.A2.1.0015 v $xiirc/POLY.A2.1.0016 v $xiirc/POLY.A2.2.0001 v $xiirc/POLY.A2.2.0002 v $xiirc/POLY.A2.2.0003 v $xiirc/POLY.A2.2.0004 v $xiirc/POLY.A2.2.0005 v $xiirc/POLY.A2.2.0006 v $xiirc/POLY.A2.2.0007 v $xiirc/POLY.A2.2.0008 v $xiirc/POLY.A2.2.0009 v $xiirc/POLY.A2.2.0010 v $xiirc/POLY.A2.2.0011 v $xiirc/POLY.A2.2.0012 v $xiirc/POLY.A2.2.0013 v $xiirc/POLY.A2.2.0014 v $xiirc/POLY.A2.2.0015 v $xiirc/POLY.A2.2.0016 v $xiirc/POLY.A2.1 v $xiirc/POLY.A2.2 p=$xiP/enfer.03 v $xiirc/POLY.A2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.A2.3 v $xiirc/POLY.A2.4 p=$xiP/enfer.03 v $xiirc/POLY.A2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # # # :Debut_listG_POLY_A2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.A1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.A2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.A3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.0 # # $c #define EJ +1.0 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=1 # # $c ValiderAxes=FAUX # # $c xbg=-1.10 ybg=-1.10 # # $c xhd=+1.10 yhd=+1.10 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=3 # # $c ApAlpha=4 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=10 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.A2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.A2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.A2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.A2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.A2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.A2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.A2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.A2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.A2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.A2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.A2.1 \ # # $Z R=$xiirc/POLY.A2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.A2.3 \ # # $Z R=$xiirc/POLY.A2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.A2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.A2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_A2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication de degre variable (AeRho=2,ApTheta=2,ApPhi=3,ApAlpha=4) et le polynome # # P(q)=1.q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.B2.1$R16 v $xiac/POLY.B2.2$R16 v $xiirc/POLY.B2.1.0001 v $xiirc/POLY.B2.1.0002 v $xiirc/POLY.B2.1.0003 v $xiirc/POLY.B2.1.0004 v $xiirc/POLY.B2.1.0005 v $xiirc/POLY.B2.1.0006 v $xiirc/POLY.B2.1.0007 v $xiirc/POLY.B2.1.0008 v $xiirc/POLY.B2.1.0009 v $xiirc/POLY.B2.1.0010 v $xiirc/POLY.B2.1.0011 v $xiirc/POLY.B2.1.0012 v $xiirc/POLY.B2.1.0013 v $xiirc/POLY.B2.1.0014 v $xiirc/POLY.B2.1.0015 v $xiirc/POLY.B2.1.0016 v $xiirc/POLY.B2.2.0001 v $xiirc/POLY.B2.2.0002 v $xiirc/POLY.B2.2.0003 v $xiirc/POLY.B2.2.0004 v $xiirc/POLY.B2.2.0005 v $xiirc/POLY.B2.2.0006 v $xiirc/POLY.B2.2.0007 v $xiirc/POLY.B2.2.0008 v $xiirc/POLY.B2.2.0009 v $xiirc/POLY.B2.2.0010 v $xiirc/POLY.B2.2.0011 v $xiirc/POLY.B2.2.0012 v $xiirc/POLY.B2.2.0013 v $xiirc/POLY.B2.2.0014 v $xiirc/POLY.B2.2.0015 v $xiirc/POLY.B2.2.0016 v $xiirc/POLY.B2.1 v $xiirc/POLY.B2.2 p=$xiP/enfer.03 v $xiirc/POLY.B2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.B2.3 v $xiirc/POLY.B2.4 p=$xiP/enfer.03 v $xiirc/POLY.B2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "maubert"-) par : # # # # # # :Debut_listG_POLY_B2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.B1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.B2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.B3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.0 # # $c #define EJ +1.0 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=1 # # $c ValiderAxes=FAUX # # $c xbg=-1.10 ybg=-1.10 # # $c xhd=+1.10 yhd=+1.10 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=10 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.B2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.B2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.B2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.B2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.B2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.B2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.B2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.B2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.B2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.B2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.B2.1 \ # # $Z R=$xiirc/POLY.B2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.B2.3 \ # # $Z R=$xiirc/POLY.B2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.B2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.B2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_B2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication du second degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1.q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.C2.1$R16 v $xiac/POLY.C2.2$R16 v $xiirc/POLY.C2.1.0001 v $xiirc/POLY.C2.1.0002 v $xiirc/POLY.C2.1.0003 v $xiirc/POLY.C2.1.0004 v $xiirc/POLY.C2.1.0005 v $xiirc/POLY.C2.1.0006 v $xiirc/POLY.C2.1.0007 v $xiirc/POLY.C2.1.0008 v $xiirc/POLY.C2.1.0009 v $xiirc/POLY.C2.1.0010 v $xiirc/POLY.C2.1.0011 v $xiirc/POLY.C2.1.0012 v $xiirc/POLY.C2.1.0013 v $xiirc/POLY.C2.1.0014 v $xiirc/POLY.C2.1.0015 v $xiirc/POLY.C2.1.0016 v $xiirc/POLY.C2.2.0001 v $xiirc/POLY.C2.2.0002 v $xiirc/POLY.C2.2.0003 v $xiirc/POLY.C2.2.0004 v $xiirc/POLY.C2.2.0005 v $xiirc/POLY.C2.2.0006 v $xiirc/POLY.C2.2.0007 v $xiirc/POLY.C2.2.0008 v $xiirc/POLY.C2.2.0009 v $xiirc/POLY.C2.2.0010 v $xiirc/POLY.C2.2.0011 v $xiirc/POLY.C2.2.0012 v $xiirc/POLY.C2.2.0013 v $xiirc/POLY.C2.2.0014 v $xiirc/POLY.C2.2.0015 v $xiirc/POLY.C2.2.0016 v $xiirc/POLY.C2.1 v $xiirc/POLY.C2.2 p=$xiP/enfer.03 v $xiirc/POLY.C2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.C2.3 v $xiirc/POLY.C2.4 p=$xiP/enfer.03 v $xiirc/POLY.C2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # # # :Debut_listG_POLY_C2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.C1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.C2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.C3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.00 # # $c #define EJ +1.00 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=1 # # $c ValiderAxes=FAUX # # $c xbg=-1.00 ybg=-1.00 # # $c xhd=+1.00 yhd=+1.00 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0.5 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=10 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.C2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.C2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.C2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.C2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.C2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.C2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.C2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.C2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.C2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.C2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.C2.1 \ # # $Z R=$xiirc/POLY.C2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.C2.3 \ # # $Z R=$xiirc/POLY.C2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.C2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.C2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_C2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Mandelbrot-Julia calcule avec # # une "fausse" multiplication du second degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1.q+A+C/2 avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.D2.1$R16 v $xiac/POLY.D2.2$R16 v $xiirc/POLY.D2.1.0001 v $xiirc/POLY.D2.1.0002 v $xiirc/POLY.D2.1.0003 v $xiirc/POLY.D2.1.0004 v $xiirc/POLY.D2.1.0005 v $xiirc/POLY.D2.1.0006 v $xiirc/POLY.D2.1.0007 v $xiirc/POLY.D2.1.0008 v $xiirc/POLY.D2.1.0009 v $xiirc/POLY.D2.1.0010 v $xiirc/POLY.D2.1.0011 v $xiirc/POLY.D2.1.0012 v $xiirc/POLY.D2.1.0013 v $xiirc/POLY.D2.1.0014 v $xiirc/POLY.D2.1.0015 v $xiirc/POLY.D2.1.0016 v $xiirc/POLY.D2.2.0001 v $xiirc/POLY.D2.2.0002 v $xiirc/POLY.D2.2.0003 v $xiirc/POLY.D2.2.0004 v $xiirc/POLY.D2.2.0005 v $xiirc/POLY.D2.2.0006 v $xiirc/POLY.D2.2.0007 v $xiirc/POLY.D2.2.0008 v $xiirc/POLY.D2.2.0009 v $xiirc/POLY.D2.2.0010 v $xiirc/POLY.D2.2.0011 v $xiirc/POLY.D2.2.0012 v $xiirc/POLY.D2.2.0013 v $xiirc/POLY.D2.2.0014 v $xiirc/POLY.D2.2.0015 v $xiirc/POLY.D2.2.0016 v $xiirc/POLY.D2.1 v $xiirc/POLY.D2.2 p=$xiP/enfer.03 v $xiirc/POLY.D2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.D2.3 v $xiirc/POLY.D2.4 p=$xiP/enfer.03 v $xiirc/POLY.D2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "villiers"-) par : # # # # # # :Debut_listG_POLY_D2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____ImageT1=$xTV/POLY.D1 # # $Z set _____ImageTd=$_____ImageT1.d # # $Z set _____ImageT2=$xTV/POLY.D2 # # $Z set _____ImageT22=$_____ImageT2.2 # # $Z set _____ImageT23=$_____ImageT2.3 # # $Z set _____ImageT3=$xTV/POLY.D3 # # $Z set _____ImageZ=$xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0002 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.00 # # $c #define EJ +1.00 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=2 # # $c ValiderAxes=FAUX # # $c xbg=-1.00 ybg=-1.00 # # $c xhd=+1.00 yhd=+1.00 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=10 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI\n" # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ); # # $c } # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.D2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.D2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.D2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.D2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.D2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.D2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.D2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.D2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.D2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.D2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.D2.1 \ # # $Z R=$xiirc/POLY.D2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.D2.3 \ # # $Z R=$xiirc/POLY.D2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.D2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.D2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_D2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication du second degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1.q+q.q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.E2.1$R16 v $xiac/POLY.E2.2$R16 v $xiirc/POLY.E2.1.0001 v $xiirc/POLY.E2.1.0002 v $xiirc/POLY.E2.1.0003 v $xiirc/POLY.E2.1.0004 v $xiirc/POLY.E2.1.0005 v $xiirc/POLY.E2.1.0006 v $xiirc/POLY.E2.1.0007 v $xiirc/POLY.E2.1.0008 v $xiirc/POLY.E2.1.0009 v $xiirc/POLY.E2.1.0010 v $xiirc/POLY.E2.1.0011 v $xiirc/POLY.E2.1.0012 v $xiirc/POLY.E2.1.0013 v $xiirc/POLY.E2.1.0014 v $xiirc/POLY.E2.1.0015 v $xiirc/POLY.E2.1.0016 v $xiirc/POLY.E2.2.0001 v $xiirc/POLY.E2.2.0002 v $xiirc/POLY.E2.2.0003 v $xiirc/POLY.E2.2.0004 v $xiirc/POLY.E2.2.0005 v $xiirc/POLY.E2.2.0006 v $xiirc/POLY.E2.2.0007 v $xiirc/POLY.E2.2.0008 v $xiirc/POLY.E2.2.0009 v $xiirc/POLY.E2.2.0010 v $xiirc/POLY.E2.2.0011 v $xiirc/POLY.E2.2.0012 v $xiirc/POLY.E2.2.0013 v $xiirc/POLY.E2.2.0014 v $xiirc/POLY.E2.2.0015 v $xiirc/POLY.E2.2.0016 v $xiirc/POLY.E2.1 v $xiirc/POLY.E2.2 p=$xiP/enfer.03 v $xiirc/POLY.E2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.E2.3 v $xiirc/POLY.E2.4 p=$xiP/enfer.03 v $xiirc/POLY.E2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "villiers"-) par : # # # # # # :Debut_listG_POLY_E2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/POLY.E1 # # $Z setenv _____ImageTd $_____ImageT1.d # # $Z setenv _____ImageT2 $xTV/POLY.E2 # # $Z setenv _____ImageT22 $_____ImageT2.2 # # $Z setenv _____ImageT23 $_____ImageT2.3 # # $Z setenv _____ImageT3 $xTV/POLY.E3 # # $Z setenv _____ImageZ $xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=-1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0002 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=-1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0003 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.00 # # $c #define EJ +1.00 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("FilSTmpB FPoLyNoMe\n"); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("echo %c$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=3 # # $c ValiderAxes=FAUX # # $c xbg=-1.00 ybg=-1.00 # # $c xhd=+1.00 yhd=+1.00 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=6 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI%c # # $c >> $FPoLyNoMe\n" # # $c ,'\'' # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ,'\'' # # $c ); # # $c } # # $c # # $c printf("ro $FPoLyNoMe\n"); # # $c printf("$xcg/parallele.1N$X commande=%c$xcs/Linda$vv$Z # # $c $FPoLyNoMe%c p14=FAUX\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c # # $c printf("FilSTmpE FPoLyNoMe\n"); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.E2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.E2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.E2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.E2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.E2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.E2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.E2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.E2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.E2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.E2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.E2.1 \ # # $Z R=$xiirc/POLY.E2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.E2.3 \ # # $Z R=$xiirc/POLY.E2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.E2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.E2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_E2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication du 2x3=sixieme degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1-1.q+q.q-q*q*q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.F2.1$R16 v $xiac/POLY.F2.2$R16 v $xiirc/POLY.F2.1.0001 v $xiirc/POLY.F2.1.0002 v $xiirc/POLY.F2.1.0003 v $xiirc/POLY.F2.1.0004 v $xiirc/POLY.F2.1.0005 v $xiirc/POLY.F2.1.0006 v $xiirc/POLY.F2.1.0007 v $xiirc/POLY.F2.1.0008 v $xiirc/POLY.F2.1.0009 v $xiirc/POLY.F2.1.0010 v $xiirc/POLY.F2.1.0011 v $xiirc/POLY.F2.1.0012 v $xiirc/POLY.F2.1.0013 v $xiirc/POLY.F2.1.0014 v $xiirc/POLY.F2.1.0015 v $xiirc/POLY.F2.1.0016 v $xiirc/POLY.F2.2.0001 v $xiirc/POLY.F2.2.0002 v $xiirc/POLY.F2.2.0003 v $xiirc/POLY.F2.2.0004 v $xiirc/POLY.F2.2.0005 v $xiirc/POLY.F2.2.0006 v $xiirc/POLY.F2.2.0007 v $xiirc/POLY.F2.2.0008 v $xiirc/POLY.F2.2.0009 v $xiirc/POLY.F2.2.0010 v $xiirc/POLY.F2.2.0011 v $xiirc/POLY.F2.2.0012 v $xiirc/POLY.F2.2.0013 v $xiirc/POLY.F2.2.0014 v $xiirc/POLY.F2.2.0015 v $xiirc/POLY.F2.2.0016 v $xiirc/POLY.F2.1 v $xiirc/POLY.F2.2 p=$xiP/enfer.03 v $xiirc/POLY.F2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.F2.3 v $xiirc/POLY.F2.4 p=$xiP/enfer.03 v $xiirc/POLY.F2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "villiers"-) par : # # # # # # :Debut_listG_POLY_F2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/POLY.F1 # # $Z setenv _____ImageTd $_____ImageT1.d # # $Z setenv _____ImageT2 $xTV/POLY.F2 # # $Z setenv _____ImageT22 $_____ImageT2.2 # # $Z setenv _____ImageT23 $_____ImageT2.3 # # $Z setenv _____ImageT3 $xTV/POLY.F3 # # $Z setenv _____ImageZ $xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=0 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=-1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0002 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0003 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.00 # # $c #define EJ +1.00 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("FilSTmpB FPoLyNoMe\n"); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("echo %c$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=3 # # $c ValiderAxes=FAUX # # $c xbg=-1.00 ybg=-1.00 # # $c xhd=+1.00 yhd=+1.00 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=6 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI%c # # $c >> $FPoLyNoMe\n" # # $c ,'\'' # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ,'\'' # # $c ); # # $c } # # $c # # $c printf("ro $FPoLyNoMe\n"); # # $c printf("$xcg/parallele.1N$X commande=%c$xcs/Linda$vv$Z # # $c $FPoLyNoMe%c p14=FAUX\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c # # $c printf("FilSTmpE FPoLyNoMe\n"); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.F2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.F2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.F2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.F2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.F2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.F2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.F2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.F2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.F2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.F2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.F2.1 \ # # $Z R=$xiirc/POLY.F2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.F2.3 \ # # $Z R=$xiirc/POLY.F2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.F2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.F2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_F2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication du 2x3=sixieme degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1.q-q.q+q*q*q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.G2.1$R16 v $xiac/POLY.G2.2$R16 v $xiirc/POLY.G2.1.0001 v $xiirc/POLY.G2.1.0002 v $xiirc/POLY.G2.1.0003 v $xiirc/POLY.G2.1.0004 v $xiirc/POLY.G2.1.0005 v $xiirc/POLY.G2.1.0006 v $xiirc/POLY.G2.1.0007 v $xiirc/POLY.G2.1.0008 v $xiirc/POLY.G2.1.0009 v $xiirc/POLY.G2.1.0010 v $xiirc/POLY.G2.1.0011 v $xiirc/POLY.G2.1.0012 v $xiirc/POLY.G2.1.0013 v $xiirc/POLY.G2.1.0014 v $xiirc/POLY.G2.1.0015 v $xiirc/POLY.G2.1.0016 v $xiirc/POLY.G2.2.0001 v $xiirc/POLY.G2.2.0002 v $xiirc/POLY.G2.2.0003 v $xiirc/POLY.G2.2.0004 v $xiirc/POLY.G2.2.0005 v $xiirc/POLY.G2.2.0006 v $xiirc/POLY.G2.2.0007 v $xiirc/POLY.G2.2.0008 v $xiirc/POLY.G2.2.0009 v $xiirc/POLY.G2.2.0010 v $xiirc/POLY.G2.2.0011 v $xiirc/POLY.G2.2.0012 v $xiirc/POLY.G2.2.0013 v $xiirc/POLY.G2.2.0014 v $xiirc/POLY.G2.2.0015 v $xiirc/POLY.G2.2.0016 v $xiirc/POLY.G2.1 v $xiirc/POLY.G2.2 p=$xiP/enfer.03 v $xiirc/POLY.G2.2 p=$xiP/trou_noir.13 v $xiirc/POLY.G2.3 v $xiirc/POLY.G2.4 p=$xiP/enfer.03 v $xiirc/POLY.G2.4 p=$xiP/trou_noir.13 # Generee (sur '$CMAP28' -ex "grenelle"-) par : # # # # # # :Debut_listG_POLY_G2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=128 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/POLY.G1 # # $Z setenv _____ImageTd $_____ImageT1.d # # $Z setenv _____ImageT2 $xTV/POLY.G2 # # $Z setenv _____ImageT22 $_____ImageT2.2 # # $Z setenv _____ImageT23 $_____ImageT2.3 # # $Z setenv _____ImageT3 $xTV/POLY.G3 # # $Z setenv _____ImageZ $xTV/Z_BUFFER.v2 # # # # $Z setenv _____ImageP $_____ImageT1.p # # # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0000 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=-1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=+1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0002 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z v=-1 \ # # $Z standard=FAUX \ # # $Z R=$_____ImageP.0003 \ # # $Z $formatI # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set PaRaMA="$K_VIDE" # # $Z set PaRaMA="$PaRaMA"" A=$_____ImageTd." # # $Z set PaRaMA="$PaRaMA"" standard=FAUX" # # $Z set PaRaMA="$PaRaMA"" premiere=$cPremiere" # # $Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`" # # $Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI" # # $Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI" # # $Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI" # # $Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI" # # $Z set PaRaMA="$PaRaMA"" speculaire=2" # # $Z set PaRaMA="$PaRaMA"" depth_cueing=0.3" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" points=4" # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define P0 cPremiere # # $c #define P cDerniere # # $c # # $c #define ANGLE0 0 # # $c #define ANGLEN 6.283185307179586 # # $c # # $c #define OJ -1.00 # # $c #define EJ +1.00 # # $c # # $c #define OK 0 # # $c #define EK 0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c int p; # # $c # # $c double angle=((ANGLEN*(n-N0))+(ANGLE0*(N-n)))/(N-N0); # # $c # # $c printf("FilSTmpB FPoLyNoMe\n"); # # $c # # $c for (p=P0 ; p<=P ; p++) # # $c { # # $c double J=((EJ*(p-P0))+(OJ*(P-p)))/(P-P0); # # $c double K=((EK*(p-P0))+(OK*(P-p)))/(P-N0); # # $c # # $c printf("echo %c$xrc/polynome.41$X # # $c images=1 # # $c A=$_____ImageP. # # $c premiereA=0 # # $c Zmin=0 Zmax=3 # # $c ValiderAxes=FAUX # # $c pep=-1 # # $c xbg=-1.00 ybg=-1.00 # # $c xhd=+1.00 yhd=+1.00 # # $c ROTATION_OY=%f # # $c r=-0.5815147625160462 # # $c i=+0.6358885017421603 # # $c j=0 # # $c k=0 # # $c pondPA=1 # # $c pondPC=0 # # $c fdai=VRAI # # $c pnt=VRAI # # $c AeRho=2 # # $c ApTheta=2 # # $c ApPhi=2 # # $c ApAlpha=2 # # $c J=%+f # # $c K=%+f # # $c appartenance=VRAI # # $c iterations=6 # # $c R=$_____ImageT1.%04d # # $c chiffresR=0 # # $c $formatI%c # # $c >> $FPoLyNoMe\n" # # $c ,'\'' # # $c ,angle # # $c ,J # # $c ,K # # $c ,p # # $c ,'\'' # # $c ); # # $c } # # $c # # $c printf("ro $FPoLyNoMe\n"); # # $c printf("$xcg/parallele.1N$X commande=%c$xcs/Linda$vv$Z # # $c $FPoLyNoMe%c p14=FAUX\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c # # $c printf("FilSTmpE FPoLyNoMe\n"); # # $c # # $c printf("$xci/densite_3D.11$X # # $c A=$_____ImageT1. # # $c premiere=$cPremiere # # $c standard=VRAI # # $c Zmin=`calcul $cPremiere-$cPremiere` # # $c Zmax=`calcul $cDerniere-$cPremiere` # # $c dx=2 dy=2 dz=2 # # $c R=$_____ImageTd. # # $c $formatI\n" # # $c ); # # $c # # $c printf("set exec_aR=%cpX=1 pY=0 pZ=0 # # $c ZBuffer=VRAI Z=$_____ImageZ%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("set exec_aV='pX=0 pY=1 pZ=0'\n"); # # $c printf("set exec_aB='pX=0 pY=0 pZ=1'\n"); # # $c # # $c printf("execRVB %c$xci/accumule.41$X # # $c $PaRaMA # # $c ROTATION_OX=+0.3 # # $c R=$xTV/POLY.G2%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$xTV/POLY.G2%%s # # $c $PaRaMC # # $c R=$_____ImageT2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/normalise.01$X # # $c A=$_____ImageZ # # $c extrema=FAUX # # $c minimum=0 maximum=1 # # $c $formatI | # # $c $xci/acces$X # # $c standard=FAUX zero=FAUX # # $c $formatI | # # $c $xci/complement$X # # $c $formatI | # # $c $xci/vraies_C$X # # $c p=$xiP/gris.05 # # $c R=$xTV/BRUME # # $c $formatI\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/cache$X # # $c A=$BLANC # # $c M=$_____ImageT2.%04d%%s # # $c anti_aliasing=FAUX # # $c R=$_____ImageT22%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c # # $c printf("$xci/vitre.53$Z # # $c $_____ImageT22 # # $c $xTV/BRUME # # $c $_____ImageT23\n" # # $c ); # # $c # # $c printf("execRVB %c$xci/convol.01$X # # $c A=$_____ImageT23%%s # # $c points=9 # # $c circulaire=VRAI # # $c circulaire_optimale=VRAI # # $c R=$_____ImageT3.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.G2.1.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT3.%04d%%s # # $c R=$xiirc/POLY.G2.2.%04d%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n==N0) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.G2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.G2.1%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.G2.1%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c # # $c for (n=N ; n>=N0 ; n--) # # $c { # # $c if (n==N) # # $c { # # $c printf("execRVB %c$xci/neutre$X # # $c A=$_____ImageT2.%04d%%s # # $c R=$xiirc/POLY.G2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c else # # $c { # # $c printf("execRVB %c$xci/cache$X # # $c M=$_____ImageT2.%04d%%s # # $c A=$xiirc/POLY.G2.3%%s # # $c anti_aliaser=VRAI # # $c R=$xiirc/POLY.G2.3%%s # # $c $formatI%c\n" # # $c ,'"' # # $c ,n # # $c ,'"' # # $c ); # # $c } # # $c } # # $c } # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.G2.1 \ # # $Z R=$xiirc/POLY.G2.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirc/POLY.G2.3 \ # # $Z R=$xiirc/POLY.G2.4 \ # # $Z $formatI # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiac/POLY.G2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT3 # # $Z set _____animation=$xiac/POLY.G2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # # # :Fin_listG_POLY_G2: # # # # # # Montre la rotation quadri-dimensionnelle d'un ensemble de Julia calcule avec une "fausse" # # multiplication du 2x3=sixieme degre (AeRho=ApTheta=ApPhi=ApAlpha=2) et le polynome # # P(q)=1/q-1+1.q-q*q+A avec A=(-0.5815147625160462,+0.6358885017421603,0,0). # v $xiac/POLY.I22$R16 p=$xiP/cercle.35 v $xiac/POLY.I22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.I2.1'... # v $xiac/POLY.J22$R16 p=$xiP/cercle.35 v $xiac/POLY.J22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.J2.1'... # v $xiac/POLY.K22$R16 p=$xiP/cercle.35 v $xiac/POLY.K22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.K2.1'... # v $xiac/POLY.L22$R16 p=$xiP/cercle.35 v $xiac/POLY.L22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.L2.1'... # v $xiac/POLY.M22$R16 p=$xiP/cercle.35 v $xiac/POLY.M22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.M2.1'... # # # # On notera que l'on ne voit pratiquement pas de points blancs. C'est en fait logique # # car ils correspondent exactement au maximum (=8) et que celui-ci n'est atteint qu'en # # tres peu de points du champ fractal tridimensionnel. Pour bien faire il aurait mieux # # valu utiliser 8.9999 a la place de 8, ce qui a ete fait avec 'v $xiac/POLY.M42$R16'... # v $xiac/POLY.M32$R16 p=$xiP/cercle.35 v $xiac/POLY.M32$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.M3.1'... # v $xiac/POLY.M42$R16 p=$xiP/cercle.35 v $xiac/POLY.M42$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.M4.1'... # v $xiac/POLY.N22$R16 p=$xiP/cercle.35 v $xiac/POLY.N22$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.N2.1'... # # # # On notera que l'on ne voit pratiquement pas de points blancs. C'est en fait logique # # car ils correspondent exactement au maximum (=6) et que celui-ci n'est atteint qu'en # # tres peu de points du champ fractal tridimensionnel. Pour bien faire il aurait mieux # # valu utiliser 6.9999 a la place de 6, ce qui a ete fait avec 'v $xiac/POLY.N42$R16'... # v $xiac/POLY.N32$R16 p=$xiP/cercle.35 v $xiac/POLY.N32$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.N3.1'... # v $xiac/POLY.N42$R16 p=$xiP/cercle.35 v $xiac/POLY.N42$R64 p=$xiP/cercle.35 # Champ de definition du polynome utilise pour 'v $xiirc/POLY.N4.1'... # v $xiac/RACN.13$R16 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_RACN_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z set _____images=$xTV/RACN.23 # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # $c int iterations=1; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/racN.01$X # # $c images=1 # # $c exposant=3 # # $c iterations=%d # # $c chiffres=0 # # $c R=$_____images.%04d # # $c $formatI\n" # # $c ,iterations,n # # $c ); # # # # $c iterations++; # # $c } # # $c } # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/rac3.11 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # # # $Z set _____animation=$xiac/RACN.13 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_RACN_13: # # # # # # Cette image montre la convergence lors du calcul des racines de l'unite dans le plan # # complexe (de 1 a 16 iterations). # v $xiac/RAQN.03$R16 p=$xiP/arc_ciel.03 v $xiac/RAQN.03$R16 p=$xiP/dentscie.01 v $xiac/RAQN.03$R16 p=$xiP/fract.02$Fi v $xiac/RAQN.03$R16 p=$xiP/rac3.11 v $xiac/RAQN.03$R16 p=$xiP/trou_noir.95 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_RAQN_03: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$Premiere d=$Derniere \ # # $Z vD=0 vA=0.15 \ # # $Z cubique=FAUX \ # # $Z > $xT/COMPOSANTE_J # # # # $Z set _____images=$xTV/RAQN.03 # # # # $Z $xrc/racN.41$X \ # # $Z images=$Nimages \ # # $Z exposant=3 \ # # $Z iterations=8 \ # # $Z COMPOSANTE_J=$xT/COMPOSANTE_J \ # # $Z COMPOSANTE_K=0 \ # # $Z ponderationT=1 \ # # $Z ponderationP=0 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z set _____animation=$xiac/RAQN.03 # # $m4 _____include(_____xivPdf_09_2/.ITER.1.12._____U) # # # # :Fin_listG_RAQN_03: # # # # # # Cette image montre le calcul des racines troisiemes de l'unite dans les quaternions en # # partant du plan complexe ("vD=0"), puis en progressant le long de la 'COMPOSANTE_J', le # # tout avec peu d'iterations... # v $xiac/RAQN.13$R16 p=$xiP/arc_ciel.03 v $xiac/RAQN.13$R16 p=$xiP/dentscie.01 v $xiac/RAQN.13$R16 p=$xiP/fract.02$Fi v $xiac/RAQN.13$R16 p=$xiP/rac3.11 v $xiac/RAQN.13$R16 p=$xiP/trou_noir.95 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_RAQN_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$Premiere d=$Derniere \ # # $Z vD=0 vA=0.15 \ # # $Z cubique=FAUX \ # # $Z > $xT/COMPOSANTE_J # # # # $Z set _____images=$xTV/RAQN.13 # # # # $Z $xrc/racN.41$X \ # # $Z images=$Nimages \ # # $Z exposant=3 \ # # $Z iterations=8 \ # # $Z COMPOSANTE_J=$xT/COMPOSANTE_J \ # # $Z COMPOSANTE_K=0 \ # # $Z ponderationT=1 \ # # $Z ponderationP=0 \ # # $Z compatibilite_20061206=VRAI \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z set _____animation=$xiac/RAQN.13 # # $m4 _____include(_____xivPdf_09_2/.ITER.1.12._____U) # # # # :Fin_listG_RAQN_13: # # # # # # Cette image montre le calcul des racines troisiemes de l'unite dans les quaternions en # # partant du plan complexe ("vD=0"), puis en progressant le long de la 'COMPOSANTE_J', le # # tout avec peu d'iterations, en mode "compatibilite_20061206"... # v $xiac/RAQN.23$R16 v $xiirc/RAQN.23 p=$xiP/gris.01 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_RAQN_23: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$Premiere d=$Derniere \ # # $Z vD=0 vA=1 \ # # $Z cubique=FAUX \ # # $Z > $xT/COMPOSANTE_J # # # # $Z set _____images=$xTV/RAQN.23 # # # # $Z $xrc/racN.41$X \ # # $Z images=$Nimages \ # # $Z exposant=3 \ # # $Z iterations=32 \ # # $Z COMPOSANTE_J=$xT/COMPOSANTE_J \ # # $Z COMPOSANTE_K=0 \ # # $Z ponderationT=1 \ # # $Z ponderationP=0 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/rac3.11 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/RAQN.23 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/gradient.01$X # # $c A=$_____images.%04d # # $c points=25 # # $c R=$_____images.1.%04d # # $c $formatI\n" # # $c ,n,n # # $c ); # # $c } # # $c } # # # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z R=$xiirc/RAQN.23 \ # # $Z $formatI # # # # :Fin_listG_RAQN_23: # # # # # # Cette image montre le calcul des racines troisiemes de l'unite dans les quaternions en # # partant du plan complexe ("vD=0"), puis en progressant le long de la 'COMPOSANTE_J'. # v $xiac/RAQN.33$R16 v $xiac/RAQN.33$R64 v $xiirc/RAQN.33.1 p=$xiP/fractal.A2 v $xiirc/RAQN.33.2 p=$xiP/fractal.A2 v $xiirc/RAQN.33.3 p=$xiP/sepia.00 v $xiirc/RAQN.33.4 p=$xiP/cotes.31 v $xiirc/RAQN.33.4 p=$xiP/random.11$Fi v $xiirc/RAQN.33.4 p=$xiP/random.A5 v $xiirc/RAQN.33.4$m # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_RAQN_33: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=128 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$Premiere d=$Derniere \ # # $Z vD=0 vA=2 \ # # $Z cubique=FAUX \ # # $Z > $xT/COMPOSANTE_J # # # # $Z set _____images=$xTV/RAQN.33 # # # # $Z $xrc/racN.41$X \ # # $Z images=$Nimages \ # # $Z exposant=3 \ # # $Z iterations=32 \ # # $Z COMPOSANTE_J=$xT/COMPOSANTE_J \ # # $Z COMPOSANTE_K=0 \ # # $Z ponderationT=1 \ # # $Z ponderationP=0 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/rac3.11 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/RAQN.33 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/gradient.01$X # # $c A=$_____images.%04d # # $c points=25 # # $c R=$_____images.1.%04d # # $c $formatI\n" # # $c ,n,n # # $c ); # # $c } # # $c } # # # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z binariser=VRAI \ # # $Z R=$xiirc/RAQN.33.1 \ # # $Z $formatI # # # # $Z set NpOiNtS=`(calculNS pow(2*7+1,2)*$pi/4) | $SE -e 's/\..*$//'` # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/gradient.01$X # # $c A=$_____images.%04d # # $c points=$NpOiNtS # # $c circulaire=VRAI # # $c R=$_____images.2.%04d # # $c $formatI\n" # # $c ,n,n # # $c ); # # $c printf("$xci/solarise.11$Z # # $c $_____images.2.%04d # # $c $_____images.3.%04d # # $c $GRIS_1\n" # # $c ,n,n # # $c ); # # $c } # # $c } # # # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.2. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z binariser=VRAI \ # # $Z R=$xiirc/RAQN.33.2 \ # # $Z $formatI # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.3. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z seuil=$GRIS_1 \ # # $Z binariser=FAUX \ # # $Z R=$xiirc/RAQN.33.3 \ # # $Z $formatI # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____images.2. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z trx=0 try=0 \ # # $Z inverser=VRAI \ # # $Z maximum=VRAI \ # # $Z lineaire=VRAI depart=0.1 arrivee=1.0 \ # # $Z R=$xiirc/RAQN.33.4 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xiirc/RAQN.33.4 \ # # $Z p=$xiP/random.11$Fi \ # # $Z R=$xTV/RAQN.33.T \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xiirc/RAQN.33.4 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z R=$xTV/RAQN.33.S \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xTV/RAQN.33.S" # # $Z set PaRaM="$PaRaM"" standard=FAUX zero=FAUX" # # $Z set PaRaM="$PaRaM"" T=$xTV/RAQN.33.T%s" # # $Z set PaRaM="$PaRaM"" avion=VRAI" # # # # $Z execRVB $xci/montagne.01$X $PaRaM R=$xiirc/RAQN.33.4$m%s $formatI # # # # :Fin_listG_RAQN_33: # # # # # # Cette image montre le calcul des racines troisiemes de l'unite dans les quaternions en # # partant du plan complexe ("vD=0"), puis en progressant le long de la 'COMPOSANTE_J'. # # # # Tout cela a ete recalcule sous la forme 'v $xiac/RAQN.73$R16' (et les autres...), suite # # aux modifications 'v $ximcd/operator$FON 20230204091013'... # v $xiac/RAQN.73$R16 v $xiac/RAQN.73$R64 v $xiirc/RAQN.73.1 p=$xiP/fractal.A2 v $xiirc/RAQN.73.2 p=$xiP/fractal.A2 v $xiirc/RAQN.73.3 p=$xiP/sepia.00 v $xiirc/RAQN.73.4 p=$xiP/cotes.31 v $xiirc/RAQN.73.4 p=$xiP/random.11$Fi v $xiirc/RAQN.73.4 p=$xiP/random.A5 v $xiirc/RAQN.73.4$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_RAQN_73: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=128 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/valeurs_inte$X p=$Premiere d=$Derniere \ # # $Z vD=0 vA=2 \ # # $Z cubique=FAUX \ # # $Z > $xT/COMPOSANTE_J # # # # $Z set _____images=$xTV/RAQN.73 # # # # $Z $xrc/racN.41$X \ # # $Z images=$Nimages \ # # $Z exposant=3 \ # # $Z iterations=10 \ # # $Z COMPOSANTE_J=$xT/COMPOSANTE_J \ # # $Z COMPOSANTE_K=0 \ # # $Z ponderationT=1 \ # # $Z ponderationP=0 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z $DELETE $xT/COMPOSANTE_J # # # # $Z $xci/vraies_C.01$X \ # # $Z A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/rac3.11 \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/RAQN.73 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/gradient.01$X # # $c A=$_____images.%04d # # $c points=25 # # $c R=$_____images.1.%04d # # $c $formatI\n" # # $c ,n,n # # $c ); # # $c } # # $c } # # # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.1. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z binariser=VRAI \ # # $Z R=$xiirc/RAQN.73.1 \ # # $Z $formatI # # # # $Z set NpOiNtS=`(calculNS pow(2*7+1,2)*$pi/4) | $SE -e 's/\..*$//'` # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xci/gradient.01$X # # $c A=$_____images.%04d # # $c points=$NpOiNtS # # $c circulaire=VRAI # # $c R=$_____images.2.%04d # # $c $formatI\n" # # $c ,n,n # # $c ); # # $c printf("$xci/solarise.11$Z # # $c $_____images.2.%04d # # $c $_____images.3.%04d # # $c $GRIS_1\n" # # $c ,n,n # # $c ); # # $c } # # $c } # # # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.2. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z binariser=VRAI \ # # $Z R=$xiirc/RAQN.73.2 \ # # $Z $formatI # # $Z $xci/accumule.02$X \ # # $Z A=$_____images.3. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z inverser=VRAI \ # # $Z trx=0 try=0 \ # # $Z seuil=$GRIS_1 \ # # $Z binariser=FAUX \ # # $Z R=$xiirc/RAQN.73.3 \ # # $Z $formatI # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____images.2. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z trx=0 try=0 \ # # $Z inverser=VRAI \ # # $Z maximum=VRAI \ # # $Z lineaire=VRAI depart=0.1 arrivee=1.0 \ # # $Z R=$xiirc/RAQN.73.4 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xiirc/RAQN.73.4 \ # # $Z p=$xiP/random.11$Fi \ # # $Z R=$xTV/RAQN.73.T \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xiirc/RAQN.73.4 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z R=$xTV/RAQN.73.S \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xTV/RAQN.73.S" # # $Z set PaRaM="$PaRaM"" standard=FAUX zero=FAUX" # # $Z set PaRaM="$PaRaM"" T=$xTV/RAQN.73.T%s" # # $Z set PaRaM="$PaRaM"" avion=VRAI" # # # # $Z execRVB $xci/montagne.01$X $PaRaM R=$xiirc/RAQN.73.4$m%s $formatI # # # # :Fin_listG_RAQN_73: # # # # # # Cette image montre le calcul des racines troisiemes de l'unite dans les quaternions en # # partant du plan complexe ("vD=0"), puis en progressant le long de la 'COMPOSANTE_J'. # # # # Tout cela est formellement identique a {Debut_listG_RAQN_33,Debut_listG_RAQN_33} mais # # apres les modifications 'v $ximcd/operator$FON 20230204091013'... # v $xiac/TOUR.C.11$R16 v $xiac/TOUR.C.11$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 017724_017843 # # # # Ces images ont ete recalculees le 20060523154800 afin de beneficier de l'option # # 'v $xrc/tour.01$K visualiser_la_falaise_avant_de_la_montagne_dans_Imontagnes_precises' # # et en en profitant pour remplacer '$xiP/fractal.21' par '$xiP/fractal.A1'. On notera que # # les dates anterieures ont ete conservees (sur '$LACT16', cela ayant fait que les # # 'reference's sur '$LACT15' ne sont pas faits, ces images etant donc considerees comme # # "A JOUR" comme cela fut constate le 20060901122407 ; cela a donc conduit a une mise a # # jour de '$LACT15' et donc aussi de '$LACT17' et de '$CMAP28'...). # # # # Ces images ont ete recalculees le 20060901143013 afin d'utiliser la meme palette que # # 'v $xiirc/TOUR.C.11.0032' c'est-a-dire '$xiP/fractal.A2'... # v $xiac/TOUR.C.21$R16 p=$xiP/cercle.35 v $xiac/TOUR.C.21$R16 p=$xiP/fractal.11 v $xiac/TOUR.C.21$R64 p=$xiP/cercle.35 v $xiac/TOUR.C.21$R64 p=$xiP/fractal.11 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 017965_018099 # # xivPdf 11 1 / 018100_018234 # # # v $xiac/TOUR.C.22$R16 p=$xiP/cercle.11 v $xiac/TOUR.C.22$R16 p=$xiP/fractal.91 v $xiac/TOUR.C.22$R16 p=$xiP/orange.11 v $xiac/TOUR.C.22$R16 p=$xiP/random.06 v $xiac/TOUR.C.22$R64 p=$xiP/cercle.11 v $xiac/TOUR.C.22$R64 p=$xiP/fractal.91 v $xiac/TOUR.C.22$R64 p=$xiP/orange.11 v $xiac/TOUR.C.22$R64 p=$xiP/random.06 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 018235_018369 # # xivPdf 11 1 / 018370_018504 # # xivPdf 11 1 / 018505_018639 # # xivPdf 11 1 / 018640_018774 # # # v $xiac/TO.C.23$M$R16 v $xiac/TO.C.23$M$R64 v $xiac/TO.C.23$m$R16 v $xiac/TO.C.23$m$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 018775_018909 # # xivPdf 11 1 / 018910_019044 # # # v $xiac/TOUR.C.41$MPEG v $xiac/TOUR.C.41$R16 v $xiac/TOUR.C.41$R64 v $xiirc/TOUR.C.41.0069 # Generees par (sur '$LACT1B') : # # # # # # :Debut_listG_TOUR_C_4: # # # # $Z setenv xTV $xTG # # # # $Z Pdu # # # # $Z set _____Palette=$xiP/fractal.A2 # # # # $Z SET _____images=$xTV/MAND.1 # # # # $Z $xrc/tour.01$X \ # # $Z pas=8 \ # # $Z RC=$xTV/MAND.1.C \ # # $Z RE=$xTV/MAND.1.E \ # # $Z RM=$xTV/MAND.1.M \ # # $Z RT=$xTV/MAND.1.T \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z xTV # # # # $Z SET MaNdEL=`GetLeaf $_____images` # # # # $Z SET Premiere=`ls $MaNdEL.???? |& $HEA -1 | $SE -e "s/^$MaNdEL.//"` # # $Z SET Derniere=`ls $MaNdEL.???? |& $TAI -1 | $SE -e "s/^$MaNdEL.//"` # # # # On notera les "|&"s ci-dessus destines a eviter les messages "ls: No match." lors # # du 'glistN' de 'Debut_listG_TOUR_C_4'... # # # # $Z $xci/vraies_C.01$X A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$_____Palette RVB=VRAI \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/TOUR.C.41 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z SET _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # $Z set NuMeRo=0069 # # # # $Z execRVB $xci/neutre$X A=$_____images.$NuMeRo%s \ # # $Z R=$xiirc/`GetLeaf $_____animation`.$NuMeRo%s \ # # $Z $formatI # # # # :Fin_listG_TOUR_C_4: # # # v $xiac/TO.Q.11.0$R16 v $xiac/TO.Q.11.0$R64 v $xiac/TO.Q.11.1$R16 v $xiac/TO.Q.11.1$R64 v $xiac/TO.Q.11.2$R16 v $xiac/TO.Q.11.2$R64 v $xiac/TO.Q.11.3$R16 v $xiac/TO.Q.11.3$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 019045_019178 # # xivPdf 11 1 / 019179_019312 # # xivPdf 11 1 / 019313_019446 # # xivPdf 11 1 / 019447_019580 # # # v $xiac/TO.Q.24$R16 v $xiac/TO.Q.24$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 019581_019714 # # # v $xiac/TO.Q.340$R16 v $xiac/TO.Q.340$R64 v $xiac/TO.Q.380$R16 v $xiac/TO.Q.380$R64 v $xiac/TO.Q.3G0$R16 v $xiac/TO.Q.3G0$R64 v $xiac/TO.Q.3X0$R16 v $xiac/TO.Q.3X0$R64 # Correspond aux sequences d'images suivantes : # # # # xivPdf 11 1 / 019715_019848 # # xivPdf 11 1 / 019849_019982 # # xivPdf 11 1 / 019983_020116 # # xivPdf 11 1 / 020117_020250 # # # v $xiac/VERH.71$R16 p=$xiP/cercle.35 v $xiac/VERH.71$R64 p=$xiP/cercle.35 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_VERH_71: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET Premiere=0 # # $Z SET Derniere=127 # # # # $Z @ Nimages = $Derniere - $Premiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____images=$xTV/VERH.71 # # # # $Z $xrc/verhulst.01$X \ # # $Z images=$Nimages \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set _____animation=$xiac/VERH.71 # # $m4 _____include(_____xivPdf_09_2/.ITER.1.12._____U) # # # # :Fin_listG_VERH_71: # # # # # # Cette image est une belle demonstration de l'auto-similarite et correspond a une version # # "modernisee" de : # # # # xivPdf 2 1 / 004404_004531 # # # # faite pour 'v $xiMd/HommageBenoitMandelbrot.21$m4'... # v $xiac/VONK.11$R16 p=$xiP/fractal.91 v $xiac/VONK.11$R64 p=$xiP/fractal.91 # Correspond a la sequence d'images suivantes : # # # # xivPdf 9 1 / 034073_034200 # # # v $xiac/VONK.21$R16 p=$xiP/fractal.91 v $xiac/VONK.21$R64 p=$xiP/fractal.91 # Correspond a la sequence d'images suivantes : # # # # xivPdf 9 1 / 034201_034328 # # # v $xiac/VONK.22$R16 p=$xiP/fractal.91 v $xiac/VONK.22$R64 p=$xiP/fractal.91 # Correspond a la sequence d'images suivantes : # # # # xivPdf 9 1 / 034329_034456 # # # v $xiac/VONK.31$R16 p=$xiP/gris.01 v $xiac/VONK.31$R64 p=$xiP/gris.01 # Correspond a la sequence d'images suivantes : # # # # xivPdf 11 1 / 033246_033373 # # # v $xiac/VONK.44$MPEG v $xiac/VONK.44$R04 # Generee (sur '$CMAP28' -ex "porte-brancion"- puis sur '$LACT1A' pour le '$MPEG') par : # # # # # # :Debut_listG_VONK_44: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA1=$xTV/VONK.1 # # $Z set _____ImagesA2=$xTV/VONK.2 # # $Z set _____ImagesA3=$xTV/VONK.3 # # # # $Z $DELETE $_____ImagesA1.* >& $nul # # $Z $DELETE $_____ImagesA2.* >& $nul # # $Z $DELETE $_____ImagesA3.* >& $nul # # # # $Z set _____Rayon=0.01 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=3 # # $Z set _____ImagesR=$_____ImagesA1 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____Rayon=0.005 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=0.5 # # $Z set _____ImagesR=$_____ImagesA2 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # Ainsi, on gaspille un peu (beaucoup ?) en calculant 16 images, alors que 2 suffisent... # # # # $Z set _____ImagesR=$xTV/VONK # # # # $m4 _____include(_____xiirc/.VONK.51.2._____U) # # # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0003%s \ # # $Z R=$_____ImagesA3.0001%s \ # # $Z $formatI # # # # $Z set PaRaMeTrEs="$K_VIDE" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" centrer=FAUX" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" anti_aliasing=VRAI" # # # # $Z set PaRaMeTrEs1="$PaRaMeTrEs"" taille=3" # # $Z set PaRaMeTrEs2="$PaRaMeTrEs"" taille=2" # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____ImagesR.0005%s \ # # $Z toreY=FAUX \ # # $Z trY=+0.20 \ # # $Z R=$_____ImagesR.0005%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0001%s \ # # $Z A2=$_____ImagesR.0005%s \ # # $Z R=$_____ImagesA3.0002%s \ # # $Z $formatI # # # # $Z execRVB "$xci/message$X \ # # $Z A=$NOIR \ # # $Z message="1" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.160 Y=0.550 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="2" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.410 Y=0.730 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.570 Y=0.730 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="4" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.807 Y=0.550 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$_____ImagesR.0005%s \ # # $Z R=$_____ImagesR.0005%s \ # # $Z $formatI" # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0002%s \ # # $Z A2=$_____ImagesR.0005%s \ # # $Z R=$_____ImagesA3.0003%s \ # # $Z $formatI # # # # $Z execRVB "$xci/message$X \ # # $Z A=$NOIR \ # # $Z message="N=4" \ # # $Z $PaRaMeTrEs1 \ # # $Z centrer=VRAI Y=0.50 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0003%s \ # # $Z R=$_____ImagesA3.0004%s \ # # $Z $formatI" # # $Z set Xmaxs3=`calculINS ($dimX/3)-1` # # $Z set Ymaxs3=`calculINS ($dimY/3)-1` # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImagesR.0003%s \ # # $Z mode=2 \ # # $Z $formatI \ # # $Z R=$xTV/VONK.44.0%s \ # # $Z XmaxR=$Xmaxs3 YmaxR=$Ymaxs3 # # # # $Z XYmaxNe $Xmaxs3 $Ymaxs3 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/VONK.44.0%s \ # # $Z mode=3 \ # # $Z $formatI \ # # $Z R=$xTV/VONK.44.1%s \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z execRVB $xci/dilate.01$X \ # # $Z A=$xTV/VONK.44.1%s \ # # $Z dilater=VRAI \ # # $Z R=$xTV/VONK.44.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$xTV/VONK.44.1%s \ # # $Z toreX=FAUX trX=`calcul 1/3` \ # # $Z toreY=FAUX trY=0 \ # # $Z R=$xTV/VONK.44.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$xTV/VONK.44.1%s \ # # $Z toreX=FAUX trX=`calcul 2/3` \ # # $Z toreY=FAUX trY=0 \ # # $Z R=$xTV/VONK.44.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0004%s \ # # $Z A2=$xTV/VONK.44.1%s \ # # $Z R=$_____ImagesA3.0005%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0005%s \ # # $Z A2=$xTV/VONK.44.2%s \ # # $Z R=$_____ImagesA3.0006%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0006%s \ # # $Z A2=$xTV/VONK.44.3%s \ # # $Z R=$_____ImagesA3.0007%s \ # # $Z $formatI # # $Z execRVB "$xci/message$X \ # # $Z A=$NOIR \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs2 \ # # $Z X=0.130 Y=0.120 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs2 \ # # $Z X=0.464 Y=0.120 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs2 \ # # $Z X=0.796 Y=0.120 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0007%s \ # # $Z R=$_____ImagesA3.0008%s \ # # $Z $formatI" # # $Z execRVB "$xci/message$X \ # # $Z A=$NOIR \ # # $Z message="H=3" \ # # $Z $PaRaMeTrEs1 \ # # $Z centrer=VRAI Y=0.35 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0008%s \ # # $Z R=$_____ImagesA3.0009%s \ # # $Z $formatI" # # # # $Z set LImAgEs=$_____ImagesA3 # # $Z set LIm=`ls $LImAgEs.*$ROUGE | $SE -e "s+^$LImAgEs\.0*\(.*\)\$ROUGE"'$+\1+'` # # $Z unset LImAgEs # # # # $Z set Premiere=$LIm[1] # # $Z set Derniere=$LIm[$#LIm] # # # # $Z set _____images=$_____ImagesA3 # # $Z set _____animation=$xiac/VONK.44 # # # # $Z $xci/reduction_04$Z $_____images. \ # # $Z $_____animation \ # # $Z $Premiere $Derniere \ # # $Z VRAI FAUX FAUX # # # # $Z set Derniere=$LIm[$#LIm] # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z set _____PaletteMPEG=RVB # # $Z set _____LRepetitions=`GenListe $#LIm $Seconde` # # $m4 _____include(_____xivPdf_06_2/.TUR2.1.11._____U) # # # # :Fin_listG_VONK_44: # # # v $xiac/VONK.51$R16 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_VONK_51: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImagesA1=$xTV/VONK.1 # # $Z set _____ImagesA2=$xTV/VONK.2 # # # # $Z set _____Rayon=0.01 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=3 # # $Z set _____ImagesR=$_____ImagesA1 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____Rayon=0.005 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=0.5 # # $Z set _____ImagesR=$_____ImagesA2 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____ImagesR=$xTV/VONK # # $m4 _____include(_____xiirc/.VONK.51.2._____U) # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/VONK.51 # # $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) # # # # :Fin_listG_VONK_51: # # # v $xiac/VONK.52$MPEG v $xiac/VONK.52$R04 v $xiac/VONK.52$R16 v $xiirc/VONK.52.0001 v $xiirc/VONK.52.0002 v $xiirc/VONK.52.0001.0002 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_VONK_52: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImagesA1=$xTV/VONK.1 # # $Z set _____ImagesA2=$xTV/VONK.2 # # $Z set _____ImagesA3=$xTV/VONK.3 # # # # $Z set _____Rayon=0.01 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=3 # # $Z set _____ImagesR=$_____ImagesA1 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____Rayon=0.005 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=0.5 # # $Z set _____ImagesR=$_____ImagesA2 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____ImagesR=$xTV/VONK # # $m4 _____include(_____xiirc/.VONK.51.2._____U) # # $m4 _____include(_____xiirc/.VONK.51.3._____U) # # # # $Z set Premiere=1 # # $Z set Derniere=16 # # $Z set _____images=$_____ImagesR # # $Z set _____animation=$xiac/VONK.52 # # $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0001%s \ # # $Z R=$_____ImagesA3.0001%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0003%s \ # # $Z R=$_____ImagesA3.0002%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0005%s \ # # $Z R=$_____ImagesA3.0003%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0016%s \ # # $Z R=$_____ImagesA3.0004%s \ # # $Z $formatI # # # # $Z $xci/reduction_04$Z $_____ImagesA3. \ # # $Z $_____animation \ # # $Z 1 4 \ # # $Z VRAI VRAI VRAI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____animation$R04%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____animation$R04%s \ # # $Z $formatR_Pdu # # # # $Z set Save_____ImagesR=$_____ImagesR # # $Z set _____ImagesR=$xiirc/VONK.52 # # # # $Z set PaRaMeTrEs1="$K_VIDE" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" taille=3" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" centrer=FAUX" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" anti_aliasing=VRAI" # # # # $Z execRVB $xci/message$X \ # # $Z A=$_____ImagesA3.0001%s \ # # $Z message="1" \ # # $Z $PaRaMeTrEs1 \ # # $Z centrer=VRAI Y=0.30 \ # # $Z R=$_____ImagesR.0001%s \ # # $Z $formatI # # # # $Z execRVB "$xci/message$X \ # # $Z A=$_____ImagesA3.0002%s \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.120 Y=0.420 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.290 Y=0.550 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.600 Y=0.550 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.770 Y=0.420 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3_+_1/3_+_1/3_+_1/3_=_4/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z UnderScoreEspace=VRAI \ # # $Z centrer=VRAI \ # # $Z Y=0.300 \ # # $Z R=$_____ImagesR.0002%s \ # # $Z $formatI" # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____ImagesR.0001%s \ # # $Z toreY=FAUX \ # # $Z trY=-0.20 \ # # $Z R=$xTV/VONK.52.0001%s \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$_____ImagesR.0002%s \ # # $Z toreY=FAUX \ # # $Z trY=-0.25 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z toreY=FAUX \ # # $Z trY=+0.40 \ # # $Z R=$xTV/VONK.52.0002%s \ # # $Z $formatI" # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$xTV/VONK.52.0001%s \ # # $Z A2=$xTV/VONK.52.0002%s \ # # $Z R=$_____ImagesR.0001.0002%s \ # # $Z $formatI # # # # $Z set _____ImagesR=$Save_____ImagesR # # $m4 _____include(_____xiirc/.VONK.51.4._____U) # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z set _____PaletteMPEG=RVB # # $m4 _____include(_____xivPdf_06_2/.TUR2.1.11._____U) # # # # :Fin_listG_VONK_52: # # # v $xiac/VONK.53$MPEG v $xiac/VONK.53$R04 # Generee (sur '$CMAP28' -ex "porte-brancion"- puis sur '$LACT1A' pour le '$MPEG') par : # # # # # # :Debut_listG_VONK_53: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA1=$xTV/VONK.1 # # $Z set _____ImagesA2=$xTV/VONK.2 # # $Z set _____ImagesA3=$xTV/VONK.3 # # # # $Z $DELETE $_____ImagesA1.* >& $nul # # $Z $DELETE $_____ImagesA2.* >& $nul # # $Z $DELETE $_____ImagesA3.* >& $nul # # # # $Z set _____Rayon=0.01 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=3 # # $Z set _____ImagesR=$_____ImagesA1 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # $Z set _____Rayon=0.005 # # $Z set _____Apoints=16 # # $Z set _____Rpoints=0.5 # # $Z set _____ImagesR=$_____ImagesA2 # # $m4 _____include(_____xiirc/.VONK.41.1._____U) # # # # Ainsi, on gaspille un peu (beaucoup ?) en calculant 16 images, alors que 2 suffisent... # # # # $Z set _____ImagesR=$xTV/VONK # # # # $m4 _____include(_____xiirc/.VONK.51.2._____U) # # # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0001%s \ # # $Z R=$_____ImagesA3.0001%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImagesR.0003%s \ # # $Z R=$_____ImagesA3.0003%s \ # # $Z $formatI # # # # $Z set PaRaMeTrEs1="$K_VIDE" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" taille=3" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" centrer=FAUX" # # $Z set PaRaMeTrEs1="$PaRaMeTrEs1"" anti_aliasing=VRAI" # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____ImagesA3.0001%s \ # # $Z toreY=FAUX \ # # $Z trY=-0.20 \ # # $Z R=$_____ImagesA3.0001%s \ # # $Z $formatI # # # # $Z execRVB $xci/message$X \ # # $Z A=$_____ImagesA3.0001%s \ # # $Z message="1" \ # # $Z $PaRaMeTrEs1 \ # # $Z centrer=VRAI Y=0.10 \ # # $Z R=$_____ImagesA3.0002%s \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$_____ImagesA3.0003%s \ # # $Z toreY=FAUX \ # # $Z trY=-0.25 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z toreY=FAUX \ # # $Z trY=+0.40 \ # # $Z R=$_____ImagesA3.0003%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/message$X \ # # $Z A=$_____ImagesA3.0003%s \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.120 Y=0.570 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.290 Y=0.700 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.600 Y=0.700 \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="1/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z X=0.770 Y=0.570 \ # # $Z R=$_____ImagesA3.0004%s \ # # $Z $formatI" # # # # $Z execRVB $xci/message$X \ # # $Z A=$_____ImagesA3.0004%s \ # # $Z message="1/3_+_1/3_+_1/3_+_1/3_=_4/3" \ # # $Z $PaRaMeTrEs1 \ # # $Z UnderScoreEspace=VRAI \ # # $Z centrer=VRAI \ # # $Z Y=0.450 \ # # $Z R=$_____ImagesA3.0005%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0002%s \ # # $Z A2=$_____ImagesA3.0005%s \ # # $Z R=$_____ImagesA3.0006%s \ # # $Z $formatI # # # # $Z set LImAgEs=$_____ImagesA3 # # $Z set LIm=`ls $LImAgEs.*$ROUGE | $SE -e "s+^$LImAgEs\.0*\(.*\)\$ROUGE"'$+\1+'` # # $Z unset LImAgEs # # # # $Z set Premiere=$LIm[1] # # $Z set Derniere=$LIm[4] # # # # $Z set _____images=$_____ImagesA3 # # $Z set _____animation=$xiac/VONK.53 # # # # $Z $xci/reduction_04$Z $_____images. \ # # $Z $_____animation \ # # $Z $Premiere $Derniere \ # # $Z VRAI FAUX FAUX # # # # $Z set Derniere=$LIm[$#LIm] # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z set _____PaletteMPEG=RVB # # $Z set _____LRepetitions=`GenListe $#LIm $Seconde` # # $m4 _____include(_____xivPdf_06_2/.TUR2.1.11._____U) # # # # :Fin_listG_VONK_53: # # # v $xiac/VONK.61$R16 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_VONK_61: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____images=$xTV/VONK.6 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $c #define N0 Premiere # # $c #define N Derniere # # # # $c int main() # # $c { # # $c int n; # # # # $c double xDD=1.0; # # $c double xDA=3.0; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/Cfract_2D.01$X # # $c xG=0.0 xD=%f # # $c yG=0.2 yD=0.2 # # $c rectangulaire=FAUX # # $c grand_carre=VRAI # # $c argument=FAUX # # $c $formatI | # # $c $xci/dilate.01$X # # $c $formatI | # # $c $xci/convol.01$X # # $c R=$_____images.%04d # # $c $formatI\n" # # $c ,((xDA*(n-N0))+(xDD*(N-n)))/(N-N0) # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z $xci/vraies_C.01$X A=$_____images. \ # # $Z premiere=$Premiere derniere=$Derniere \ # # $Z p=$xiP/gris.01 RVB=VRAI \ # # $Z R=$_____images. \ # # $Z $formatI # # # # $Z set NPremiere=`$xci/nombres$X p=$Premiere d=$Premiere` # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$_____images.$NPremiere$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$_____images.$NPremiere$BLEUE \ # # $Z $formatI # # # # $Z set NDerniere=`$xci/nombres$X p=$Derniere d=$Derniere` # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$_____images.$NDerniere$VERTE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$_____images.$NDerniere$BLEUE \ # # $Z $formatI # # # # $Z set _____animation=$xiac/VONK.61 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_VONK_61: # # # v $xiac/VONK.62$R16 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_VONK_62: # # # # $Z Pal # # # # On notera le 20180129115559 que 'v $xrc/Cfract_2D.01$K store_point_valide' utilise # # donc 'store_point_valide(...)' pour marquer les points et donc si l'on passe de 'Pal' # # a 'Pdu', les points restent des points. Si ensuite une reduction est faite (par exemple # # avec "//2" dans 'x $xiMo/creation$Z RapportXY', l'image resultant sera alors moins # # "lisible"... # # # # $Z setenv xTV $xTG # # # # $Z set _____images=$xTV/VONK.6 # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $m4 _____include(_____xiirc/.VONK.62.1._____U) # # $m4 _____include(_____xiirc/.VONK.62.2._____U) # # # # $Z set _____animation=$xiac/VONK.62 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # :Fin_listG_VONK_62: # # # v $xiac/VONK.63$MPEG v $xiac/VONK.63$R16 v $xiac/VONK.63$R64 # Generee (sur '$LACT1A', puis sur '$LACT19', puis sur '$LACT1B' -a cause du '$MPEG'-) par : # # # # # # :Debut_listG_VONK_63: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____images=$xTV/VONK.6 # # # # $Z SET Premiere=1 # # $Z SET Derniere=128 # # # # $Z set _____TranslationY=0 # # $m4 _____include(_____xiirc/.VONK.62.1._____U) # # $m4 _____include(_____xiirc/.VONK.63.2._____U) # # # # $Z set _____animation=$xiac/VONK.63 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImageT=$_____images. # # $Z set _____Animation=$_____animation # # $Z SET _____InverserMPEG=$NEXIST # # $Z SET _____PaletteMPEG=RVB # # $Z set _____PostFixeMP=$MPEG # # $m4 _____include(_____xiirs/.MOBI.13.1._____U) # # # # :Fin_listG_VONK_63: # # # v $xiac/VONK.81$MPEG v $xiac/VONK.81$R04 # Generee (sur '$CMAP28' -ex "porte-brancion"- puis sur '$LACT1A' pour le '$MPEG') par : # # # # # # :Debut_listG_VONK_81: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA1=$xTV/VONK.1 # # $Z set _____ImagesA3=$xTV/VONK.3 # # # # $Z $DELETE $_____ImagesA1.* >& $nul # # $Z $DELETE $_____ImagesA3.* >& $nul # # # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0001$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0001$VERTE \ # # $Z $formatI # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.10$BLEUE \ # # $Z toreY=FAUX \ # # $Z trY=-0.20 \ # # $Z R=$_____ImagesA1.0001$BLEUE \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.12$ROUGE \ # # $Z toreY=FAUX \ # # $Z trY=0 \ # # $Z R=$_____ImagesA1.0002$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0002$VERTE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0002$BLEUE \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.20$ROUGE \ # # $Z toreY=FAUX \ # # $Z trY=0 \ # # $Z R=$_____ImagesA1.0003$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0003$VERTE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0003$BLEUE \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.23$ROUGE \ # # $Z toreY=FAUX \ # # $Z trY=+0.20 \ # # $Z R=$_____ImagesA1.0004$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0004$VERTE \ # # $Z $formatI # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.23$BLEUE \ # # $Z toreY=FAUX \ # # $Z trY=+0.20 \ # # $Z R=$_____ImagesA1.0004$BLEUE \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.30$ROUGE \ # # $Z toreY=FAUX \ # # $Z trY=+0.20 \ # # $Z R=$_____ImagesA1.0005$ROUGE \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImagesA1.0005$VERTE \ # # $Z $formatI # # $Z $xci/scroll$X \ # # $Z A=$xiirc/VONK.81.30$BLEUE \ # # $Z toreY=FAUX \ # # $Z trY=+0.20 \ # # $Z R=$_____ImagesA1.0005$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$NOIR \ # # $Z A2=$_____ImagesA1.0001%s \ # # $Z R=$_____ImagesA3.0001%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0001%s \ # # $Z A2=$_____ImagesA1.0002%s \ # # $Z R=$_____ImagesA3.0002%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0001%s \ # # $Z A2=$_____ImagesA1.0003%s \ # # $Z R=$_____ImagesA3.0003%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0003%s \ # # $Z A2=$_____ImagesA1.0004%s \ # # $Z R=$_____ImagesA3.0004%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____ImagesA3.0003%s \ # # $Z A2=$_____ImagesA1.0005%s \ # # $Z R=$_____ImagesA3.0005%s \ # # $Z $formatI # # # # $Z set LImAgEs=$_____ImagesA3 # # $Z set LIm=`ls $LImAgEs.*$ROUGE | $SE -e "s+^$LImAgEs\.0*\(.*\)\$ROUGE"'$+\1+'` # # $Z unset LImAgEs # # # # $Z set Premiere=$LIm[1] # # $Z set Derniere=4 # # # # $Z set _____images=$_____ImagesA3 # # $Z set _____animation=$xiac/VONK.81 # # # # $Z $xci/reduction_04$Z $_____images. \ # # $Z $_____animation \ # # $Z $Premiere $Derniere \ # # $Z VRAI FAUX FAUX # # # # $Z set Derniere=$LIm[$#LIm] # # # # $Z SET _____InverserMPEG=$NEXIST # # $Z set _____PaletteMPEG=RVB # # $Z set _____LRepetitions=`GenListe $#LIm $Seconde` # # $m4 _____include(_____xivPdf_06_2/.TUR2.1.11._____U) # # # # :Fin_listG_VONK_81: # v $xiac/VONK.A1$R16 v $xiac/VONK.A1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 9 1 / 034585_034712 # # # v $xiac/VONK.a1$R16 v $xiac/VONK.a1$R64 # Correspond a la sequence d'images suivantes : # # # # xivPdf 9 1 / 034713_034840 # # # v $xiac/VONK.b1$R16 v $xiac/VONK.b1$R64 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_VONK_b1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET Nimages=128 # # # # $Z $DELETE $xT/ANGLES # # # # $Z $xcg/scale$X multiplicateur=0 nombre=$pi diviseur=3 > $xT/ANGLES # # $Z saut >>! $xT/ANGLES # # $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES # # $Z saut >>! $xT/ANGLES # # $Z $xcg/scale$X multiplicateur=4 nombre=$pi diviseur=3 >>! $xT/ANGLES # # $Z saut >>! $xT/ANGLES # # $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES # # # # $c #define N0 1 # # $c #define N Nimages # # # # $c int main() # # $c { # # $c int n; # # # # $c double rapportD=3.0; # # $c double rapportA=2.0; # # # # $c double zoomD=1.30; # # $c double zoomA=0.22; # # # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c printf("$xrc/Cfract_4D.11$X # # $c iterations=4 # # $c ANGLE_DE_ROTATION_1=$pis2 # # $c ANGLE_DE_ROTATION_2=$pis2 # # $c ANGLE_DE_ROTATION_3=$xT/ANGLES # # # # Voir 'v $xtKg/rotations_HC.02$K' pour comprendre le choix de {$pis2,$pis2,...}... # # # # $c rapport=%f # # $c yG=-0.6 yD=-0.6 # # $c aleatoire=FAUX quaternion=VRAI # # $c recursion=6 # # $c Lz=1000 # # $c rayon_de_visualisation=0.01 # # $c ZOOM=%f # # $c R=$xT/VONK.b. # # $c $formatI\n" # # $c ,((rapportA*(n-N0))+(rapportD*(N-n)))/(N-N0) # # $c ,((zoomA*(n-N0))+(zoomD*(N-n)))/(N-N0) # # $c ,n # # $c ); # # $c printf("$MV $xT/VONK.b.%04d$ROUGE # # $c $xw1/VONK.b.%04d$ROUGE\n" # # $c ,N0,n # # $c ); # # $c printf("$MV $xT/VONK.b.%04d$VERTE # # $c $xw1/VONK.b.%04d$VERTE\n" # # $c ,N0,n # # $c ); # # $c printf("$MV $xT/VONK.b.%04d$BLEUE # # $c $xw1/VONK.b.%04d$BLEUE\n" # # $c ,N0,n # # $c ); # # $c } # # $c } # # # # $Z $DELETE $xT/ANGLES # # # # $Z $xci/reduction_16$Z $xw1/VONK.b. $xiac/VONK.b1 1 $Nimages # # $Z $xci/reduction_64$Z $xw1/VONK.b. $xiac/VONK.b1 1 $Nimages # # # # :Fin_listG_VONK_b1: # # # # # # Ces images correspondent en fait a 'v $xiac/VONK.a1$R16' et 'v $xiac/VONK.a1$R64' # # regenerees a cause de la grave erreur 'v $ximcd/operator$FON 20181201121241'... # v $xiac/ZET$Mo.21.1$R16 p=$xiP/cercle.22 t=16 d=4 ralenti=16 v $xiac/ZET$Mo.21.2$R16 p=$xiP/cercle.22 t=16 d=4 ralenti=16 v $xiac/ZET$Mo.21.1$R64 p=$xiP/cercle.22 t=64 d=4 ralenti=32 v $xiac/ZET$Mo.21.2$R64 p=$xiP/cercle.22 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 010616_010743 # # # # avec respectivement un "pas" de 1, de 2... # v $xiac/ZET$Ph.21.1$R16 p=$xiP/cercle.11 t=16 d=4 ralenti=16 v $xiac/ZET$Ph.21.2$R16 p=$xiP/cercle.11 t=16 d=4 ralenti=16 v $xiac/ZET$Ph.21.1$R64 p=$xiP/cercle.11 t=64 d=4 ralenti=32 v $xiac/ZET$Ph.21.2$R64 p=$xiP/cercle.11 t=64 d=4 ralenti=32 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 010744_010871 # # # # avec respectivement un "pas" de 1, de 2... # v $xiac/ZET$Mo.22.1$R16 p=$xiP/cercle.22 t=16 d=4 ralenti=16 v $xiac/ZET$Mo.22.2$R16 p=$xiP/cercle.22 t=16 d=4 ralenti=16 # Correspond a la sequence d'images suivantes : # # # # xivPdf 2 1 / 010872_010903 # # # # avec respectivement un "pas" de 1, de 2... # ####################################################################################################################################### # # # I M A G E S L E S P L U S P E R T I N E N T E S : # # # ####################################################################################################################################### v $xiac/JULI.91$R16 p=$xiP/fractal.11 v $xiac/JULI.22$R16 p=$xiP/fractal.11 # 16 ensembles de Julia dans les complexes lors d'une promenade autour de Mandelbrot... # v $xiac/JU.53$m$R04 v $xiac/JU.61$m$R16 # Visualisation tridimensionnelle d'ensemble de Julia dans les quaternions. # v $xiac/JU.53$R16$DROITE p=$xiP/arc_ciel.12 v $xiac/JULI.E1$R16 p=$xiP/trou_noir.14 v $xiac/JULI.F1$R16 p=$xiP/trou_noir.14 v $xiac/JULI.G1$R16 p=$xiP/fractal.11 # 16 ensembles de Julia dans les quaternions lors d'une promenade autour de Mandelbrot... # v $xiac/JU.K0$R16$DROITE p=$xiP/trou_noir.14 v $xiac/JU.L0$R16$DROITE p=$xiP/fractal.11 # Zoom sur le plus interessant des ensembles de Julia precedents. # v $xiac/JU.N1$R16$DROITE v $xiac/JU.N2$R16$DROITE v $xiac/JU.O0$R16$DROITE v $xiac/JU.N1$R16$GAUCHE v $xiac/JU.N2$R16$GAUCHE v $xiac/JU.O0$R16$GAUCHE # Un petit tour de l'ensemble de Mandelbrot dans les Quaternions avec zoom sur l'un des # # plus beaux ensembles de Julia... # v $xiac/JU.R1$R16 v $xiac/JU.R1$R64 v $xiac/JU.R1$R64$ROUGE p=$xiP/gris.01 t=64 d=0 ralenti=32 # Rotation autour de l'axe 'OY' autour de l'ensemble de Julia precedent... # v $xiac/JU.b1$R16 # Rotation autour des axes 'OY' et 'OZ' de l'ensemble de Julia precedent... # v $xiac/JU.g2.0$R16 # Panoramique sur l'ensemble de Julia precedent... # v $xiac/JU.j4.0$R16 v $xiac/JU.j8.0$R16 v $xiac/JU.jG.0$R16 # Rotation avec "motion blur" autour de l'axe 'OY' autour de l'ensemble de Julia precedent... # v $xiac/JU.m1$R16 # La danseuse... # v $xiac/JU.m1.2$m$R16 # L'ile de Julia... # v $xiac/JULI.81$R16 p=$xiP/orange.11 v $xiac/JULI.82$R16 p=$xiP/orange.11 # Exposant de Lyapunov "progressif" sur un ensemble de Julia. # v $xiac/MAND.11$R64 p=$xiP/cercle.11 v $xiac/MAND.11$R64 p=$xiP/fractal.91 v $xiac/MAND.11$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 v $xiac/MAND.12$R64 p=$xiP/cercle.11 v $xiac/MAND.12$R64 p=$xiP/fractal.91 v $xiac/MAND.12$R64 p=$xiP/arc_ciel.01 t=64 d=4 ralenti=32 v $xiac/MAND$M.2$R16 p=$xiP/enfer.03 v $xiac/MAND$M.2$R16 p=$xiP/montagnes.01 v $xiac/MAND$M.2$R64 p=$xiP/montagnes.01 t=64 d=4 ralenti=32 v $xiac/MAND.12$R64 p=$xiP/cercle.02 t=64 d=4 ralenti=32 v $xiac/MAND.A2$R16 p=$xiP/fractal.91 v $xiac/MAND.A2$R64 p=$xiP/fractal.91 t=64 d=4 ralenti=32 v $xiac/MAND.B1$M$R16 p=$xiP/enfer.02 v $xiac/MAND.B1$M$R64 p=$xiP/enfer.02 t=64 d=4 ralenti=32 v $xiac/MAND.C1$R16 # Quelques zooms sur l'ensemble de Mandelbrot. # v $xiac/MA.Q0$R16$DROITE # Zoom sur l'ensemble de Mandelbrot dans les Quaternions. # v $xiac/MAND.61.008$R16 p=$xiP/orange.11 v $xiac/MAND.61.064$R16 p=$xiP/orange.11 v $xiac/MAND.82$R16 p=$xiP/orange.11 # Exposant de Lyapunov "progressif" sur un ensemble de Mandelbrot. # v $xiac/TOUR.1$R64 p=$xiP/fractal.21 t=64 d=4 ralenti=32 v $xiac/TOUR.1$R16 p=$xiP/fractal.21 t=16 d=4 ralenti=32 # Le tour de l'ensemble de Mandelbrot. #