#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N M I L I E U D E P R O P A G A T I O N C O R R E S P O N D A N T #
# A L A C A R T E D E D E N S I T E T R I D I M E N S I O N N E L L E #
# D E S B R O N C H I O L E S T E R M I N A L E S D E S P O U M O N S #
# A V E C A J U S T E M E N T A U T O M A T I Q U E : #
# #
# #
# Author of '$xiird/.ACIN.H.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z Pal
$Z if ($?PremiereM == $NEXIST) then
$Z SET PremiereM=1
$Z # ATTENTION, il est impossible d'ecrire : #
$Z # #
$Z # PremiereM=`ls $_____imagesM.* | $HEA -1 | $SE -e "s+$_____imagesM\.++" -e 's/^0*//'` #
$Z # #
$Z # car, en effet, les images '$_____imagesM.*' ne sont a priori pas chargees a cet instant #
$Z # precis ou le 'main()' qui suit va etre genere. En general, elles ne seront chargees que #
$Z # lors de l'execution du '$Z' que l'on est en train de generer et non pas lors de la dite #
$Z # generation... #
$Z else
$Z endif
$Z if ($?DerniereM == $NEXIST) then
$Z SET DerniereM=128
$Z # ATTENTION, il est impossible d'ecrire : #
$Z # #
$Z # DerniereM=`ls $_____imagesM.* | $TAI -1 | $SE -e "s+$_____imagesM\.++" -e 's/^0*//'` #
$Z # #
$Z # car, en effet, les images '$_____imagesM.*' ne sont a priori pas chargees a cet instant #
$Z # precis ou le 'main()' qui suit va etre genere. En general, elles ne seront chargees que #
$Z # lors de l'execution du '$Z' que l'on est en train de generer et non pas lors de la dite #
$Z # generation... #
$Z else
$Z endif
$Z setParam _____SeuilMilieu 10
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$c #include <stdio.h>
$c
$c #define NA0 PremiereM
$c #define NA DerniereM
$c /* Nombre de couches a traiter... */
$c
$c int main()
$c {
$c int n;
$c
$c for (n=NA0 ; n<=NA ; n++)
$c {
$c printf("$xci/seuil$X
$c A=$_____imagesM.%04d
$c seuil=$_____SeuilMilieu
$c R=$xTV/BOITE.2.%04d
$c $formatI\n"
$c ,n
$c ,n-NA0
$c );
$c /* Generation du milieu dans l'ordre "naturel". Dans le cas ou l'on souhaiterait inverser */
$c /* le milieu (pour le rendre compatible avec 'v $xiird/ACIN.71.2.01 p=$xiP/trou_noir.94' */
$c /* par exemple), il suffirait de remplacer ci-dessus 'n-NA0' par '(NA-NA0)-(n-NA0)' et non */
$c /* pas d'agir sur l'option 'v _____xivPdf_09_2/.REFL.c.12.$U _____MilieuInverser' qui ne */
$c /* fait qu'inverser le milieu dans '$xrk/rdn_walk.52$X' mais sans l'inverser dans la */
$c /* generation des coordonnees qui precede dans 'v $xiird/.ACIN.H.12.$U'. */
$c }
$c }
#20160306185734____:$Z @ Zmin = $PremiereM - $PremiereM #
#20160306185734____:$Z @ Zmax = $DerniereM - $PremiereM #
$Z SET Zmin = `calcul $PremiereM - $PremiereM`
$Z SET Zmax = `calcul $DerniereM - $PremiereM`
$Z # La modification du 20160306185734 vient de 'v $xiad/$Fnota Debut_listG_ACIS_61' qui #
$Z # a mis en evidence qu'avec le '@' la variable '$Zmax' etait mal evaluee (et valait 511). #
$Z set _____ZminZmax="Zmin=$Zmin Zmax=$Zmax"
$Z SET ZminM=$Zmin
$Z SET ZmaxM=$Zmax