#######################################################################################################################################
# #
# P R I N C I P E T R I D I M E N S I O N N E L D U ' GPS ' : #
# #
# #
# Author of '$xiirv/.GPS3.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20160314102214). #
# #
#######################################################################################################################################
$Z SETParam _____Rotations $NEXIST
$Z # Parametre introduit le 20160316133037... #
$Z setParam _____Rouge_T $GRIS_8
$Z setParam _____Verte_T $GRIS_8
$Z setParam _____Bleue_T $GRIS_8
$Z setParam _____Rayon_T 0.014
$Z setParam _____Grossissement 3.0
$Z setParam _____DistanceMini 0.002
$Z setParam _____XA -0.8
$Z setParam _____YA +0.5
$Z setParam _____ZA +0.2
$Z setParam _____Rouge_PA $GRIS_8
$Z setParam _____Verte_PA $GRIS_0
$Z setParam _____Bleue_PA $GRIS_0
$Z setParam _____Rayon_PA 0.014
$Z setParam _____XB +0.5
$Z setParam _____YB -0.4
$Z setParam _____ZB -0.4
$Z setParam _____Rouge_PB $GRIS_0
$Z setParam _____Verte_PB $GRIS_8
$Z setParam _____Bleue_PB $GRIS_0
$Z setParam _____Rayon_PB 0.014
$Z setParam _____XC +0.7
$Z setParam _____YC +0.6
$Z setParam _____ZC +0.9
$Z setParam _____Rouge_PC $GRIS_0
$Z setParam _____Verte_PC $GRIS_8
$Z setParam _____Bleue_PC $GRIS_8
$Z setParam _____Rayon_PC 0.014
$Z setParam _____XD -0.6
$Z setParam _____YD -0.5
$Z setParam _____ZD -0.5
$Z setParam _____Rouge_PD $GRIS_8
$Z setParam _____Verte_PD $GRIS_8
$Z setParam _____Bleue_PD $GRIS_0
$Z setParam _____Rayon_PD 0.014
$Z setParam _____XP 0.2
$Z setParam _____YP 0.9
$Z setParam _____ZP 0.4
$Z setParam _____Rouge_P $GRIS_8
$Z setParam _____Verte_P $GRIS_8
$Z setParam _____Bleue_P $GRIS_8
$Z setParam _____Rayon_P 0.014
$Z setParam _____FacteuR 0.3
$Z setParam _____Zoom 0.4
$Z setParam _____DepthCueing 0.2
$Z # On rappelle que : #
$Z # #
$Z # _____DepthCueing=1 : pas de depth-cueing, #
$Z # _____DepthCueing=0 : depth-cueing maximal. #
$Z # #
$Z SETParam _____G_K 0.024
$Z set Distance_PA=`calcul sqrt(pow($_____XA-$_____XP,2)+pow($_____YA-$_____YP,2)+pow($_____ZA-$_____ZP,2))`
$Z set Distance_PB=`calcul sqrt(pow($_____XB-$_____XP,2)+pow($_____YB-$_____YP,2)+pow($_____ZB-$_____ZP,2))`
$Z set Distance_PC=`calcul sqrt(pow($_____XC-$_____XP,2)+pow($_____YC-$_____YP,2)+pow($_____ZC-$_____ZP,2))`
$Z set Distance_PD=`calcul sqrt(pow($_____XD-$_____XP,2)+pow($_____YD-$_____YP,2)+pow($_____ZD-$_____ZP,2))`
$Z set LiM="@"
$Z set AXYZ_BXYZ="AXYZ=1 BXYZ=0"
$Z FileTmpB Ftetraedre
$Z echo "$_____XA$LiM$_____XB$LiM$_____XC$LiM$_____XA" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Ftetraedre$COORD_X
$Z echo "$_____YA$LiM$_____YB$LiM$_____YC$LiM$_____YA" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Ftetraedre$COORD_Y
$Z echo "$_____ZA$LiM$_____ZB$LiM$_____ZC$LiM$_____ZA" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Ftetraedre$COORD_Z
$Z echo "$_____XD$LiM$_____XA" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_X
$Z echo "$_____YD$LiM$_____YA" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Y
$Z echo "$_____ZD$LiM$_____ZA" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Z
$Z echo "$_____XD$LiM$_____XB" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_X
$Z echo "$_____YD$LiM$_____YB" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Y
$Z echo "$_____ZD$LiM$_____ZB" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Z
$Z echo "$_____XD$LiM$_____XC" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_X
$Z echo "$_____YD$LiM$_____YC" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Y
$Z echo "$_____ZD$LiM$_____ZC" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Ftetraedre$COORD_Z
$Z FileTmpB FPoInTs
$Z FileTmpB FImAgE
$Z set NPoInTsX=`$CA $Ftetraedre$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $Ftetraedre$COORD_Y | $WCl`
$Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$NPoInTs \
$Z LISTE_X=$Ftetraedre$COORD_X \
$Z LISTE_Y=$Ftetraedre$COORD_Y \
$Z LISTE_Z=$Ftetraedre$COORD_Z \
$Z $AXYZ_BXYZ \
$Z LISTE_RAYON=$_____Rayon_T \
$Z LISTE_ROUGE=$_____Rouge_T \
$Z LISTE_VERTE=$_____Verte_T \
$Z LISTE_BLEUE=$_____Bleue_T \
$Z ZOOM=$_____Zoom \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z Lz=100 \
$Z editer_extrema_hors=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace du tetraedre ABCD. #
$Z set RoTaTiOn_OX=0
$Z if ($_____Rotations == $EXIST) then
$Z # Test introduit le 20160316133037... #
$Z set ARoTaTiOnS="$K_VIDE"
$Z set ARoTaTiOnS="$ARoTaTiOnS"" cartesiennes_spheriques=VRAI"
$Z set ARoTaTiOnS="$ARoTaTiOnS"" eX=FAUX eY=FAUX eZ=FAUX"
$Z set ARoTaTiOnS="$ARoTaTiOnS"" eRHO=FAUX"
$Z set ARoTaTiOnS="$ARoTaTiOnS"" Men_tete=FAUX"
$Z else
$Z set RoTaTiOn_OY=0
$Z set RoTaTiOn_OZ=0
$Z endif
$Z FileTmpE Ftetraedre
$Z set ASpHeRe="$K_VIDE"
$Z set ASpHeRe="$ASpHeRe"" pu=`calcul $pi/16` pv=`calcul $pi/8`"
$Z set ASpHeRe="$ASpHeRe"" eu=640 ev=320"
$Z set ASpHeRe="$ASpHeRe"" dpu=80 dpv=80"
$Z set ASpHeRe="$ASpHeRe"" Lz=1000"
$Z set ASpHeRe="$ASpHeRe"" N_AU_CARRE=FAUX"
$Z set ASpHeRe="$ASpHeRe"" ZOOM=$_____Zoom"
$Z set ASpHeRe="$ASpHeRe"" chiffres=0"
$Z if ($_____Rotations == $EXIST) then
$Z # Test introduit le 20160316133037... #
$Z set DeL_X=`$xcg/SOUS.01$X a=$_____XP b=$_____XA`
$Z set DeL_Y=`$xcg/SOUS.01$X a=$_____YP b=$_____YA`
$Z set DeL_Z=`$xcg/SOUS.01$X a=$_____ZP b=$_____ZA`
$Z set RoTaTiOn_OY=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=FAUX eTHETA=VRAI`
$Z set RoTaTiOn_OZ=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=VRAI eTHETA=FAUX`
$Z else
$Z endif
$Z $xrs/sphere.11$X \
$Z np=1 \
$Z $ASpHeRe \
$Z ROTATION_OZ=$RoTaTiOn_OZ \
$Z ROTATION_OY=$RoTaTiOn_OY \
$Z ROTATION_OX=$RoTaTiOn_OX \
$Z TRANSLATION_OX=$_____XA \
$Z TRANSLATION_OY=$_____YA \
$Z TRANSLATION_OZ=$_____ZA \
$Z PARAMETRE_R=$Distance_PA \
$Z RVB=FAUX colorier_N_et_B=VRAI \
$Z RVBR=`calcul $_____Rouge_PA/$GRIS_8` \
$Z RVBV=`calcul $_____Verte_PA/$GRIS_8` \
$Z RVBB=`calcul $_____Bleue_PA/$GRIS_8` \
$Z rayon_de_visualisation=$_____Rayon_PA \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace de la sphere PA. #
$Z # #
$Z # ATTENTION : l'ordre des rotations est fondamental puisqu'elles ne commutent pas... #
$Z if ($_____Rotations == $EXIST) then
$Z # Test introduit le 20160316133037... #
$Z set DeL_X=`$xcg/SOUS.01$X a=$_____XP b=$_____XB`
$Z set DeL_Y=`$xcg/SOUS.01$X a=$_____YP b=$_____YB`
$Z set DeL_Z=`$xcg/SOUS.01$X a=$_____ZP b=$_____ZB`
$Z set RoTaTiOn_OY=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=FAUX eTHETA=VRAI`
$Z set RoTaTiOn_OZ=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=VRAI eTHETA=FAUX`
$Z else
$Z endif
$Z $xrs/sphere.11$X \
$Z np=1 \
$Z $ASpHeRe \
$Z ROTATION_OZ=$RoTaTiOn_OZ \
$Z ROTATION_OY=$RoTaTiOn_OY \
$Z ROTATION_OX=$RoTaTiOn_OX \
$Z TRANSLATION_OX=$_____XB \
$Z TRANSLATION_OY=$_____YB \
$Z TRANSLATION_OZ=$_____ZB \
$Z PARAMETRE_R=$Distance_PB \
$Z RVB=FAUX colorier_N_et_B=VRAI \
$Z RVBR=`calcul $_____Rouge_PB/$GRIS_8` \
$Z RVBV=`calcul $_____Verte_PB/$GRIS_8` \
$Z RVBB=`calcul $_____Bleue_PB/$GRIS_8` \
$Z rayon_de_visualisation=$_____Rayon_PB \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace de la sphere PB. #
$Z # #
$Z # ATTENTION : l'ordre des rotations est fondamental puisqu'elles ne commutent pas... #
$Z if ($_____Rotations == $EXIST) then
$Z # Test introduit le 20160316133037... #
$Z set DeL_X=`$xcg/SOUS.01$X a=$_____XP b=$_____XC`
$Z set DeL_Y=`$xcg/SOUS.01$X a=$_____YP b=$_____YC`
$Z set DeL_Z=`$xcg/SOUS.01$X a=$_____ZP b=$_____ZC`
$Z set RoTaTiOn_OY=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=FAUX eTHETA=VRAI`
$Z set RoTaTiOn_OZ=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=VRAI eTHETA=FAUX`
$Z else
$Z endif
$Z $xrs/sphere.11$X \
$Z np=1 \
$Z $ASpHeRe \
$Z ROTATION_OZ=$RoTaTiOn_OZ \
$Z ROTATION_OY=$RoTaTiOn_OY \
$Z ROTATION_OX=$RoTaTiOn_OX \
$Z TRANSLATION_OX=$_____XC \
$Z TRANSLATION_OY=$_____YC \
$Z TRANSLATION_OZ=$_____ZC \
$Z PARAMETRE_R=$Distance_PC \
$Z RVB=FAUX colorier_N_et_B=VRAI \
$Z RVBR=`calcul $_____Rouge_PC/$GRIS_8` \
$Z RVBV=`calcul $_____Verte_PC/$GRIS_8` \
$Z RVBB=`calcul $_____Bleue_PC/$GRIS_8` \
$Z rayon_de_visualisation=$_____Rayon_PC \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace de la sphere PC. #
$Z # #
$Z # ATTENTION : l'ordre des rotations est fondamental puisqu'elles ne commutent pas... #
$Z if ($_____Rotations == $EXIST) then
$Z # Test introduit le 20160316133037... #
$Z set DeL_X=`$xcg/SOUS.01$X a=$_____XP b=$_____XD`
$Z set DeL_Y=`$xcg/SOUS.01$X a=$_____YP b=$_____YD`
$Z set DeL_Z=`$xcg/SOUS.01$X a=$_____ZP b=$_____ZD`
$Z set RoTaTiOn_OY=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=FAUX eTHETA=VRAI`
$Z set RoTaTiOn_OZ=`$xcg/XYZ_RPT$X $ARoTaTiOnS x=$DeL_X y=$DeL_Y z=$DeL_Z ePHI=VRAI eTHETA=FAUX`
$Z else
$Z endif
$Z $xrs/sphere.11$X \
$Z np=1 \
$Z $ASpHeRe \
$Z ROTATION_OZ=$RoTaTiOn_OZ \
$Z ROTATION_OY=$RoTaTiOn_OY \
$Z ROTATION_OX=$RoTaTiOn_OX \
$Z TRANSLATION_OX=$_____XD \
$Z TRANSLATION_OY=$_____YD \
$Z TRANSLATION_OZ=$_____ZD \
$Z PARAMETRE_R=$Distance_PD \
$Z RVB=FAUX colorier_N_et_B=VRAI \
$Z RVBR=`calcul $_____Rouge_PD/$GRIS_8` \
$Z RVBV=`calcul $_____Verte_PD/$GRIS_8` \
$Z RVBB=`calcul $_____Bleue_PD/$GRIS_8` \
$Z rayon_de_visualisation=$_____Rayon_PD \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace de la sphere PD. #
$Z # #
$Z # ATTENTION : l'ordre des rotations est fondamental puisqu'elles ne commutent pas... #
$Z FileTmpB Fdistances
$Z echo "$_____XP$LiM$_____XA$LiM$_____XP$LiM$_____XB$LiM$_____XP$LiM$_____XC$LiM$_____XP$LiM$_____XD" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$COORD_X
$Z echo "$_____YP$LiM$_____YA$LiM$_____YP$LiM$_____YB$LiM$_____YP$LiM$_____YC$LiM$_____YP$LiM$_____YD" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$COORD_Y
$Z echo "$_____ZP$LiM$_____ZA$LiM$_____ZP$LiM$_____ZB$LiM$_____ZP$LiM$_____ZC$LiM$_____ZP$LiM$_____ZD" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$COORD_Z
$Z echo "$_____Rouge_P$LiM$_____Rouge_PA$LiM$_____Rouge_P$LiM$_____Rouge_PB" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$ROUGE
$Z echo "$_____Rouge_P$LiM$_____Rouge_PC$LiM$_____Rouge_P$LiM$_____Rouge_PD" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Fdistances$ROUGE
$Z echo "$_____Verte_P$LiM$_____Verte_PA$LiM$_____Verte_P$LiM$_____Verte_PB" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$VERTE
$Z echo "$_____Verte_P$LiM$_____Verte_PC$LiM$_____Verte_P$LiM$_____Verte_PD" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Fdistances$VERTE
$Z echo "$_____Bleue_P$LiM$_____Bleue_PA$LiM$_____Bleue_P$LiM$_____Bleue_PB" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$BLEUE
$Z echo "$_____Bleue_P$LiM$_____Bleue_PC$LiM$_____Bleue_P$LiM$_____Bleue_PD" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Fdistances$BLEUE
$Z echo "$_____Rayon_P$LiM$_____Rayon_PA$LiM$_____Rayon_P$LiM$_____Rayon_PB" | \
$Z $R "$LiM" "$K_NL" \
$Z > $Fdistances$RAYON
$Z echo "$_____Rayon_P$LiM$_____Rayon_PC$LiM$_____Rayon_P$LiM$_____Rayon_PD" | \
$Z $R "$LiM" "$K_NL" \
$Z >> $Fdistances$RAYON
$Z set NPoInTsX=`$CA $Fdistances$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $Fdistances$COORD_Y | $WCl`
$Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$NPoInTs \
$Z LISTE_X=$Fdistances$COORD_X \
$Z LISTE_Y=$Fdistances$COORD_Y \
$Z LISTE_Z=$Fdistances$COORD_Z \
$Z $AXYZ_BXYZ \
$Z grossissement=$_____Grossissement \
$Z LISTE_RAYON=$Fdistances$RAYON \
$Z LISTE_ROUGE=$Fdistances$ROUGE \
$Z LISTE_VERTE=$Fdistances$VERTE \
$Z LISTE_BLEUE=$Fdistances$BLEUE \
$Z ZOOM=$_____Zoom \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z Lz=100 \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z centre_des_spheres=VRAI \
$Z chiffres=0 \
$Z R=$FImAgE \
$Z $formatI \
$Z >>! $FPoInTs
$Z # Trace des quatre segments {PA,PB,PC,PD}. #
$Z FileTmpE Fdistances
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$COORD_X
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$COORD_Y
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$ROUGE
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$VERTE
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FPoInTs$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z set NPointsX=`$CA $FPoInTs$COORD_X | $WCl`
$Z set NPointsY=`$CA $FPoInTs$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $FPoInTs$COORD_Z | $WCl`
#20220615103101____:$Z set NPointsXYZ=`$xcg/MAX3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI` #
$Z set NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`
$Z $CA $FPoInTs | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/MUL2.11$X \
$Z ne=$NPointsXYZ \
$Z fichier1=$_____FacteuR \
$Z fichier2== \
$Z >>! $FPoInTs$RAYON
$Z # Recuperation des rayons. #
$Z FileTmpB FZBuFfEr
$Z $xrv/particule.10$X np=1 iterations=$NPointsXYZ \
$Z zoom_automatique=FAUX ZOOM=1.0 \
$Z coordonnees_dans_0_1=FAUX \
$Z $AXYZ_BXYZ \
$Z LISTE_X=$FPoInTs$COORD_X \
$Z LISTE_Y=$FPoInTs$COORD_Y \
$Z LISTE_Z=$FPoInTs$COORD_Z \
$Z LISTE_RAYON=$FPoInTs$RAYON \
$Z LISTE_ROUGE=$FPoInTs$ROUGE \
$Z LISTE_VERTE=$FPoInTs$VERTE \
$Z LISTE_BLEUE=$FPoInTs$BLEUE \
$Z isoles=VRAI chainer=FAUX \
$Z Lz=1000 \
$Z Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing \
$Z Zmaximum=1 ZmaximumT=1 \
$Z RVB=VRAI \
$Z N_AU_CARRE=VRAI \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z chiffres=0 \
$Z R=$_____ImagesR \
$Z ATTENTION=FAUX \
$Z Z0=-2 Zbuffer=VRAI Z=$FZBuFfEr \
$Z $formatI
$Z set GRaYoN=0.010
$Z set Echelle_K=$_____G_K
$Z set TrAnS_X=+0.05
$Z set TrAnS_Y=+0.10
$Z set TrAnS_Z=+0.25
$Z source $xrd/graph.01$vv$Y
$Z G_Init
$Z set Cursor_RAYON=$GRaYoN
$Z set Echelle_K=$_____G_K
$Z G_Zoom $_____Zoom
$Z set FoNd="fond=VRAI F=$_____ImagesR"
$Z set ZBuFfEr="$K_VIDE"
$Z set GArGuMeNtS="$K_VIDE"
$Z set GArGuMeNtS="$GArGuMeNtS"
$Z set GArGuMeNtS="$GArGuMeNtS"" ajuster_points=VRAI"
$Z set GArGuMeNtS="$GArGuMeNtS"" equidistance=VRAI"
$Z set GArGuMeNtS="$GArGuMeNtS"" distance_minimale=0.02"
$Z set GArGuMeNtS="$GArGuMeNtS"" store_sphere__anti_aliasing_____compatibilite_20060426=VRAI"
$Z G_Cursor1 `calcul $_____XA+($TrAnS_X)` `calcul $_____YA+($TrAnS_Y)` `calcul $_____ZA+($TrAnS_Z)`
$Z G_Cursor2 $_____Rouge_PA $_____Verte_PA $_____Bleue_PA
$Z eval `G_Message "A"`
$Z # Marquage du point A. #
$Z G_Cursor1 `calcul $_____XB+($TrAnS_X)` `calcul $_____YB+($TrAnS_Y)` `calcul $_____ZB+($TrAnS_Z)`
$Z G_Cursor2 $_____Rouge_PB $_____Verte_PB $_____Bleue_PB
$Z eval `G_Message "B"`
$Z # Marquage du point B. #
$Z G_Cursor1 `calcul $_____XC+($TrAnS_X)` `calcul $_____YC+($TrAnS_Y)` `calcul $_____ZC+($TrAnS_Z)`
$Z G_Cursor2 $_____Rouge_PC $_____Verte_PC $_____Bleue_PC
$Z eval `G_Message "C"`
$Z # Marquage du point C. #
$Z G_Cursor1 `calcul $_____XD+($TrAnS_X)` `calcul $_____YD+($TrAnS_Y)` `calcul $_____ZD+($TrAnS_Z)`
$Z G_Cursor2 $_____Rouge_PD $_____Verte_PD $_____Bleue_PD
$Z eval `G_Message "D"`
$Z # Marquage du point D. #
$Z G_Cursor1 `calcul $_____XP+($TrAnS_X)` `calcul $_____YP+($TrAnS_Y)` `calcul $_____ZP+($TrAnS_Z)`
$Z G_Cursor2 $_____Rouge_P $_____Verte_P $_____Bleue_P
$Z eval `G_Message "P"`
$Z # Marquage du point P. #
$Z G_Genere $_____ImagesR $FoNd $ZBuFfEr $AXYZ_BXYZ $GArGuMeNtS
$Z FileTmpE FZBuFfEr
$Z FileTmpE FImAgE
$Z FileTmpE FPoInTs