#######################################################################################################################################
# #
# M I S E E N P L A C E D ' U N F O N D : #
# #
# #
# Author of '$xiirv/.PIPO.31.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240608095310). #
# #
#######################################################################################################################################
$Z SETParam _____EpaisseurXY 0
$Z SETParam _____EpaisseurZ 2
$Z # Il semblerait que l'epaisseur de l'arriere-plan des ombres portees du reste de l'objet #
$Z # doive faire plus d'un point d'epaisseur (d'ou le 2 par defaut...). #
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c #define EPAISSEUR _____EpaisseurZ
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c if (n < (N-EPAISSEUR+1))
$c {
$c printf("$xci/cadre$X
$c A=$_____ImageT1.%04d
$c niveau=$BLANC
$c epaisseur=$_____EpaisseurXY
$c R=$_____ImageT1.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("execRVB $xci/cadre$X
$c A=$_____ImageS.%04d%%s
$c niveau=$BLANC
$c epaisseur=$_____EpaisseurXY
$c R=$_____ImageS.%04d%%s
$c $formatI\n"
$c ,n
$c ,n
$c );
$c }
$c else
$c {
$c printf("$xci/init$X
$c niveau=$BLANC
$c $formatI |
$c $xci/cadre$X
$c niveau=$NOIR
$c epaisseur=$_____EpaisseurXY
$c R=$_____ImageT1.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("execRVB %c$xci/init$X
$c niveau=$BLANC
$c $formatI |
$c $xci/cadre$X
$c niveau=$NOIR
$c epaisseur=$_____EpaisseurXY
$c R=$_____ImageS.%04d%%s
$c $formatI%c\n"
$c ,'"'
$c ,n
$c ,'"'
$c );
$c }
$c }
$c
$c }