#!/bin/csh
#######################################################################################################################################
# #
# N O T A : #
# #
# #
# Author of '$xiaa/$Fnota' : #
# #
# Jean-Francois Colonna (LACTAMME, 20070625100405). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# D E M O N S T R A T I O N S I N T E R E S S A N T E S D E ' $xiaa ' : #
# #
#######################################################################################################################################
v $xiaa/KAND.21$R16 p=$xiP/dentscie.01
v $xiaa/KAND.21$R16 p=$xiP/dentscie.01 t=16 d=0
v $xiaa/KAND.21$R64 p=$xiP/dentscie.01
v $xiaa/KAND.21$R64 p=$xiP/dentscie.01 t=64 d=0
v $xiaa/KAND.21.1$R16 p=$xiP/dentscie.01
v $xiia/KAND.21 p=$xiP/abso.11
v $xiia/KAND.21 p=$xiP/dentscie.01
v $xiia/KAND.21 p=$xiP/gris.01
v $xiia/KAND.21 p=$xiP/trou_noir.B4
# Generee (sur '$CMAP28' et sur '$LACT18' en ce qui concerne 'v $xiaa/KAND.21.1$R16') par : #
# #
# #
# :Debut_listG_KAND_21_16: #
# #
# $Z Pal #
# #
# $Z setenv xTV $xTG #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET NPremiere=1 #
# $Z SET NDerniere=64 #
# #
# $Z setenv _____images_R $xTV/KAND.11 #
# $Z setenv _____images_2 $xTV/KAND.1 #
# #
# $Z $xci/random.01$X \ #
# $Z R=$_____images_R \ #
# $Z $formatI #
# #
# $Z FilSTmpB FFiLtRaGe #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 NPremiere #
# $c #define N NDerniere #
# #
# $c #define A0 0.0 #
# $c #define AN (2*3.14159265358979312) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double angle = A0 + (((AN-A0)*(n-N0))/(N-N0)); #
# #
# $c printf("echo %cFileTmpB _____images_1 #
# $c $K_QD$K_VIDE$K_QD #
# $c %cKAND%c #
# $c $xTV ; #
# $c $xci/gauss$X #
# $c cx2=0.4 cy2=100 #
# $c ROTATION_OZ=%f #
# $c R=$_____images_1 #
# $c $formatI ; #
# $c $xci/filtre.01$X #
# $c A=$_____images_R #
# $c N=$_____images_1 #
# $c seuil=253 #
# $c ani=FAUX #
# $c R=$_____images_2.%04d #
# $c $formatI ; #
# $c FileTmpE _____images_1%c #
# $c >> $FFiLtRaGe\n" #
# $c ,'\'' #
# $c ,'"','"' #
# $c ,angle #
# $c ,n #
# $c ,'\'' #
# $c ); #
# $c } #
# $c } #
# #
# $Z ro $FFiLtRaGe #
# $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFiLtRaGe" #
# #
# $Z FilSTmpE FFiLtRaGe #
# #
# $Z set Premiere=$NPremiere #
# $Z set Derniere=$NDerniere #
# $Z set _____images=$_____images_2 #
# $Z set _____animation=$xiaa/KAND.21 #
# #
# $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) #
# #
# $Z $xci/accumule.01$X \ #
# $Z A=$_____images_2. \ #
# $Z premiere=$NPremiere derniere=$NDerniere \ #
# $Z maximum=VRAI \ #
# $Z lineaire=VRAI depart=0.0 arrivee=1.0 \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z renormaliser=VRAI \ #
# $Z R=$xiia/KAND.21 \ #
# $Z $formatI #
# #
# $Z SET RPremiere=1 #
# $Z SET RDerniere=16 #
# #
# $Z setenv _____images_3 $xTV/KAND.2 #
# #
# $Z setenv Tr_X `$xci/coordonnees$X norm=VRAI X=1 eX=VRAI eY=FAUX eZ=FAUX eN=FAUX` #
# #
# $Z FilSTmpB FStErOgRaMmE #
# #
# $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.01$X #
# $c A=$_____images_2. #
# $c premiere=%d derniere=%d #
# $c maximum=VRAI #
# $c lineaire=VRAI #
# $c depart=0.0 arrivee=1.0 #
# $c quelconque=VRAI #
# $c trx=$Tr_X #
# $c stereo=%f #
# $c R=$_____images_3.%04d #
# $c $formatI%c #
# $c >> $FStErOgRaMmE\n" #
# $c ,'\'' #
# $c ,N0,N #
# $c ,stereo #
# $c ,n #
# $c ,'\'' #
# $c ); #
# $c } #
# $c } #
# #
# $Z ro $FStErOgRaMmE #
# $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FStErOgRaMmE" #
# #
# $Z FilSTmpE FStErOgRaMmE #
# #
# $Z set Premiere=$RPremiere #
# $Z set Derniere=$RDerniere #
# $Z set _____images=$_____images_3 #
# $Z set _____animation=$xiaa/KAND.21.1 #
# #
# $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) #
# #
# :Fin_listG_KAND_21_16: #
# #
# #
# Donne le filtrage d'un champ aleatoire dont le noyau tourne de deux pi. Quant a l'image #
# 'v $xiaa/KAND.21.1$R16', elle donne 4x3 stereogrammes de 'v $xiia/KAND.21'... #
v $xiaa/KAND.22$R16 p=$xiP/trou_noir.B4
v $xiaa/KAND.22$R16 p=$xiP/trou_noir.B4 t=16 d=0
# Generee (sur '$CMAP28') par : #
# #
# #
# :Debut_listG_KAND_22_16: #
# #
# $Z Pal #
# #
# $Z setenv xTV $xTG #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET SPremiere=1 #
# $Z SET SDerniere=16 #
# #
# $Z SET NPremiere=1 #
# $Z SET NDerniere=32 #
# #
# $Z setenv _____images_R $xTV/KAND.11 #
# $Z setenv _____images_2 $xTV/KAND.1 #
# $Z setenv _____images_3 $xTV/KAND.2 #
# #
# $Z $xci/random.01$X \ #
# $Z R=$_____images_R \ #
# $Z $formatI #
# #
# $c #include <stdio.h> #
# #
# $c #define M0 SPremiere #
# $c #define M SDerniere #
# #
# $c #define S0 238 #
# $c #define SM 253 #
# #
# $c #define N0 NPremiere #
# $c #define N NDerniere #
# #
# $c #define A0 0.0 #
# $c #define AN (2*3.14159265358979312) #
# #
# $c int main() #
# $c { #
# $c int m; #
# #
# $c for (m=M0 ; m<=M ; m++) #
# $c { #
# $c double seuil = S0 + (((SM-S0)*(m-M0))/(M-M0)); #
# #
# $c int n; #
# #
# $c printf("FilSTmpB FFiLtRaGe\n"); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double angle = A0 + (((AN-A0)*(n-N0))/(N-N0)); #
# #
# $c printf("echo %cFileTmpB _____images_1 #
# $c $K_QD$K_VIDE$K_QD #
# $c %cKAND%c #
# $c $xTV ; #
# $c $xci/gauss$X #
# $c cx2=0.4 cy2=100 #
# $c ROTATION_OZ=%f #
# $c R=$_____images_1 #
# $c $formatI ; #
# $c $xci/filtre.01$X #
# $c A=$_____images_R #
# $c N=$_____images_1 #
# $c seuil=%d #
# $c ani=FAUX #
# $c R=$_____images_2.%04d #
# $c $formatI ; #
# $c FileTmpE _____images_1%c #
# $c >> $FFiLtRaGe\n" #
# $c ,'\'' #
# $c ,'"','"' #
# $c ,angle #
# $c ,(int)seuil #
# $c ,n #
# $c ,'\'' #
# $c ); #
# $c } #
# #
# $c printf("ro $FFiLtRaGe\n"); #
# $c printf("$xcg/parallele.1N$X #
# $c C=%c$xcs/Linda$vv$Z $FFiLtRaGe%c\n" #
# $c ,'"','"' #
# $c ); #
# $c printf("FilSTmpE FFiLtRaGe\n"); #
# #
# $c printf("$xci/accumule.01$X #
# $c A=$_____images_2. #
# $c premiere=$NPremiere #
# $c derniere=$NDerniere #
# $c maximum=VRAI #
# $c lineaire=VRAI #
# $c depart=0.0 arrivee=1.0 #
# $c $formatI | #
# $c $xci/acces$X #
# $c renormaliser=VRAI #
# $c R=$_____images_3.%04d #
# $c $formatI\n" #
# $c ,m #
# $c ); #
# $c } #
# $c } #
# #
# $Z set Premiere=$SPremiere #
# $Z set Derniere=$SDerniere #
# $Z set _____images=$_____images_3 #
# $Z set _____animation=$xiaa/KAND.22 #
# #
# $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) #
# #
# :Fin_listG_KAND_22_16: #
# #
# #
# Donne seize niveaux de filtrage d'un champ aleatoire dont le noyau tourne de deux pi... #