#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   R E S E A U   C U B I Q U E                                                                 #
#         D E   V A R I E T E S   D E   C A L A B I - Y A U   4 - D I M E N S I O N N E L L E S  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.G1.0129.4.$U' :                                                                                     #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20110712120509).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Homothetie               0.2

$Z        set       N_Noeuds=`$xcg/MIN3.01$X x=$#Noeuds_X y=$#Noeuds_Y z=$#Noeuds_Z`
$Z        set       PaRaMeTrEs="premiere=1 derniere=$N_Noeuds vD=1 vA=$N_Noeuds"
$Z        set       L_Noeuds=`$xci/valeurs_inte$X A="$K_VIDE" $PaRaMeTrEs lineaire=VRAI signe="$K_VIDE"`
$Z        unset     PaRaMeTrEs

$Z        foreach   C_Noeud   ($L_Noeuds)
$Z                                      # L'option "SignalerAbortNonAllocation=FAUX" a ete introduite le 20200727115924 suite         #
$Z                                      # a 'v $xiirs/.CAYA.11.3.$U 20200727112534' qui fait que les fichiers arguments ci-apres      #
$Z                                      # peuvent donc etre vides...                                                                  #
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            a=$_____Homothetie                                                                                        \
$Z                            fichier=$xTV/COORDONNEES$COORD_X                                                                          \
$Z                            b=`calcul $Noeuds_X[$C_Noeud]-($_____Homothetie/2)`                                                       \
$Z                                                                                                  >>! $LiStE_ReSeAu$COORD_X
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            a=$_____Homothetie                                                                                        \
$Z                            fichier=$xTV/COORDONNEES$COORD_Y                                                                          \
$Z                            b=`calcul $Noeuds_Y[$C_Noeud]-($_____Homothetie/2)`                                                       \
$Z                                                                                                  >>! $LiStE_ReSeAu$COORD_Y
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            a=$_____Homothetie                                                                                        \
$Z                            fichier=$xTV/COORDONNEES$COORD_Z                                                                          \
$Z                            b=`calcul $Noeuds_Z[$C_Noeud]-($_____Homothetie/2)`                                                       \
$Z                                                                                                  >>! $LiStE_ReSeAu$COORD_Z
$Z                  $xrv/neutre$X                                                                                                       \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/COULEURS$ROUGE                                                                               \
$Z                                                                                                  >>! $LiStE_ReSeAu$ROUGE
$Z                  $xrv/neutre$X                                                                                                       \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/COULEURS$VERTE                                                                               \
$Z                                                                                                  >>! $LiStE_ReSeAu$VERTE
$Z                  $xrv/neutre$X                                                                                                       \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/COULEURS$BLEUE                                                                               \
$Z                                                                                                  >>! $LiStE_ReSeAu$BLEUE
$Z                  $xrv/neutre$X                                                                                                       \
$Z                            SignalerAbortNonAllocation=FAUX                                                                           \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/RAYONS                                                                                       \
$Z                                                                                                  >>! $LiStE_ReSeAu.r
$Z        end

$Z        $DELETE   $xTV/COORDONNEES$COORD_X
$Z        $DELETE   $xTV/COORDONNEES$COORD_Y
$Z        $DELETE   $xTV/COORDONNEES$COORD_Z
$Z        $DELETE   $xTV/COULEURS$ROUGE
$Z        $DELETE   $xTV/COULEURS$VERTE
$Z        $DELETE   $xTV/COULEURS$BLEUE
$Z        $DELETE   $xTV/RAYONS

$Z        $MV       $LiStE_ReSeAu$COORD_X $xTV/COORDONNEES$COORD_X
$Z        $MV       $LiStE_ReSeAu$COORD_Y $xTV/COORDONNEES$COORD_Y
$Z        $MV       $LiStE_ReSeAu$COORD_Z $xTV/COORDONNEES$COORD_Z
$Z        $MV       $LiStE_ReSeAu$ROUGE $xTV/COULEURS$ROUGE
$Z        $MV       $LiStE_ReSeAu$VERTE $xTV/COULEURS$VERTE
$Z        $MV       $LiStE_ReSeAu$BLEUE $xTV/COULEURS$BLEUE
$Z        $MV       $LiStE_ReSeAu.r $xTV/RAYONS

$Z        set       NPointsX=`$CA $xTV/COORDONNEES$COORD_X | $WCl`
$Z        set       NPointsY=`$CA $xTV/COORDONNEES$COORD_Y | $WCl`
$Z        set       NPointsZ=`$CA $xTV/COORDONNEES$COORD_Z | $WCl`
$Z        set       NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`