#!/bin/csh
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N N U C L E O N S T E R E O S C O P I Q U E B R U M E U X : #
# #
# #
# Utilisation : #
# #
# $xrq/nucleon.LC$Z #
# #
# #
# Author of '$xrq/nucleon.LC$Z' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
# ATTENTION, il y avait autrefois ici : #
# #
# Pal #
# #
# mais il en fait plus general de choisir le format des images avant l'appel de cette #
# commande, puisque ce dernier lui est tranmis via l'environnement... #
source $xrq/nucleon.LB.1$Y
# Definition du choix du directory de generation des images, des composantes de nom des #
# images et des parametres d'interpolation. #
set Serie1=".L3"
set Serie2=".L4"
# Definition des deux series d'images a generer. #
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V U E D U P R O T O N N O N C O N V O L U E , D E S M A S Q U E S #
# D E B R U M E E T D U P R O T O N N O N C O N V O L U E D A N S L A B R U M E : #
# #
#######################################################################################################################################
$xrq/nucleon.LB$Z
# Generation de toutes les images. #
alias Copy 'set Ar1="\!:1" ; set Ar2="\!:2" ; \\
$MV $Directory/$PROTON$Ar1$Ar2 $Directory/$PROTON$Serie1$Ar1$Ar2 ; \\
unset Ar1 Ar2'
Copy $DROITE $ROUGE
Copy $DROITE $VERTE
Copy $DROITE $BLEUE
Copy $GAUCHE $ROUGE
Copy $GAUCHE $VERTE
Copy $GAUCHE $BLEUE
# Memorisation de l'image de base du proton non convoluee. #
alias Copy 'set Ar1="\!:1" ; set Ar2="\!:2" ; set Ar3="\!:3" ; \\
$MV $Directory/$mPROTON$Ar3$Ar1$Ar2 $Directory/$PROTON$Serie1$Fi$Ar1$Ar2 ; \\
unset Ar1 Ar2 Ar3'
Copy $DROITE $ROUGE $STEP3
Copy $DROITE $VERTE $STEP3
Copy $DROITE $BLEUE $STEP3
Copy $GAUCHE $ROUGE $STEP3
Copy $GAUCHE $VERTE $STEP3
Copy $GAUCHE $BLEUE $STEP3
# Memorisation des filtres de brume. #
alias Copy 'set Ar1="\!:1" ; set Ar2="\!:2" ; \\
$MV $Directory/$mPROTON$STEP3$STEPI1$Ar1$Ar2 $Directory/$PROTON$Serie1$STEPI1$Ar1$Ar2 ; \\
unset Ar1 Ar2'
Copy $DROITE $ROUGE
Copy $DROITE $VERTE
Copy $DROITE $BLEUE
Copy $GAUCHE $ROUGE
Copy $GAUCHE $VERTE
Copy $GAUCHE $BLEUE
# Memorisation de l'image de base du proton vue derriere la brume '$xci/interpole.11$Z' #
alias Copy 'set Ar1="\!:1" ; set Ar2="\!:2" ; \\
$MV $Directory/$mPROTON$STEP3$STEPV1$Ar1$Ar2 $Directory/$PROTON$Serie1$STEPV1$Ar1$Ar2 ; \\
unset Ar1 Ar2'
Copy $DROITE $ROUGE
Copy $DROITE $VERTE
Copy $DROITE $BLEUE
Copy $GAUCHE $ROUGE
Copy $GAUCHE $VERTE
Copy $GAUCHE $BLEUE
# Memorisation de l'image de base du proton vue derriere la brume '$xci/vitre.53$Z'. #
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V U E D U P R O T O N C O N V O L U E : #
# #
#######################################################################################################################################
$xrq/nucleon.L9$Z
# Generation de toutes les images. #
alias Copy 'set Ar1="\!:1" ; set Ar2="\!:2" ; \\
$MV $Directory/$PROTON$Ar1$Ar2 $Directory/$PROTON$Serie2$Ar1$Ar2 ; \\
unset Ar1 Ar2'
Copy $DROITE $ROUGE
Copy $DROITE $VERTE
Copy $DROITE $BLEUE
Copy $GAUCHE $ROUGE
Copy $GAUCHE $VERTE
Copy $GAUCHE $BLEUE
# Memorisation de l'image de base du proton convoluee. #
#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V U E D U P R O T O N C O N V O L U E D A N S L A B R U M E : #
# #
#######################################################################################################################################
unalias droiteRVB
unalias gaucheRVB
alias droiteRVB 'set Pimage04A="\!:1" ; set Pimage04R="\!:2" ; \\
unset Pimage04A ; unset Pimage04R'
alias gaucheRVB 'set Pimage05A="\!:1" ; set Pimage05R="\!:2" ; \\
unset Pimage05A ; unset Pimage05R'
# Pour ne pas titrer... #
$xci/interpole.11$Z $Alpha $Directory/$PROTON$Serie2$DROITE \
$Beta $Directory/$PROTON$Serie1$Fi$DROITE \
$Directory/$PROTON$Serie2$STEPI1$DROITE
droiteRVB $Directory/$PROTON$Serie2$STEPI1$DROITE \
$Directory/$PROTON$Serie2$STEPI1$DROITE
$xci/interpole.11$Z $Alpha $Directory/$PROTON$Serie2$GAUCHE \
$Beta $Directory/$PROTON$Serie1$Fi$GAUCHE \
$Directory/$PROTON$Serie2$STEPI1$GAUCHE
gaucheRVB $Directory/$PROTON$Serie2$STEPI1$GAUCHE \
$Directory/$PROTON$Serie2$STEPI1$GAUCHE
# Effet de brume par interpolation. #
$xci/vitre.53$Z $Directory/$PROTON$Serie2$DROITE \
$Directory/$PROTON$Serie1$Fi$DROITE \
$Directory/$PROTON$Serie2$STEPV1$DROITE
droiteRVB $Directory/$PROTON$Serie2$STEPV1$DROITE \
$Directory/$PROTON$Serie2$STEPV1$DROITE
$xci/vitre.53$Z $Directory/$PROTON$Serie2$GAUCHE \
$Directory/$PROTON$Serie1$Fi$GAUCHE \
$Directory/$PROTON$Serie2$STEPV1$GAUCHE
gaucheRVB $Directory/$PROTON$Serie2$STEPV1$GAUCHE \
$Directory/$PROTON$Serie2$STEPV1$GAUCHE
# Effet de brume par transparence. #
#######################################################################################################################################
# #
# P R O T E C T I O N D E T O U T E S L E S I M A G E S : #
# #
#######################################################################################################################################
ro $Directory/$PROTON* >& $nul
# Protection des images. #