#######################################################################################################################################
#                                                                                                                                     #
#         E X T R A C T I O N   D E S   L I G N E S   D E   N I V E A U   " D E C R O I S S A N T E S "   D ' U N E   I M A G E  :    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRB3.U2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20121212163416).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$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
$c                  #define   Noir      0
$c                  #define   Blanc     255
$c
$c                  #define   MNiveau1  MargeNiveau1
$c                  #define   MNiveau2  MargeNiveau2
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n=n+1)
$c                                      {
$c                                      int       niveau=(n-N0)/((N-N0+1)/(Blanc-Noir+1));
$c
$c                                      printf("$xci/passe_bande$X
$c                                                     A=$_____imageR
$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                                            ,Blanc-MIN2(niveau+MargeNiveau2,Blanc)
$c                                            ,Blanc-MAX2(niveau-MargeNiveau1,Noir)
$c                                            ,n
$c                                             );
$c                                      }
$c                            }