#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D E   P I   ( E N   B A S E   2 )               #
#         C O M M E   U N E   I M A G E   B I N A I R E   D ' U N E   D I F F U S I O N   B I D I M E N S I O N N E L L E  :          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.G1.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20140205184152).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  eval      $_____FoRmAt

$Z                  setenv    xTV       $xTG

$Z                  SET       _____Premiere=1
$Z                  SET       _____Derniere=1
$Z                  set       NuMeRos=`$xci/nombres$X A="$K_VIDE" p=$_____Premiere d=$_____Derniere`

$Z                  set       DiFfUsIoN=$xTV/DIFF.d
$Z                  set       _____images=$xTV/DIFF.1

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$_____ImageR                                                                                  \
$Z                                      R=$DiFfUsIoN.$NuMeRos                                                                           \
$Z                                                                                                                      $formatI

$Z                  set       _____X___Mer=$Xmin
$Z                  set       _____Y___Mer=$Ymax
$Z                  set       _____X_Terre=$Xmin
$Z                  set       _____Y_Terre=$Ymin

$Z                  set       FoRmAtR="formatR_""$_____FoRmAt"
$Z                  set       FoRmAtR=`eval echo "$K_DOLLAR$FoRmAtR"`