#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E I M A G E P A R E X T R A C T I O N D E #
# P O I N T S S I N G U L I E R D A N S U N E I M A G E : #
# #
# #
# Author of '$xiirv/.ENTR.A1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20051209110618). #
# #
#######################################################################################################################################
$Z if ($?_____Seuil == $NEXIST) then
$Z @ _____Seuil = $BLANC - 1
$Z # Parametre introduit le 20051209114126... #
$Z else
$Z endif
$Z $xci/acces$X \
$Z A=$_____ImageA \
$Z renormaliser=VRAI \
$Z $formatI | \
$Z $xci/seuil$X \
$Z seuil=$_____Seuil \
$Z R=$xTV/POINTS_1 \
$Z $formatI
$Z $DELETE $xTV/GRAVITE
$Z $xci/contours.11$Z \
$Z $xTV/POINTS_1 \
$Z $xTV/POINTS_2 \
$Z $GRIS_4 \
$Z FAUX VRAI \
$Z |& \
$Z $GRE -v '^ *$' \
$Z > $xTV/GRAVITE
$Z $DELETE $xTV/GRAVITE$COORD_X
$Z $DELETE $xTV/GRAVITE$COORD_Y
$Z $CA $xTV/GRAVITE | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $xTV/GRAVITE$COORD_X
$Z $CA $xTV/GRAVITE | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $xTV/GRAVITE$COORD_Y
$Z $xrv/store_image$X ne=0 \
$Z LISTE_X=$xTV/GRAVITE$COORD_X \
$Z LISTE_Y=$xTV/GRAVITE$COORD_Y \
$Z R=$_____ImageR \
$Z $formatI
$Z $DELETE $xTV/GRAVITE
$Z $DELETE $xTV/GRAVITE$COORD_X
$Z $DELETE $xTV/GRAVITE$COORD_Y