#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   V A R I E T E   D E   C A L A B I - Y A U   8 - D I M E N S I O N N E L L E  :            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.R3.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (20230212100928).                                                                         #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Graine                   1789

$Z                  setParam            _____Majoration               0.2
$Z                                      # Le parametre '$_____Majoration' doit etre dans [0,1]. Plus il est proche de 0 et plus le    #
$Z                                      # nombre de '0's sera important par rapport au nombre de '1's. Or il est preferable d'etre    #
$Z                                      # dans ce cas pour eviter une variete trop "compliquee"...                                    #

$Z                  setParam            _____ProjectionOX             "xR1=1 xI1=0 xJ1=0 xK1=0 xR2=0 xI2=1 xJ2=0 xK2=0"
$Z                  setParam            _____ProjectionOY             "yR1=0 yI1=1 yJ1=0 yK1=0 yR2=0 yI2=1 yJ2=0 yK2=0"
$Z                  setParam            _____ProjectionOZ             "zR1=0 zI1=0 zJ1=0 zK1=0 zR2=1 zI2=1 zJ2=0 zK2=0"

$Z                  FilSTmpB            FPrOjEc_1
$Z                  FilSTmpB            FEn_TeTe_
$Z                  FilSTmpB            FCoEfFs_1

$Z                  echo                "$_____ProjectionOX"                                                                      |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                                                            >  $FPrOjEc_1$COORD_X

$Z                  $CA                 $FPrOjEc_1$COORD_X                                                                        |     \
$Z                  $SE                 -e 's/\(=\).*$/\1/'                                                                             \
$Z                                                                                                            >  $FEn_TeTe_$COORD_X

$Z                  $CA                 $FPrOjEc_1$COORD_X                                                                        |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_1$COORD_X

$Z                  echo                "$_____ProjectionOY"                                                                      |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                                                            >  $FPrOjEc_1$COORD_Y

$Z                  $CA                 $FPrOjEc_1$COORD_Y                                                                        |     \
$Z                  $SE                 -e 's/\(=\).*$/\1/'                                                                             \
$Z                                                                                                            >  $FEn_TeTe_$COORD_Y

$Z                  $CA                 $FPrOjEc_1$COORD_Y                                                                        |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_1$COORD_Y

$Z                  echo                "$_____ProjectionOZ"                                                                      |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                                                            >  $FPrOjEc_1$COORD_Z

$Z                  $CA                 $FPrOjEc_1$COORD_Z                                                                        |     \
$Z                  $SE                 -e 's/\(=\).*$/\1/'                                                                             \
$Z                                                                                                            >  $FEn_TeTe_$COORD_Z

$Z                  $CA                 $FPrOjEc_1$COORD_Z                                                                        |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_1$COORD_Z

$Z                  set                 NoMbRe_X__=`$CA $FPrOjEc_1$COORD_X | $WCl`
$Z                  set                 NoMbRe_Y__=`$CA $FPrOjEc_1$COORD_Y | $WCl`
$Z                  set                 NoMbRe_Z__=`$CA $FPrOjEc_1$COORD_Z | $WCl`

$Z                  set                 NoMbRe_XYZ=`$xcg/MIN3.01$X x=$NoMbRe_X__ y=$NoMbRe_Y__ z=$NoMbRe_Z__`

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" premiere=1"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" derniere=$NoMbRe_XYZ"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" inferieur=0"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" superieur=1"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" entiers=VRAI"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" majoration=$_____Majoration"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" message_borne_superieure_entiere=FAUX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" signe="$K_VIDE""

$Z                  FilSTmpB            FCoEfFs_2

$Z                  set                 GrAiNe=$_____Graine

$Z                  $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe                                                                 |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_2$COORD_X

$Z                  @                   GrAiNe = $GrAiNe + 1

$Z                  $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe                                                                 |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_2$COORD_Y

$Z                  @                   GrAiNe = $GrAiNe + 1

$Z                  $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe                                                                 |     \
$Z                  $SE                 -e 's/^.*=//'                                                                                   \
$Z                                                                                                            >  $FCoEfFs_2$COORD_Z

$Z                  FilSTmpB            FCoEfFs_3

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" formater=VRAI"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" entier=VRAI"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" signe="$K_VIDE""

$Z                  $xrv/MAX2.11$X      ne=$NoMbRe_XYZ                                                                                  \
$Z                                      fichier1=$FCoEfFs_1$COORD_X                                                                     \
$Z                                      fichier2=$FCoEfFs_2$COORD_X                                                                     \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                                                                                            >  $FCoEfFs_3$COORD_X

$Z                  $xrv/MAX2.11$X      ne=$NoMbRe_XYZ                                                                                  \
$Z                                      fichier1=$FCoEfFs_1$COORD_Y                                                                     \
$Z                                      fichier2=$FCoEfFs_2$COORD_Y                                                                     \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                                                                                            >  $FCoEfFs_3$COORD_Y

$Z                  $xrv/MAX2.11$X      ne=$NoMbRe_XYZ                                                                                  \
$Z                                      fichier1=$FCoEfFs_1$COORD_Z                                                                     \
$Z                                      fichier2=$FCoEfFs_2$COORD_Z                                                                     \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                                                                                            >  $FCoEfFs_3$COORD_Z

$Z                  FilSTmpB            FPrOjEc_2

$Z                  $PAST               $FEn_TeTe_$COORD_X $FCoEfFs_3$COORD_X                                                     |     \
$Z                  $AW                 ' { print $1 $2 } '                                                                             \
$Z                                                                                                            >  $FPrOjEc_2$COORD_X

$Z                  $PAST               $FEn_TeTe_$COORD_Y $FCoEfFs_3$COORD_Y                                                     |     \
$Z                  $AW                 ' { print $1 $2 } '                                                                             \
$Z                                                                                                            >  $FPrOjEc_2$COORD_Y

$Z                  $PAST               $FEn_TeTe_$COORD_Z $FCoEfFs_3$COORD_Z                                                     |     \
$Z                  $AW                 ' { print $1 $2 } '                                                                             \
$Z                                                                                                            >  $FPrOjEc_2$COORD_Z

$Z                  set                 _____ProjectionOX=`$CA $FPrOjEc_2$COORD_X`
$Z                  set                 _____ProjectionOY=`$CA $FPrOjEc_2$COORD_Y`
$Z                  set                 _____ProjectionOZ=`$CA $FPrOjEc_2$COORD_Z`

$Z                  echo                "_____ProjectionOX=$K_QD$_____ProjectionOX$K_QD"
$Z                  echo                "_____ProjectionOY=$K_QD$_____ProjectionOY$K_QD"
$Z                  echo                "_____ProjectionOZ=$K_QD$_____ProjectionOZ$K_QD"

$Z                  set                 PoStFiXe_X=`$CA $FCoEfFs_3$COORD_X`
$Z                  set                 PoStFiXe_Y=`$CA $FCoEfFs_3$COORD_Y`
$Z                  set                 PoStFiXe_Z=`$CA $FCoEfFs_3$COORD_Z`

$Z                  set                 _____Postfixe=`echo "$PoStFiXe_X"".""$PoStFiXe_Y"".""$PoStFiXe_Z" | $SE -e "s/ //"g`

$Z                  echo                "_____Postfixe=$K_QD$_____Postfixe$K_QD"

$Z                  FilSTmpE            FPrOjEc_2

$Z                  FilSTmpE            FCoEfFs_3
$Z                  FilSTmpE            FCoEfFs_2

$Z                  FilSTmpE            FCoEfFs_1
$Z                  FilSTmpE            FEn_TeTe_
$Z                  FilSTmpE            FPrOjEc_1