#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D U   P R O C E D E   D I A G O N A L   D E   C A N T O R  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.DIAG.11.$U' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20140807100045).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NiveauInitial            0

$Z                  FilSTmpB            FImAgE

$Z                  set                 NiVeAu_0=$GRIS_0
$Z                  set                 NiVeAu_1=$GRIS_8

$Z                  $xci/random.02$X                                                                                                    \
$Z                                      seuil=0.5                                                                                       \
$Z                                      niveau_du_fond=$NiVeAu_0                                                                        \
$Z                                      niveau_de_marquage=$NiVeAu_1                                                                    \
$Z                                      R=$FImAgE.1                                                                                     \
$Z                                                                              $formatI
$Z                                      # Generation d'une image aleatoire binaire visualisant les premieres "decimales" (binaires)   #
$Z                                      # du debut d'une hypothetique liste des nombres reels dans [0,1[ :                            #
$Z                                      #                                                                                             #
$Z                                      #                   noir    : bits 0,                                                         #
$Z                                      #                   gris    : bits 1.                                                         #
$Z                                      #                                                                                             #

$Z                  $xci/init$X                                                                                                         \
$Z                                      n=$NiVeAu_0                                                                                     \
$Z                                      R=$FImAgE.2                                                                                     \
$Z                                                                              $formatI

$Z                  $xci/init$X                                                                                                         \
$Z                                      n=$NiVeAu_0                                                                                     \
$Z                                      R=$FImAgE.4                                                                                     \
$Z                                                                              $formatI

$Z                  set                 NiVeAu_2=$GRIS_8

$Z                  set                 ItErEr=$EXIST
$Z                  set                 CoOrDoNnEe_X=$Xmin
$Z                  set                 CoOrDoNnEe_Y=$Ymax

$Z                  while               ($ItErEr == $EXIST)
$Z                                      $xci/S_point$X      A=$FImAgE.2                                                                 \
$Z                                                          X=$CoOrDoNnEe_X Y=$CoOrDoNnEe_Y                                             \
$Z                                                          niveau=$NiVeAu_2                                                            \
$Z                                                          R=$FImAgE.2                                                                 \
$Z                                                                                                  $formatI
$Z                                      # Generation de la diagonale.                                                                 #

$Z                                      @                   CoOrDoNnEe_X = $CoOrDoNnEe_X + 1
$Z                                      @                   CoOrDoNnEe_Y = $CoOrDoNnEe_Y - 1

$Z                                      if                  ($CoOrDoNnEe_X > $Xmax) then
$Z                                                          set                 ItErEr=$NEXIST
$Z                                      else
$Z                                      endif
$Z                  end

$Z        execRVB   $xci/scale$X                                                                                                        \
$Z                                      A=$FImAgE.1                                                                                     \
$Z                                      a=0.4                                                                                           \
$Z                                      R=$FImAgE.7%s                                                                                   \
$Z                                                                                                            $formatI

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$FImAgE.2                                                                                     \
$Z                                      R=$FImAgE.8$ROUGE                                                                               \
$Z                                                                              $formatI

$Z                  $xci/and$X                                                                                                          \
$Z                                      A1=$FImAgE.1                                                                                    \
$Z                                      A2=$FImAgE.2                                                                                    \
$Z                                      R=$FImAgE.8$VERTE                                                                               \
$Z                                                                              $formatI

$Z                  $xci/and$X                                                                                                          \
$Z                                      A1=$FImAgE.1                                                                                    \
$Z                                      A2=$FImAgE.2                                                                                    \
$Z                                      R=$FImAgE.8$BLEUE                                                                               \
$Z                                                                              $formatI

$Z        execRVB   $xci/maximum$X                                                                                                      \
$Z                                      A1=$FImAgE.7%s                                                                                  \
$Z                                      A2=$FImAgE.8%s                                                                                  \
$Z                                      R=$FImAgE.9%s                                                                                   \
$Z                                                                                                            $formatI
$Z                                      # Generation de la diagonale :                                                                #
$Z                                      #                                                                                             #
$Z                                      #                   rouge   : bits 0 de la diagonale,                                         #
$Z                                      #                   blanc   : bits 1 de la diagonale.                                         #
$Z                                      #                                                                                             #

$Z                  set                 RaPpOrT=8
$Z                  set                 ReDiMeNsIoNnEmEnT="mode=0 homothetie=VRAI facteur_homothetie=$RaPpOrT facteur_dimensions=VRAI"

$Z                  $CA                 $xcs/csh$Y                                                                                      \
$Z                                                                                                                      >  $FImAgE$Y
$Z                  $xci/format.01$X                                                                                                    \
$Z                                      A=$FImAgE.1                                                                                     \
$Z                                      $ReDiMeNsIoNnEmEnT                                                                              \
$Z                                      formatI=VRAI Prme=VRAI                                                                          \
$Z                                      R=$_____ImageR.1                                                                                \
$Z                                                                                                  $formatI                            \
$Z                                                                                                                      >> $FImAgE$Y

$Z        execRVB   $xci/format.01$X                                                                                                    \
$Z                                      A=$FImAgE.9%s                                                                                   \
$Z                                      $ReDiMeNsIoNnEmEnT                                                                              \
$Z                                      R=$_____ImageR.2%s                                                                              \
$Z                                                                                                  $formatI

$Z                  source              $FImAgE$Y
$Z                  formatI
$Z                                      # Mise en place du nouveau format "homothetique"...                                           #

$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      A=$_____ImageR.1                                                                                \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      mx=$RaPpOrT my=$RaPpOrT                                                                         \
$Z                                                                              $formatI                                          |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      a=0.5                                                                                           \
$Z                                      R=$_____ImageR.1                                                                                \
$Z                                                                              $formatI
$Z                                      # Encadrement de chacune des "decimales" (binaires)...                                        #

$Z        execRVB   $xci/grille.01$X                                                                                                    \
$Z                                      A=$_____ImageR.2%s                                                                              \
$Z                                      niveau=$NOIR                                                                                    \
$Z                                      denormalisees=VRAI                                                                              \
$Z                                      mx=$RaPpOrT my=$RaPpOrT                                                                         \
$Z                                      R=$_____ImageR.2%s                                                                              \
$Z                                                                              $formatI
$Z                                      # Encadrement de chacune des "decimales" (binaires)...                                        #

$Z                  FilSTmpE            FImAgE