#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   H Y P E R - C U B E  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HCUB.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Graine                   1

$Z                  setParam            _____Pas                      7

$Z                  setParam            _____BorneInf                 $GRIS_8

$Z                  setParam            _____BorneSup                 $GRIS_8

$Z                  setParam            _____Argument                 "$K_VIDE"

$Z                  source    $xrd/graph.01$vv$Y

$Z                  set       Graine=$_____Graine

$Z                  alias     ValRDN    '$xci/valeurs_alea$X                                                                           \\
$Z                                                 p=1 d=1                                                                             \\
$Z                                                 bi=$_____BorneInf bs=$_____BorneSup graine=$Graine                                  \\
$Z                                                 entiers=VRAI                                                                        \\
$Z                                                 message_borne_superieure_entiere=FAUX'
$Z                                      # L'indicateur "message_borne_superieure_entiere=" fut introduit le 20120220174046...         #
$Z
$Z                  alias     GC_A      'set       Cursor_ROUGE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       set       Cursor_VERTE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       set       Cursor_BLEUE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       G_A'
$Z                  alias     GC_B      'set       Cursor_ROUGE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       set       Cursor_VERTE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       set       Cursor_BLEUE=`ValRDN` ; @ Graine = $Graine + $_____Pas                         ;    \\
$Z                                       G_B'

#20130308092102____:$Z                  Pal                                                                                           #

$Z                  set       Echelle_K=0.1

$Z                  G_MIC     Cube_Origine

$Z                  set       Sommet1=1
$Z                  set       Sommet2=2
$Z                  set       Sommet3=3
$Z                  set       Sommet4=4
$Z                  set       ListeSommet=($Sommet1 $Sommet2 $Sommet3 $Sommet4)

$Z                  set       Face1=1
$Z                  set       Face2=2
$Z                  set       ListeFace=($Face1 $Face2)

$Z                  set       Cube1=1
$Z                  set       Cube2=2
$Z                  set       ListeCube=($Cube1 $Cube2)

$Z                  foreach   Cube ($ListeCube)
$Z                            G_MOC     Cube_Origine
$Z                            G_1
$Z                            G_4
$Z                            G_5

$Z                            foreach   Face ($ListeFace)
$Z                                      G_MIC     Cube_$Sommet1$Face$Cube
$Z                                      G_2 ; G_2
$Z                                      G_MIC     Cube_$Sommet2$Face$Cube
$Z                                      G_3 ; G_3
$Z                                      G_MIC     Cube_$Sommet3$Face$Cube
$Z                                      G_4 ; G_4
$Z                                      G_MIC     Cube_$Sommet4$Face$Cube

$Z                                      G_MOC     Cube_$Sommet1$Face$Cube
$Z                                      G_6 ; G_6
$Z                            end

$Z                            set       Echelle_K=`$xcg/MUL2.01$X a=2 b=$Echelle_K`
$Z                  end

$Z                  foreach   Cube ($ListeCube)
$Z                            foreach   Face ($ListeFace)
$Z                                      G_MOC     Cube_$Sommet1$Face$Cube ; GC_A
$Z                                      G_MOC     Cube_$Sommet2$Face$Cube ; GC_B
$Z                                      G_MOC     Cube_$Sommet3$Face$Cube ; GC_B
$Z                                      G_MOC     Cube_$Sommet4$Face$Cube ; GC_B
$Z                                      G_MOC     Cube_$Sommet1$Face$Cube ; GC_B
$Z                            end
$Z                  end

$Z                  foreach   Cube ($ListeCube)
$Z                            foreach   Sommet ($ListeSommet)
$Z                                      G_MOC     Cube_$Sommet$Face1$Cube ; GC_A
$Z                                      G_MOC     Cube_$Sommet$Face2$Cube ; GC_B
$Z                            end
$Z                  end

$Z                  foreach   Sommet ($ListeSommet)
$Z                            foreach   Face ($ListeFace)
$Z                                      G_MOC     Cube_$Sommet$Face$Cube1 ; GC_A
$Z                                      G_MOC     Cube_$Sommet$Face$Cube2 ; GC_B
$Z                            end
$Z                  end

$Z                  G_Genere  $_____ImageR        $_____Argument