#######################################################################################################################################
# #
# G E N E R A T I O N D E D E U X C O R P S C E L E S T E S : #
# #
# #
# Author of '$xiirs/.PROJ.54.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20160412101133). #
# #
#######################################################################################################################################
$Z setParam _____RotationX -1.2
$Z setParam _____Zoom 1.0
$Z setParam _____GSphereR1 0.25
$Z setParam _____GSphereR2 0.012
$Z setParam _____GSpherePu 1.795195802051311
$Z setParam _____GSphereEu 20
$Z setParam _____GSphereDpu 160
$Z setParam _____GSpherePv 1.795195802051311
$Z setParam _____GSphereEv 20
$Z setParam _____GSphereDpv 160
$Z setParam _____GSphereTX 0.0
$Z setParam _____GSphereTZ 0.4
$Z setParam _____GSphereROUGE `calcul $GRIS_8/$GRIS_8`
$Z setParam _____GSphereVERTE `calcul $GRIS_6/$GRIS_8`
$Z setParam _____GSphereBLEUE `calcul $GRIS_0/$GRIS_8`
$Z setParam _____PSphereR1 0.10
$Z setParam _____PSphereR2 0.012
$Z setParam _____PSpherePu 1.795195802051311
$Z setParam _____PSphereEu 20
$Z setParam _____PSphereDpu 160
$Z setParam _____PSpherePv 1.795195802051311
$Z setParam _____PSphereEv 20
$Z setParam _____PSphereDpv 160
$Z setParam _____PSphereTX 0.4
$Z setParam _____PSphereTY 0
$Z setParam _____PSphereTZ 0.4
$Z setParam _____PSphereROUGE `calcul $GRIS_0/$GRIS_8`
$Z setParam _____PSphereVERTE `calcul $GRIS_7/$GRIS_8`
$Z setParam _____PSphereBLEUE `calcul $GRIS_8/$GRIS_8`
$Z setParam _____NAuCarre FAUX
$Z setParam _____DepthCueing 0.2
$Z # Parametre introduit le 20160413091328... #
$Z # #
$Z # On rappelle que : #
$Z # #
$Z # _____DepthCueing=1 : pas de depth-cueing, #
$Z # _____DepthCueing=0 : depth-cueing maximal. #
$Z # #
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" centre_des_spheres=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" RVB=FAUX colorier_N_et_B=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_AU_CARRE=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" lister_les_points=VRAI lister_les_points_apres=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0"
$Z FilSTmpB GSpHeRe
$Z $xrs/sphere.11$X \
$Z np=1 brume=FAUX \
$Z PARAMETRE_R=$_____GSphereR1 \
$Z pu=$_____GSpherePu pv=$_____GSpherePv \
$Z eu=$_____GSphereEu ev=$_____GSphereEv \
$Z dpu=$_____GSphereDpu dpv=$_____GSphereDpv \
$Z r=$_____GSphereR2 \
$Z ZOOM=1 \
$Z ROTATION_OX=0 \
$Z TRANSLATION_OX=$_____GSphereTX \
$Z TRANSLATION_OZ=$_____GSphereTZ \
$Z RVB_R=$_____GSphereROUGE RVB_V=$_____GSphereVERTE RVB_B=$_____GSphereBLEUE \
$Z $ArGuMeNtS \
$Z R=$GSpHeRe \
$Z $formatI \
$Z >> $GSpHeRe
$Z # Definition de la Grande Sphere. #
$Z FilSTmpB PSpHeRe
$Z $xrs/sphere.11$X \
$Z np=1 brume=FAUX \
$Z PARAMETRE_R=$_____PSphereR1 \
$Z pu=$_____PSpherePu pv=$_____PSpherePv \
$Z eu=$_____PSphereEu ev=$_____PSphereEv \
$Z dpu=$_____PSphereDpu dpv=$_____PSphereDpv \
$Z r=$_____PSphereR2 \
$Z ZOOM=1 \
$Z ROTATION_OX=0 \
$Z TRANSLATION_OX=$_____PSphereTX \
$Z TRANSLATION_OY=$_____PSphereTY \
$Z TRANSLATION_OZ=$_____PSphereTZ \
$Z RVB_R=$_____PSphereROUGE RVB_V=$_____PSphereVERTE RVB_B=$_____PSphereBLEUE \
$Z $ArGuMeNtS \
$Z R=$PSpHeRe \
$Z $formatI \
$Z >> $PSpHeRe
$Z # Definition de la Petite Sphere. #
$Z FilSTmpB SpHeReS
$Z $CA $GSpHeRe $PSpHeRe \
$Z >> $SpHeReS
$Z FilSTmpE PSpHeRe
$Z FilSTmpE GSpHeRe
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*X=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$COORD_X
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*Y=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$COORD_Y
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*Z=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' | \
$Z $xrv/ADD2.11$X \
$Z ne=0 \
$Z fichier1== \
$Z fichier2=0.5 \
$Z > $SpHeReS$COORD_Z
$Z # La translation des coordonnees 'Z' d'une demi-unite est destinee a assurer la compatibilite #
$Z # de ces coordonnees avec le fond "fond=VRAI F=$_____imagesR" ci-apres... #
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*RAYON=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$RAYON
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*ROUGE=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$ROUGE
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*VERTE=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$VERTE
$Z $CA $SpHeReS | \
$Z $SE -e 's/^.*BLEUE=//' \
$Z -e 's/^\([^ ][^ ]*\) .*$/\1/' \
$Z > $SpHeReS$BLEUE
$Z set NpartX=`$CA $SpHeReS$COORD_X | $WCl`
$Z set NpartY=`$CA $SpHeReS$COORD_Y | $WCl`
$Z set NpartZ=`$CA $SpHeReS$COORD_Z | $WCl`
$Z set Npart=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z $xrv/particule.10$X np=1 iterations=$Npart \
$Z LISTE_X=$SpHeReS$COORD_X \
$Z LISTE_Y=$SpHeReS$COORD_Y \
$Z LISTE_Z=$SpHeReS$COORD_Z \
$Z LISTE_RAYON=$SpHeReS$RAYON \
$Z LISTE_ROUGE=$SpHeReS$ROUGE \
$Z LISTE_VERTE=$SpHeReS$VERTE \
$Z LISTE_BLEUE=$SpHeReS$BLEUE \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z Lz=1000 \
$Z Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing \
$Z Zmaximum=1 ZmaximumT=1 \
$Z isoles=VRAI \
$Z RVB=VRAI \
$Z N_AU_CARRE=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z fond=VRAI F=$_____imagesR \
$Z $_____ParticulePara1 \
$Z chiffres=0 \
$Z R=$_____imagesR \
$Z $formatI
$Z # On notera l'argument : #
$Z # #
$Z # isoles=VRAI #
$Z # #
$Z # destine a ce qu'un segment ne joigne pas la Grande et la Petite Sphere... #
$Z FilSTmpE SpHeReS
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.