#######################################################################################################################################
# #
# I N T E R P O L A T I O N E N T R E D E U X A L B U M S : #
# #
# #
# Author of '$xiirf/.FRA3.S2.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20101109145341). #
# #
#######################################################################################################################################
$Z setParam _____Palette $xiP/gris.A3
$Z setParam _____Inverser `GetParam $xci/interpole.12$X inverser_ponderateur`
$Z # Parametre introduit le 20101109172043... #
$Z # #
$Z # Par defaut : #
$Z # #
$Z # Image '$_____ImageTd1' a gauche de '$xTV/MIRE', #
$Z # Image '$_____ImageTd2' a droite de '$xTV/MIRE', #
$Z # #
$Z # ce qui peut etre inverse via cet indicateur '$_____Inverser'... #
$Z setParam _____Complementaire "$K_VIDE"
$Z # Parametre introduit le 20101111102909... #
$Z setParam _____Points 49
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z A=1 B=0 C=0 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z standard=FAUX \
$Z p=$_____Palette \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z lissage=VRAI passes=100 \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=1 \
$Z R=$xTV/MIRE \
$Z $formatI
$Z @ NPoInTs = 4 * $tailleI
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$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=$_____ImageTd1.%04d
$c R=$_____ImageTd1.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("$xci/normalise.01$X
$c A=$_____ImageTd2.%04d
$c R=$_____ImageTd2.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c }
$c }
$Z FilSTmpB FiNtErPoLe
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c
$c int main()
$c {
$c int n;
$c
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("echo %c$xci/interpole.12$X
$c A1=$_____ImageTd2.%04d
$c A2=$_____ImageTd1.%04d
$c P=$xTV/MIRE
$c inverser_ponderateur=$_____Inverser
$c standard=FAUX
$c message_attention_extrema=FAUX
$c points=$NPoInTs
$c explorer_hors_image=VRAI
$c seuil=2
$c $_____Complementaire
$c R=$_____ImageTi.%04d
$c $formatI%c
$c >> $FiNtErPoLe\n"
$c ,'\"'
$c ,n
$c ,n
$c ,n
$c ,'\"'
$c );
$c /* La suppression du message d'erreur des extrema a ete introduite le 20101109161959 */
$c /* pour la generation de 'v $xiirc/INTE.11.2'... */
$c /* */
$c /* Le 20101112091144 le calcul des interpolations a ete decouple de celui des convolutions */
$c /* afin de faciliter des "reprises" de calculs precedents... */
$c }
$c }
$Z # Introduit le 20191021183042... #
$Z execPar_V $FiNtErPoLe
$Z FilSTmpE FiNtErPoLe
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/convol.01$X
$c A=$_____ImageTi.%04d
$c standard=FAUX
$c points=$_____Points
$c circulaire=VRAI
$c circulaire_optimale=VRAI
$c R=$_____ImageTd.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c /* L'usage de '$xci/convol.01$X' est du a 'v $xiii/pent_image$FON 20101013183449' qui fait */
$c /* que '$xci/interpole.12$X' produit des trous et des dechirures dans l'image Resultat... */
$c }
$c }
$Z set _____SourceZ=0.75
$Z set _____AttenuationOmbre=0.5
$m4 _____include(_____xiirc/.MANE.41.3._____U)
$Z set _____ImageTT=$_____ImageTo