#######################################################################################################################################
# #
# 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/.RVB.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20160712095013). #
# #
#######################################################################################################################################
$Z setParam _____RotationX `GetParam $xrv/particule.10$X ROTATION_OX`
$Z setParam _____RotationY `GetParam $xrv/particule.10$X ROTATION_OY`
$Z setParam _____RotationZ `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z setParam _____Zoom 0.7
$Z setParam _____DistanceMini 0.005
$Z setParam _____Grossissement 2.0
$Z setParam _____ParticulePara "$K_VIDE"
$Z FilSTmpB FSoMmEtS
$Z alias GSoMmEtS 'set SoMmEt_X=\!:1 ; \\
$Z set SoMmEt_Y=\!:2 ; \\
$Z set SoMmEt_Z=\!:3 ; \\
$Z set SoMmEt_ROUGE=\!:4 ; \\
$Z set SoMmEt_VERTE=\!:5 ; \\
$Z set SoMmEt_BLEUE=\!:6 ; \\
$Z set SoMmEt_RAYON=\!:7 ; \\
$Z echo "$SoMmEt_X" >>! $FSoMmEtS$COORD_X ; \\
$Z echo "$SoMmEt_Y" >>! $FSoMmEtS$COORD_Y ; \\
$Z echo "$SoMmEt_Z" >>! $FSoMmEtS$COORD_Z ; \\
$Z echo "$SoMmEt_ROUGE" >>! $FSoMmEtS$ROUGE ; \\
$Z echo "$SoMmEt_VERTE" >>! $FSoMmEtS$VERTE ; \\
$Z echo "$SoMmEt_BLEUE" >>! $FSoMmEtS$BLEUE ; \\
$Z echo "$SoMmEt_RAYON" >>! $FSoMmEtS$RAYON ; \\
$Z unset SoMmEt_X SoMmEt_Y SoMmEt_Z ; \\
$Z unset SoMmEt_ROUGE SoMmEt_VERTE SoMmEt_BLEUE ; \\
$Z unset SoMmEt_RAYON'
$Z # Generation d'un sommet du cube RVB... #
$Z set NoIr__X=0
$Z set NoIr__Y=0
$Z set NoIr__Z=1
$Z set NoIr__ROUGE=$GRIS_2
$Z set NoIr__VERTE=$GRIS_2
$Z set NoIr__BLEUE=$GRIS_2
$Z set RoUgE_X=1
$Z set RoUgE_Y=0
$Z set RoUgE_Z=1
$Z set RoUgE_ROUGE=$GRIS_8
$Z set RoUgE_VERTE=$GRIS_0
$Z set RoUgE_BLEUE=$GRIS_0
$Z set VeRtE_X=0
$Z set VeRtE_Y=1
$Z set VeRtE_Z=1
$Z set VeRtE_ROUGE=$GRIS_0
$Z set VeRtE_VERTE=$GRIS_8
$Z set VeRtE_BLEUE=$GRIS_0
$Z set BlEuE_X=0
$Z set BlEuE_Y=0
$Z set BlEuE_Z=0
$Z set BlEuE_ROUGE=$GRIS_0
$Z set BlEuE_VERTE=$GRIS_0
$Z set BlEuE_BLEUE=$GRIS_8
$Z set RaYoN_0=0.01
$Z set RaYoN_1=0.02
$Z set RaYoN_2=0.04
$Z set RaYoN_3=0.06
$Z GSoMmEtS $NoIr__X $NoIr__Y $NoIr__Z $NoIr__ROUGE $NoIr__VERTE $NoIr__BLEUE $RaYoN_0
$Z GSoMmEtS $RoUgE_X $RoUgE_Y $RoUgE_Z $RoUgE_ROUGE $RoUgE_VERTE $RoUgE_BLEUE $RaYoN_1
$Z # Generation de l'arete NOIR-ROUGE. #
$Z GSoMmEtS $NoIr__X $NoIr__Y $NoIr__Z $NoIr__ROUGE $NoIr__VERTE $NoIr__BLEUE $RaYoN_0
$Z GSoMmEtS $VeRtE_X $VeRtE_Y $VeRtE_Z $VeRtE_ROUGE $VeRtE_VERTE $VeRtE_BLEUE $RaYoN_1
$Z # Generation de l'arete NOIR-VERTE. #
$Z GSoMmEtS $NoIr__X $NoIr__Y $NoIr__Z $NoIr__ROUGE $NoIr__VERTE $NoIr__BLEUE $RaYoN_0
$Z GSoMmEtS $BlEuE_X $BlEuE_Y $BlEuE_Z $BlEuE_ROUGE $BlEuE_VERTE $BlEuE_BLEUE $RaYoN_1
$Z # Generation de l'arete NOIR-BLEUE. #
$Z GSoMmEtS $RoUgE_X $RoUgE_Y $RoUgE_Z $RoUgE_ROUGE $RoUgE_VERTE $RoUgE_BLEUE $RaYoN_1
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $NoIr__Z $RoUgE_ROUGE $VeRtE_VERTE $GRIS_0 $RaYoN_2
$Z # Generation de l'arete ROUGE-JAUNE. #
$Z GSoMmEtS $VeRtE_X $VeRtE_Y $VeRtE_Z $VeRtE_ROUGE $VeRtE_VERTE $VeRtE_BLEUE $RaYoN_1
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $NoIr__Z $RoUgE_ROUGE $VeRtE_VERTE $GRIS_0 $RaYoN_2
$Z # Generation de l'arete VERTE-JAUNE. #
$Z GSoMmEtS $VeRtE_X $VeRtE_Y $VeRtE_Z $VeRtE_ROUGE $VeRtE_VERTE $VeRtE_BLEUE $RaYoN_1
$Z GSoMmEtS $NoIr__X $VeRtE_Y $BlEuE_Z $GRIS_0 $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_2
$Z # Generation de l'arete VERTE-CYAN. #
$Z GSoMmEtS $BlEuE_X $BlEuE_Y $BlEuE_Z $BlEuE_ROUGE $BlEuE_VERTE $BlEuE_BLEUE $RaYoN_1
$Z GSoMmEtS $NoIr__X $VeRtE_Y $BlEuE_Z $GRIS_0 $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_2
$Z # Generation de l'arete BLEUE-CYAN. #
$Z GSoMmEtS $BlEuE_X $BlEuE_Y $BlEuE_Z $BlEuE_ROUGE $BlEuE_VERTE $BlEuE_BLEUE $RaYoN_1
$Z GSoMmEtS $RoUgE_X $NoIr__Y $BlEuE_Z $RoUgE_ROUGE $GRIS_0 $BlEuE_BLEUE $RaYoN_2
$Z # Generation de l'arete BLEUE-MAGENTA. #
$Z GSoMmEtS $RoUgE_X $RoUgE_Y $RoUgE_Z $RoUgE_ROUGE $RoUgE_VERTE $RoUgE_BLEUE $RaYoN_1
$Z GSoMmEtS $RoUgE_X $NoIr__Y $BlEuE_Z $RoUgE_ROUGE $GRIS_0 $BlEuE_BLEUE $RaYoN_2
$Z # Generation de l'arete ROUGE-MAGENTA. #
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $NoIr__Z $RoUgE_ROUGE $VeRtE_VERTE $GRIS_0 $RaYoN_2
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $BlEuE_Z $RoUgE_ROUGE $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_3
$Z # Generation de l'arete JAUNE-BLANC. #
$Z GSoMmEtS $NoIr__X $VeRtE_Y $BlEuE_Z $GRIS_0 $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_2
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $BlEuE_Z $RoUgE_ROUGE $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_3
$Z # Generation de l'arete CYAN-BLANC. #
$Z GSoMmEtS $RoUgE_X $NoIr__Y $BlEuE_Z $RoUgE_ROUGE $GRIS_0 $BlEuE_BLEUE $RaYoN_2
$Z GSoMmEtS $RoUgE_X $VeRtE_Y $BlEuE_Z $RoUgE_ROUGE $VeRtE_VERTE $BlEuE_BLEUE $RaYoN_3
$Z # Generation de l'arete MAGENTA-BLANC. #
$Z set NPoInTsX=`$CA $FSoMmEtS$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FSoMmEtS$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $FSoMmEtS$COORD_Z | $WCl`
#20220615103606____:$Z set NPoInTs=`$xcg/MAX3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` #
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=$_____RotationX"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OY=$_____RotationY"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OZ=$_____RotationZ"
$Z set ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_au_carre=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParticulePara"
$Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0"
$Z $xrv/particule.10$X npoints=$NPoInTs \
$Z LISTE_X=$FSoMmEtS$COORD_X \
$Z LISTE_Y=$FSoMmEtS$COORD_Y \
$Z LISTE_Z=$FSoMmEtS$COORD_Z \
$Z LISTE_ROUGE=$FSoMmEtS$ROUGE \
$Z LISTE_VERTE=$FSoMmEtS$VERTE \
$Z LISTE_BLEUE=$FSoMmEtS$BLEUE \
$Z LISTE_RAYON=$FSoMmEtS$RAYON \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z grossissement=$_____Grossissement \
$Z $ArGuMeNtS \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FSoMmEtS
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.