#######################################################################################################################################
# #
# S I G L E D U ' CMAP ' ( D E F I N I T I O N ) : #
# #
# #
# Author of '$xiirv/.CMAP.51.12.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Definir_C $EXIST
$Z # Parametre introduit le 20190718103116... #
$Z SETParam _____Definir_M $EXIST
$Z # Parametre introduit le 20190718103116... #
$Z SETParam _____Definir_A $EXIST
$Z # Parametre introduit le 20190718103116... #
$Z SETParam _____Definir_P $EXIST
$Z # Parametre introduit le 20190718103116... #
$Z $DELETE $xTV/LOGO_CMAP
$Z # Le 20090514111534 le nom '$xTV/CMAP' a ete change en '$xTV/LOGO_CMAP' afin de limiter #
$Z # les risques de collision... #
$Z # Definition des sommets utiles d'un cube pour definir le logo du CMAP (avant rotations) : #
$Z # #
$Z # B #
$Z # . / #
$Z # . / #
$Z # . / #
$Z # . / #
$Z # . / #
$Z # / #
$Z # A-----------------------------C #
$Z # | | #
$Z # | . | #
$Z # | | #
$Z # | . | #
$Z # | | #
$Z # | . | #
$Z # | | #
$Z # | . | #
$Z # | | #
$Z # | . | #
$Z # | D----------------------|------E #
$Z # | / | / #
$Z # | / | / #
$Z # | / | / #
$Z # | / | / #
$Z # | / | / #
$Z # |/ |/ #
$Z # G-----------------------------F #
$Z # #
$Z # #
$Z # Definition des quatre lettres : #
$Z # #
$Z # C = {AG,GD,DE} #
$Z # M = {DG,GF,FC,CB} #
$Z # A = {DA,AB} #
$Z # P = {AC,CF,FE} #
$Z # #
$Z # #
$Z # Utilisation de chaque segment : #
$Z # #
$Z # AB = {A} #
$Z # AC = {P} #
$Z # AD = {A} #
$Z # AG = {C} #
$Z # BC = {M} #
$Z # CF = {M,P} #
$Z # DE = {C} #
$Z # DG = {C,M} #
$Z # EF = {P} #
$Z # FG = {M} #
$Z # #
$Z # #
$Z # Definition du cube apres rotations faisant ainsi apparaitre les quatre lettres {C,M,A,P} : #
$Z # #
$Z # #
$Z # A #
$Z # / \ #
$Z # / \ #
$Z # / \ #
$Z # / . . \ #
$Z # / \ #
$Z # / \ #
$Z # / . . \ #
$Z # / \ #
$Z # / \ #
$Z # G/ . . \C #
$Z # |\ /| #
$Z # | \ / | #
$Z # | \ . . / | #
$Z # | \ / | #
$Z # | \ / | #
$Z # | .\ /. | #
$Z # | \ / | #
$Z # | \ / | #
$Z # | . \ / . | #
$Z # | \F/ | #
$Z # | | | #
$Z # | . | . | #
$Z # | | | #
$Z # | | | #
$Z # | . | . | #
$Z # | | | #
$Z # | | | #
$Z # | . | . | #
$Z # | | | #
$Z # D\ | B #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \ | #
$Z # \E #
$Z # #
$Z if ($_____Definir_C == $EXIST) then
$Z echo " X=-1.0 Y=-1.0 Z=-1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=-1.0 Z=-1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment DE... #
$Z else
$Z endif
$Z if (($_____Definir_C == $EXIST) || ($_____Definir_M == $EXIST)) then
$Z echo " X=-1.0 Y=-1.0 Z=-1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=-1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment GD... #
$Z else
$Z endif
$Z if ($_____Definir_C == $EXIST) then
$Z echo " X=-1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=-1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment AG... #
$Z else
$Z endif
$Z if ($_____Definir_P == $EXIST) then
$Z echo " X=-1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment AC... #
$Z else
$Z endif
$Z if ($_____Definir_M == $EXIST) then
$Z echo " X=+1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=+1.0 Z=-1.0 ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment BC... #
$Z else
$Z endif
$Z if ($_____Definir_P == $EXIST) then
$Z echo " X=+1.0 Y=-1.0 Z=-1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment EF... #
$Z else
$Z endif
$Z if ($_____Definir_M == $EXIST) then
$Z echo " X=+1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=-1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment GF... #
$Z else
$Z endif
$Z if (($_____Definir_M == $EXIST) || ($_____Definir_P == $EXIST)) then
$Z echo " X=+1.0 Y=-1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_8 VERTE=$GRIS_6 BLEUE=$GRIS_0 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment CF... #
$Z else
$Z endif
$Z if ($_____Definir_A == $EXIST) then
$Z echo " X=-1.0 Y=-1.0 Z=-1.0 ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/LOGO_CMAP
$Z echo " X=-1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment AD... #
$Z else
$Z endif
$Z if ($_____Definir_A == $EXIST) then
$Z echo " X=-1.0 Y=+1.0 Z=+1.0 ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/LOGO_CMAP
$Z echo " X=+1.0 Y=+1.0 Z=-1.0 ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/LOGO_CMAP
$Z # Definition du segment AB... #
$Z else
$Z endif
$Z set Nparticules=`$WC $xTV/LOGO_CMAP`
$Z set Nparticules=$Nparticules[$WC1]
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/COULEUR$ROUGE
$Z $DELETE $xTV/COULEUR$VERTE
$Z $DELETE $xTV/COULEUR$BLEUE
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* X=\([^ ]*\) .*/\1/" > $xTV/COORDONNEES$COORD_X
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* Y=\([^ ]*\) .*/\1/" > $xTV/COORDONNEES$COORD_Y
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* Z=\([^ ]*\) .*/\1/" > $xTV/COORDONNEES$COORD_Z
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* ROUGE=\([^ ]*\) .*/\1/" > $xTV/COULEUR$ROUGE
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* VERTE=\([^ ]*\) .*/\1/" > $xTV/COULEUR$VERTE
$Z $CA $xTV/LOGO_CMAP \
$Z | $SE -e "s/.* BLEUE=\([^ ]*\) .*/\1/" > $xTV/COULEUR$BLEUE