#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   G R I L L E  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirC/.OBJC.SEGMENTATION.1.$U' :                                                                                #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20150911123754).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            RImAgEs

$Z                  set                 DiLaTe=25
$Z                  set                 FaCtEuR=0.5

$Z                  set                 MaIlLe_X=`calcul $dimX/4`
$Z                  set                 MaIlLe_Y=`calcul $dimY/4`
$Z                  set                 TrAnSlAtIoN_X=`calcul -1/$dimX`
$Z                  set                 TrAnSlAtIoN_Y=`calcul -1/$dimY`

$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      A=$NOIR                                                                                         \
$Z                                      mx=$MaIlLe_X        my=$MaIlLe_Y                                                                \
$Z                                      ox=0                oy=0                                                                        \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      mx=$MaIlLe_X        my=$MaIlLe_Y                                                                \
$Z                                      ox=$TrAnSlAtIoN_X   oy=$TrAnSlAtIoN_Y                                                           \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/dilate.01$X                                                                                                    \
$Z                                      dilater=VRAI                                                                                    \
$Z                                      points=$DiLaTe                                                                                  \
$Z                                      R=$RImAgEs                                                                                      \
$Z                                                                                                  $formatI

$Z                  $xci/dilate.01$X                                                                                                    \
$Z                                      A=$RImAgEs                                                                                      \
$Z                                      dilater=VRAI                                                                                    \
$Z                                      points=9                                                                                        \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                      R=$RImAgEs.MASQUE                                                                               \
$Z                                                                                                  $formatI

$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$RImAgEs                                                                                      \
$Z                                      a=$FaCtEuR                                                                                      \
$Z                                      R=$RImAgEs                                                                                      \
$Z                                                                                                  $formatI

$Z        execRVB  "$xci/and$X                                                                                                          \
$Z                                      A1=$_____imageR%s                                                                               \
$Z                                      A2=$RImAgEs.MASQUE                                                                              \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/or_02$X                                                                                                        \
$Z                                      A2=$RImAgEs                                                                                     \
$Z                                      R=$_____imageR%s                                                                                \
$Z                                                                                                            $formatI"

$Z                  FilSTmpE            RImAgEs