#######################################################################################################################################
# #
# D I S P O S I T I O N " H A R M O N I E U S E " D E P O I N T S S U R U N E S P H E R E #
# A V E C V I S U A L I S A T I O N D E L A S P H E R E : #
# #
# #
# Author of '$xiirs/.PSPH.21.1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20080229165713). #
# #
#######################################################################################################################################
$Z SETParam _____CAleatoires $NEXIST
$Z # La possibilite de colorier aleatoirement a ete introduite le 20080313102045... #
$Z setParam _____Palette $xiP/arc_ciel.C1
$Z $DELETE $xTV/RAYONS_01
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=$_____RayonP vA=$_____RayonP \
$Z > $xTV/RAYONS_01
$Z $DELETE $xTV/COULEURS_01$ROUGE
$Z $DELETE $xTV/COULEURS_01$VERTE
$Z $DELETE $xTV/COULEURS_01$BLEUE
$Z if ($_____CAleatoires == $NEXIST) then
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=$_____CouleurPR vA=$_____CouleurPR \
$Z > $xTV/COULEURS_01$ROUGE
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=$_____CouleurPV vA=$_____CouleurPV \
$Z > $xTV/COULEURS_01$VERTE
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z cubique=FAUX \
$Z vD=$_____CouleurPB vA=$_____CouleurPB \
$Z > $xTV/COULEURS_01$BLEUE
$Z else
$Z $DELETE $xTV/NIVEAUX$Y
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z entier=VRAI \
$Z vD=$NOIR_PLANCHER vA=$BLANC | \
$Z $SE -e 's+^+$xciP/G_NIVEAU$X p=$_____Palette niveau=+' \
$Z -e 's+$+ K_LF=VRAI+' \
$Z > $xTV/NIVEAUX$Y
$Z (source $xTV/NIVEAUX$Y) |& \
$Z $AW ' { print $1 } ' \
$Z > $xTV/COULEURS_01$ROUGE
$Z (source $xTV/NIVEAUX$Y) |& \
$Z $AW ' { print $2 } ' \
$Z > $xTV/COULEURS_01$VERTE
$Z (source $xTV/NIVEAUX$Y) |& \
$Z $AW ' { print $3 } ' \
$Z > $xTV/COULEURS_01$BLEUE
$Z endif
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/RAYONS
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z foreach Couple ($ListeCouples)
$Z set Couple=`echo $Couple | $R "," "$K_BLANC"`
$Z set CoupleA=$Couple[1]
$Z set CoupleB=$Couple[2]
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Z \
$Z extraire=$CoupleA \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COORDONNEES_01$COORD_Z \
$Z extraire=$CoupleB \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/RAYONS_01 \
$Z extraire=$CoupleA \
$Z >>! $xTV/RAYONS
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/RAYONS_01 \
$Z extraire=$CoupleB \
$Z >>! $xTV/RAYONS
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$ROUGE \
$Z extraire=$CoupleA \
$Z >>! $xTV/COULEURS$ROUGE
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$ROUGE \
$Z extraire=$CoupleB \
$Z >>! $xTV/COULEURS$ROUGE
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$VERTE \
$Z extraire=$CoupleA \
$Z >>! $xTV/COULEURS$VERTE
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$VERTE \
$Z extraire=$CoupleB \
$Z >>! $xTV/COULEURS$VERTE
$Z
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$BLEUE \
$Z extraire=$CoupleA \
$Z >>! $xTV/COULEURS$BLEUE
$Z $xrv/un_seul.01$X \
$Z CAL1=FAUX \
$Z ne=$_____NPoints \
$Z fichier=$xTV/COULEURS_01$BLEUE \
$Z extraire=$CoupleB \
$Z >>! $xTV/COULEURS$BLEUE
$Z end
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z
$Z $DELETE $xTV/RAYONS_01
$Z $DELETE $xTV/COULEURS_01$ROUGE
$Z $DELETE $xTV/COULEURS_01$VERTE
$Z $DELETE $xTV/COULEURS_01$BLEUE