#######################################################################################################################################
#                                                                                                                                     #
#         E T U D E   E X H A U S T I V E   D U   P A R A D O X E   D E   S I M P S O N  :                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PARS.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20130418071428).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Palette                  $xiP/ParadoxeSimpson.21.22

$Z                  setParam            _____NPoints                  `calculINS pow(4*$RaPpOrT+1,2)`
$Z                                      # Formule destinee a bien encadrer de facon symetrique les points apres agrandissement et en  #
$Z                                      # en tenant compte de la grille...                                                            #

$Z                  setParam            _____Halo                     0.8


$Z                  XYmaxNe             $Xmax2 $Ymax2

$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      A=$_____ImageR                                                                                  \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                                 $formatI

$Z                  $DELETE             $_____ImageR

$Z                  $xci/luminance.01$X                                                                                                 \
$Z                                      A=$_____ImageR                                                                                  \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=250                                                                                       \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/dilate.01$X                                                                                                    \
$Z                                      dilater=VRAI                                                                                    \
$Z                                      points=$_____NPoints                                                                            \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      a=$_____Halo                                                                                    \
$Z                                      b=0                                                                                             \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      mx=$RaPpOrT my=$RaPpOrT                                                                         \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/bouche_trou$X                                                                                                  \
$Z                                                                                                                 $formatI       |     \
$Z                  $xci/dilate.01$X                                                                                                    \
$Z                                      eroder=VRAI                                                                                     \
$Z                                      points=9                                                                                        \
$Z                                      R=$xTV/PARS.VITRE                                                                               \
$Z                                                                                                                 $formatI

$Z        execRVB   $xci/grille.01$X                                                                                                    \
$Z                                      A=$_____ImageR%s                                                                                \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      mx=$RaPpOrT my=$RaPpOrT                                                                         \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                                 $formatI

$Z        execRVB   $xci/vitre.11$X                                                                                                     \
$Z                                      A=$_____ImageR%s                                                                                \
$Z                                      V=$xTV/PARS.VITRE                                                                               \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                                 $formatI