#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E L I G N E D E C O T E : #
# #
# #
# Author of '$xivP/disk.000000014/face.1/.BALD.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z Pal
$Z set _____imagesT=$xTV/BALD
$Z $DELETE $_____imagesT.* >& $nul
$Z $xu/Baldassarri.A/sqetch$X >& $nul
$Z # Avant le 20011129085740 la hauteur initiale de la mer (en bas des images) valait 1 #
$Z # ('v $xu/Baldassarri.A/init.F hauteur'). #
$Z set Nombre=`ll $_____imagesT.* | $WCl`
$Z set Premiere = 1
$Z @ Derniere = $Nombre + $Premiere
$Z @ Derniere = $Derniere - 1
$Z set Liste=`$xci/nombres$X A="$K_VIDE" premiere=$Premiere derniere=$Derniere`
$Z set Ftemporaire=`GetXTmp "$K_VIDE" "$K_VIDE" $xTV`
$Z foreach Numero ($Liste)
$Z $DELETE $Ftemporaire
$Z $CA $_____imagesT.$Numero \
$Z | $AW ' { print $1 } ' \
$Z > $Ftemporaire
$Z $xcg/ascii_Float$X \
$Z A=$Ftemporaire \
$Z $formatI \
$Z | $xci/acces$X \
$Z standard=FAUX \
$Z extrema=FAUX tronquer=FAUX minimum=$NOIR maximum=$BLANC \
$Z R=$_____images.$Numero$ROUGE \
$Z $formatI
$Z # Avant le 20011129090158 il n'y avait que 'zero=FAUX', ce qui faisait que les images etaient #
$Z # renormalisees independamment les unes des autres ('v _____xivPdf_14_1/014368_014454'). #
$Z $DELETE $Ftemporaire
$Z $CA $_____imagesT.$Numero \
$Z | $AW ' { print $2 } ' \
$Z > $Ftemporaire
$Z $xcg/ascii_Float$X \
$Z A=$Ftemporaire \
$Z $formatI \
$Z | $xci/acces$X \
$Z standard=FAUX \
$Z extrema=FAUX tronquer=FAUX minimum=$NOIR maximum=$BLANC \
$Z R=$_____images.$Numero$VERTE \
$Z $formatI
$Z # Avant le 20011129090158 il n'y avait que 'zero=FAUX', ce qui faisait que les images etaient #
$Z # renormalisees independamment les unes des autres ('v _____xivPdf_14_1/014368_014454'). #
$Z $DELETE $Ftemporaire
$Z $CA $_____imagesT.$Numero \
$Z | $AW ' { print $3 } ' \
$Z > $Ftemporaire
$Z $xcg/ascii_Float$X \
$Z A=$Ftemporaire \
$Z $formatI \
$Z | $xci/acces$X \
$Z standard=FAUX \
$Z extrema=FAUX tronquer=FAUX minimum=$NOIR maximum=$BLANC \
$Z R=$_____images.$Numero$BLEUE \
$Z $formatI
$Z # Avant le 20011129090158 il n'y avait que 'zero=FAUX', ce qui faisait que les images etaient #
$Z # renormalisees independamment les unes des autres ('v _____xivPdf_14_1/014368_014454'). #
$Z end
$Z $DELETE $_____imagesT.* >& $nul