#######################################################################################################################################
#                                                                                                                                     #
#         R E P R E S E N T A T I O N   T R I D I M E N S I O N N E L L E   D ' E N T R E L A C S  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiav/.STRU.d3.4.1.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20111120084831).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$c                  #include  <stdio.h>
$c
$c                  #define   COND(c,v,f)         ((c) ? (v) : (f))
$c                  #define   MIN2(a,b)           COND(((a)<=(b)),(a),(b))
$c                  #define   MAX2(a,b)           COND(((a)>=(b)),(a),(b))
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c                  #define   P         cPas
$c                  #define   BorneInf  cBorneInf
$c                  #define   BorneSup  cBorneSup
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n=n+P)
$c                                      {
$c                                      printf("$xci/passe_bande$X
$c                                                                    A=$_____ImageT1
$c                                                                    forcer_niveau_intermediaire=VRAI
$c                                                                    niveau_intermediaire=$BLANC
$c                                                                    niveau_inferieur=$NOIR
$c                                                                    niveau_superieur=$NOIR
$c                                                                    seuil_inferieur=%d
$c                                                                    seuil_superieur=%d
$c                                                                    R=$_____ImageT1.%04d
$c                                                                                                  $formatI\n"
$c                                            ,MAX2(n-BorneInf,N0)
$c                                            ,MIN2(n+BorneSup,N)
$c                                            ,(N-n+N0)/P
$c                                             );
$c                                      /* On notera le "chevauchement" (via [n-BorneInf,n+BorneSup] au lieu du logique [n,n+1])     */
$c                                      /* des lignes de niveau extraites par '$xci/passe_bande$X' destine a eviter des trous noirs  */
$c                                      /* apparaissant dans l'accumulation finale et ce meme en utilisant "dx=4 dy=4 dz=4" dans le  */
$c                                      /* calcul de la densite...                                                                   */
$c                                      printf("execRVB     $xci/neutre$X
$c                                                                              A=$_____ImageA%%s
$c                                                                              R=$_____imagesS.%04d%%s
$c                                                                                                            $formatI\n"
$c                                            ,(N-n+N0)/P
$c                                             );
$c                                      }
$c                            }