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

$Z        setParam            _____SeuilInter               $GRIS_4

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/seuil$X
$c                                                     A=$_____ImageT2.%04d
$c                                                     seuil=$_____SeuilInter
$c                                                                              $formatI |
$c                                              $xci/and$X
$c                                                     A1=$_____ImageT3.%04d
$c                                                     R=$_____ImageT4.%04d
$c                                                                              $formatI\n"
$c                                            ,n
$c                                            ,n
$c                                            ,n
$c                                             );
$c                                      }
$c                            }