####################################################################################################################################### # # # D E F I N I T I O N D E L A G E O M E T R I E D ' U N C U B E : # # # # # # Author of '$xivP/disk.000000006/face.1/.RELA.1.12.$U' : # # # # Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). # # # ####################################################################################################################################### $Z $DELETE $xTV/VOLUME $Z set DemiCote=0.5 $Z set RayonVolume=0.02 $Z set DeriveeVolume=0.0 $Z echo " X=-$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_4 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_4 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_6 VERTE=$GRIS_6 BLEUE=$GRIS_6 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=-$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_0 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_0 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=+$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_8 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=-$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_4 BLEUE=$GRIS_8 " >>! $xTV/VOLUME $Z echo " X=-$DemiCote Y=+$DemiCote Z=+$DemiCote ROUGE=$GRIS_0 VERTE=$GRIS_8 BLEUE=$GRIS_8 " >>! $xTV/VOLUME