#!/bin/csh
#######################################################################################################################################
# #
# N O T A : #
# #
# #
# Author of '$xiio/$Fnota' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# S T R U C T U R E D E S N O M S D E S I M A G E S #
# C O N T E N A N T L A F O N C T I O N D E M O R L E T : #
# #
# #
# MORL.ddmmpp.XY dd = deux premieres decimales de la dilatation 'a' ou 'd' (qui est de la forme 0.xxx), #
# mm = partie entiere du module |k| ou 'm', #
# pp = partie entiere de 10 fois le facteur de rotation 't' ou 'p' exprime en radians, #
# XY = postfixe 'R', 'I' ou 'TF' pour partie reelle, partie imaginaire ou FFT. #
# #
# on n'oubliera pas que : #
# #
# |k| #
# -------- = nombre de periodes. #
# 2.PI.a #
# Exemple : #
# ------- #
# #
# MORL.100615.R represente la partie reelle avec : #
# ... -- #
# ..-- |-----------------> p = t = 1.50 (c'est-a-dire 'PI/2' a quelque chose pres...) #
# -- |-------------------> m = k = 6.00 #
# |---------------------> d = a = 0.10 #
# #
# #
# Nota : prendre a=1.0 correspond a ne prendre qu'une periode de l'ondelette le long de l'une des dimensions#
# ---- de l'image (lorsque p=0 modulo PI). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# O N D E L E T T E S D E M O R L E T L E S P L U S U T I L E S : #
# #
# #
# 010615 pour les toutes petites echelles, #
# 030615 #
# 060615 #
# 120615 pour les grandes echelles. #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# Q U E L Q U E S I M A G E S " O U T I L S " : #
# #
#######################################################################################################################################
v $xiio/ANAGLYPHE.11
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_ANAGLYPHE_11: #
# #
# $Z Pal #
# #
# $Z setenv xTV $xTG #
# #
# $Z source $xrd/graph.01$vv$Y #
# $Z G_Init #
# #
# $Z set Echelle_K=0.005 #
# #
# $Z set CoordX1=0.010 #
# $Z set CoordY1=0.155 #
# $Z set CoordZ1=0.5 #
# #
# $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZ1 #
# $Z G_Cursor2 $GRIS_7 $GRIS_1 $GRIS_1 #
# $Z eval `G_Message "left/gauche"` #
# #
# $Z set CoordX2=0.680 #
# $Z set CoordY2=$CoordY1 #
# $Z set CoordZ2=$CoordZ1 #
# #
# $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZ2 #
# $Z G_Cursor2 $GRIS_3 $GRIS_6 $GRIS_5 #
# $Z eval `G_Message "right/droite"` #
# #
# $Z G_Genere $xiio/ANAGLYPHE.11 #
# #
# :Fin_listG_ANAGLYPHE_11: #
# #
# #
# Pour indiquer les couleurs des vues oeil gauche et oeil droit respectivement... #
v $xiio/ANNEAU$m p=$xiP/montagnes.91
# Ces images sont obtenues par la manipulation suivante : #
# #
# $Z Std #
# #
# #
# $Z $xci/acces$X \ #
# $Z A=$xiio/ANNEAU \ #
# $Z convertir=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/normalise.01$X \ #
# $Z $formatI | \ #
# $Z $xci/lissage$X \ #
# $Z standard=FAUX \ #
# $Z passes=256 \ #
# $Z $formatI | \ #
# $Z $xci/montagne.01$X \ #
# $Z standard=FAUX \ #
# $Z zero=FAUX \ #
# $Z T=$xiio/BLANC \ #
# $Z avion=VRAI \ #
# $Z R=$xiio/ANNEAU$m \ #
# $Z $formatI #
# #
v $xiio/ANNEAU.11$m p=$xiP/montagnes.91
# Ces images sont obtenues par la manipulation suivante : #
# #
# $Z Std #
# #
# #
# $Z $xci/gauss$X \ #
# $Z standard=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/substitue$X \ #
# $Z standard=FAUX \ #
# $Z p=$xiP/dentscie.01 \ #
# $Z substitution=L_SUBSTITUTION_ROUGE \ #
# $Z $formatI | \ #
# $Z $xci/normalise.01$X \ #
# $Z $formatI | \ #
# $Z $xci/lissage$X \ #
# $Z standard=FAUX \ #
# $Z passes=8 \ #
# $Z $formatI | \ #
# $Z $xci/montagne.01$X \ #
# $Z standard=FAUX \ #
# $Z zero=FAUX \ #
# $Z T=$xiio/BLANC \ #
# $Z avion=VRAI \ #
# $Z R=$xiio/ANNEAU.11$m \ #
# $Z $formatI #
# #
v $xiio/CADRE2$R04 p=$xiP/gris.01
v $xiio/CADRE2$R16 p=$xiP/gris.01
v $xiio/CADRE2$R64 p=$xiP/gris.01
# Ces images sont obtenues par la manipulation suivante : #
# #
# #
# :Debut_listG_CADRE2: #
# #
# $Z Std #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R04 \ #
# $Z $formatI \ #
# $Z mode=1 \ #
# $Z R=$xiio/CADRE2$R04 \ #
# $Z $formatR_Sud #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R16 \ #
# $Z $formatI \ #
# $Z mode=1 \ #
# $Z R=$xiio/CADRE2$R16 \ #
# $Z $formatR_Sud #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R64 \ #
# $Z $formatI \ #
# $Z mode=1 \ #
# $Z R=$xiio/CADRE2$R64 \ #
# $Z $formatR_Sud #
# #
# $Z Sud #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xiio/CADRE2$R04 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z R=$xiio/CADRE2$R04 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xiio/CADRE2$R16 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z R=$xiio/CADRE2$R16 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xiio/CADRE2$R64 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z R=$xiio/CADRE2$R64 \ #
# $Z $formatI #
# #
# :Fin_listG_CADRE2: #
# #
v $xiio/CADRE8$R04 p=$xiP/gris.01
v $xiio/CADRE8$R16 p=$xiP/gris.01
v $xiio/CADRE8$R64 p=$xiP/gris.01
# Ces images sont obtenues par la manipulation suivante : #
# #
# #
# :Debut_listG_CADRE8: #
# #
# $Z Std #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R04 \ #
# $Z $formatI \ #
# $Z mode=0 \ #
# $Z R=$xiio/CADRE8$R04 \ #
# $Z $formatR_Sdu #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R16 \ #
# $Z $formatI \ #
# $Z mode=0 \ #
# $Z R=$xiio/CADRE8$R16 \ #
# $Z $formatR_Sdu #
# #
# $Z $xci/format.01$X \ #
# $Z A=$xiio/CADRE$R64 \ #
# $Z $formatI \ #
# $Z mode=0 \ #
# $Z R=$xiio/CADRE8$R64 \ #
# $Z $formatR_Sdu #
# #
# $Z Sdu #
# #
# $Z $xci/neutre$X \ #
# $Z A=$xiio/CADRE8$R04 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z R=$xiio/CADRE8$R04 \ #
# $Z $formatI #
# #
# :Fin_listG_CADRE8: #
# #
v $xiio/CADREN$R04 p=$xiP/gris.01
v $xiio/CADREN$R16 p=$xiP/gris.01
# Ces images sont obtenues par la manipulation suivante : #
# #
# #
# :Debut_listG_CADREN: #
# #
# $Z Std #
# #
# $Z set Image0=1 #
# $Z set ImageN=16 #
# $Z set ImageC=2 #
# #
# $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image0 d=$ImageN n=$ImageC` #
# #
# $Z foreach ImageJ ($ListeI) #
# $Z set ImageK=`echo "$ImageJ" | $SE -e "s/0/O/g"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$NOIR \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="$ImageK" \ #
# $Z taille=5 \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=FAUX \ #
# $Z X=0.86 Y=0.05 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z R=$xTV/NUME.$ImageJ \ #
# $Z $formatI #
# $Z end #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/CADRE$R04 \ #
# $Z R=$xiio/CADREN$R04 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/CADRE$R16 \ #
# $Z R=$xiio/CADREN$R16 \ #
# $Z $formatI #
# #
# :Fin_listG_CADREN: #
# #
v $xiio/KADREN$R04 p=$xiP/gris.01
v $xiio/KADREN$R16 p=$xiP/gris.01
# Ces images sont obtenues par la manipulation suivante : #
# #
# #
# ATTENTION : les images 'v $xiio/KADREN$R04' et 'v $xiio/KADREN$R16' ne doivent plus etre #
# utilisees a cause d'un probleme d'epaisseur des bordures. Elles sont conservees pour des #
# historiques et sont donc a remplacer par les images 'v $xiio/RADREN$R04' et #
# 'v $xiio/RADREN$R16'. #
# #
# #
# :Debut_listG_KADREN_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
# $Z Pal #
# #
# $Z set Image0=1 #
# $Z set ImageN=16 #
# $Z set ImageC=2 #
# #
# $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image0 d=$ImageN n=$ImageC` #
# #
# $Z foreach ImageJ ($ListeI) #
# $Z set ImageK=`echo "$ImageJ" | $SE -e "s/0/O/g"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$NOIR \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="$ImageK" \ #
# $Z taille=5 \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=FAUX \ #
# $Z X=0.86 Y=0.05 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z R=$xTV/NUME.$ImageJ \ #
# $Z $formatI #
# $Z end #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/KADRE$R04 \ #
# $Z R=$xiio/KADREN$R04 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/KADRE$R16 \ #
# $Z R=$xiio/KADREN$R16 \ #
# $Z $formatI #
# #
# :Fin_listG_KADREN_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
v $xiio/QADRE$R04 p=$xiP/gris.01
v $xiio/QADRE$R16 p=$xiP/gris.01
v $xiio/QADRE$R64 p=$xiP/gris.01
# Generee (sur '$LACT16') par : #
# #
# #
# ATTENTION : les images 'v $xiio/QADRE$R04', 'v $xiio/QADRE$R16' et 'v $xiio/QADRE$R64' #
# ne doivent plus etre utilisees a cause d'un probleme d'epaisseur des bordures. Elles sont #
# conservees pour des historiques et sont donc a remplacer par les images #
# 'v $xiio/RADRE$R04', 'v $xiio/RADRE$R16' et 'v $xiio/RADRE$R64'. #
# #
# #
# :Debut_listG_QADRE_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
# $Z Pal #
# #
# $Z $xci/contours.11$Z $xiio/KADRE$R04 $xTV/REMPLISSAGE $GRIS FAUX #
# $Z $xci/complement$X \ #
# $Z A=$xTV/REMPLISSAGE \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A1=$xiio/KADRE$R04 \ #
# $Z R=$xiio/QADRE$R04 \ #
# $Z $formatI #
# #
# $Z $xci/contours.11$Z $xiio/KADRE$R16 $xTV/REMPLISSAGE $GRIS FAUX #
# $Z $xci/complement$X \ #
# $Z A=$xTV/REMPLISSAGE \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A1=$xiio/KADRE$R16 \ #
# $Z R=$xiio/QADRE$R16 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xiio/KADRE$R64 \ #
# $Z R=$xTV/DILATEE \ #
# $Z $formatI #
# $Z $xci/contours.11$Z $xTV/DILATEE $xTV/REMPLISSAGE $GRIS FAUX #
# $Z $xci/complement$X \ #
# $Z A=$xTV/REMPLISSAGE \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A1=$xiio/KADRE$R64 \ #
# $Z R=$xiio/QADRE$R64 \ #
# $Z $formatI #
# #
# :Fin_listG_QADRE_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
# #
# Les images '$xiio/QADRE$R??', contrairement aux images '$xiio/KADRE$R??' n'ont pas #
# d'eventuels liseres noirs a la peripherie de certains cotes. On notera le traitement #
# specifique de 'v $xiio/QADRE$R64' du a 'v $xci/contours.11$Z .xci/cadre.X' qui a pour #
# effet de supprimer les traits fins (d'epaisseur un point) de 'v $xiio/KADRE$R64'... #
v $xiio/QADREN$R04 p=$xiP/gris.01
v $xiio/QADREN$R16 p=$xiP/gris.01
# Generee (sur '$LACT16') par : #
# #
# #
# ATTENTION : les images 'v $xiio/QADREN$R04' et 'v $xiio/QADREN$R16' ne doivent plus etre #
# utilisees a cause d'un probleme d'epaisseur des bordures. Elles sont conservees pour des #
# historiques et sont donc a remplacer par les images 'v $xiio/RADREN$R04' et #
# 'v $xiio/RADREN$R16'. #
# #
# #
# :Debut_listG_QADREN_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
# $Z Pal #
# #
# $Z set Image0=1 #
# $Z set ImageN=16 #
# $Z set ImageC=2 #
# #
# $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image0 d=$ImageN n=$ImageC` #
# #
# $Z foreach ImageJ ($ListeI) #
# $Z set ImageK=`echo "$ImageJ" | $SE -e "s/0/O/g"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$NOIR \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="$ImageK" \ #
# $Z taille=5 \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=FAUX \ #
# $Z X=0.86 Y=0.05 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z R=$xTV/NUME.$ImageJ \ #
# $Z $formatI #
# $Z end #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/QADRE$R04 \ #
# $Z R=$xiio/QADREN$R04 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/QADRE$R16 \ #
# $Z R=$xiio/QADREN$R16 \ #
# $Z $formatI #
# #
# :Fin_listG_QADREN_____ATTENTION_IMAGE_A_NE_PLUS_UTILISER: #
# #
# #
# Les images '$xiio/QADREN$R??', contrairement aux images '$xiio/KADREN$R??' n'ont pas #
# d'eventuels liseres noirs a la peripherie de certains cotes. #
v $xiio/RADRE$R04 p=$xiP/gris.01
v $xiio/RADRE$R16 p=$xiP/gris.01
v $xiio/RADRE$R64 p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_RADRE: #
# #
# $Z Pal #
# #
# $Z set _____ImageR=$xiio/RADRE #
# #
# $Z set PaRaMeTrEs="$K_VIDE" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" A=$NOIR" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" normalisee=VRAI" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" niveau=$GRIS_8" #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.500 my=0.500 \ #
# $Z X_dans_image=VRAI Y_dans_image=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z dilater=VRAI \ #
# $Z points=49 \ #
# $Z R=$_____ImageR$R04 \ #
# $Z $formatI #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.250 my=0.251 \ #
# $Z X_dans_image=VRAI Y_dans_image=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z dilater=VRAI \ #
# $Z points=25 \ #
# $Z R=$_____ImageR$R16 \ #
# $Z $formatI #
# #
# ATTENTION : c'est bien "mx=0.250 my=0.251" et non pas "mx=0.250 my=0.250" (et ce pour #
# bien etre aux bords de l'image...). #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.126 my=0.126 \ #
# $Z X_dans_image=VRAI Y_dans_image=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z dilater=VRAI \ #
# $Z points=9 \ #
# $Z R=$_____ImageR$R64 \ #
# $Z $formatI #
# #
# ATTENTION : c'est bien "mx=0.126 my=0.126" et non pas "mx=0.125 my=0.125" (et ce pour #
# bien etre aux bords de l'image...). #
# #
# $Z unset PaRaMeTrEs #
# #
# :Fin_listG_RADRE: #
# #
# #
# Les images '$xiio/RADRE$R??' ont des bordures toutes identiques... #
v $xiio/RADREN$R04 p=$xiP/gris.01
v $xiio/RADREN$R16 p=$xiP/gris.01
# Generee (sur '$LACT16') par : #
# #
# #
# :Debut_listG_RADREN: #
# #
# $Z Pal #
# #
# $Z set Image0=1 #
# $Z set ImageN=16 #
# $Z set ImageC=2 #
# #
# $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image0 d=$ImageN n=$ImageC` #
# #
# $Z foreach ImageJ ($ListeI) #
# $Z set ImageK=`echo "$ImageJ" | $SE -e "s/0/O/g"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$NOIR \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="$ImageK" \ #
# $Z taille=5 \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=FAUX \ #
# $Z X=0.86 Y=0.05 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z R=$xTV/NUME.$ImageJ \ #
# $Z $formatI #
# $Z end #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/RADRE$R04 \ #
# $Z R=$xiio/RADREN$R04 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/RADRE$R16 \ #
# $Z R=$xiio/RADREN$R16 \ #
# $Z $formatI #
# #
# :Fin_listG_RADREN: #
# #
# #
# Les images '$xiio/RADREN$R??' ont des bordures toutes identiques... #
v $xiio/SADRE$R04 p=$xiP/gris.01
v $xiio/SADRE$R16 p=$xiP/gris.01
v $xiio/SADRE$R64 p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_SADRE: #
# #
# $Z Pal #
# #
# #
# $Z set _____ImageR=$xiio/SADRE #
# #
# $Z set PaRaMeTrEs="$K_VIDE" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" A=$NOIR" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" normalisee=VRAI" #
# $Z set PaRaMeTrEs="$PaRaMeTrEs"" niveau=$GRIS_8" #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.500 my=0.500 \ #
# $Z X_dans_image=VRAI Y_dans_image=FAUX \ #
# $Z R=$_____ImageR$R04 \ #
# $Z $formatI #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.250 my=0.251 \ #
# $Z X_dans_image=VRAI Y_dans_image=VRAI \ #
# $Z R=$_____ImageR$R16 \ #
# $Z $formatI #
# #
# ATTENTION : c'est bien "mx=0.250 my=0.251" et non pas "mx=0.250 my=0.250" (et ce pour #
# bien etre aux bords de l'image...). #
# #
# $Z $xci/grille.01$X \ #
# $Z $PaRaMeTrEs \ #
# $Z mx=0.126 my=0.126 \ #
# $Z X_dans_image=VRAI Y_dans_image=VRAI \ #
# $Z R=$_____ImageR$R64 \ #
# $Z $formatI #
# #
# ATTENTION : c'est bien "mx=0.126 my=0.126" et non pas "mx=0.125 my=0.125" (et ce pour #
# bien etre aux bords de l'image...). #
# #
# $Z unset PaRaMeTrEs #
# #
# :Fin_listG_SADRE: #
# #
v $xiio/SADREN$R04 p=$xiP/gris.01
v $xiio/SADREN$R16 p=$xiP/gris.01
# Generee (sur '$LACT16') par : #
# #
# #
# :Debut_listG_SADREN: #
# #
# $Z Pal #
# #
# $Z set Image0=1 #
# $Z set ImageN=16 #
# $Z set ImageC=2 #
# #
# $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image0 d=$ImageN n=$ImageC` #
# #
# $Z foreach ImageJ ($ListeI) #
# $Z set ImageK=`echo "$ImageJ" | $SE -e "s/0/O/g"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$NOIR \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="$ImageK" \ #
# $Z taille=4 \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=FAUX \ #
# $Z X=0.90 Y=0.05 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z R=$xTV/NUME.$ImageJ \ #
# $Z $formatI #
# $Z end #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/SADRE$R04 \ #
# $Z R=$xiio/SADREN$R04 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X \ #
# $Z A=$xTV/NUME. \ #
# $Z premiere=$Image0 derniere=$ImageN pas=1 \ #
# $Z chiffres=$ImageC \ #
# $Z $formatI | \ #
# $Z $xci/cache$X \ #
# $Z A=$xiio/SADRE$R16 \ #
# $Z R=$xiio/SADREN$R16 \ #
# $Z $formatI #
# #
# :Fin_listG_SADREN: #
# #
v $xiio/DRAPEAUX.RUSSIE_UKRAINE.01
# Generee (sur '$LACT1B') par : #
# #
# #
# :Debut_listG_DRAPEAUX_RUSSIE_UKRAINE_01: #
# #
# $Z Pal #
# #
# $Z setenv xTV $xTG #
# #
# $Z set _____ImageR=$xiio/DRAPEAUX.RUSSIE_UKRAINE.01 #
# #
# $Z $xci/lineaire$X \ #
# $Z A=0 B=-1 C=0 \ #
# $Z standard=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z standard=FAUX zero=FAUX \ #
# $Z rNOIR=$NOIR_PLANCHER rBLANC=$BLANC \ #
# $Z $formatI | \ #
# $Z $xci/scroll$X \ #
# $Z toreX=FAUX trX=-0.5 trY=0 \ #
# $Z $formatI | \ #
# $Z $xci/scroll$X \ #
# $Z toreX=FAUX trX=+0.5 trY=0 \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/DrapeauRussie.01 \ #
# $Z R=$xTV/DRAPEAU_RUSSIE \ #
# $Z $formatI #
# #
# $Z $xci/lineaire$X \ #
# $Z A=0 B=+1 C=0 \ #
# $Z standard=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z standard=FAUX zero=FAUX \ #
# $Z rNOIR=$NOIR_PLANCHER rBLANC=$BLANC \ #
# $Z $formatI | \ #
# $Z $xci/scroll$X \ #
# $Z toreX=FAUX trX=+0.5 trY=0 \ #
# $Z $formatI | \ #
# $Z $xci/scroll$X \ #
# $Z toreX=FAUX trX=-0.5 trY=0 \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/DrapeauUkraine.01 \ #
# $Z R=$xTV/DRAPEAU_UKRAINE \ #
# $Z $formatI #
# #
# $Z execRVB $xci/or_02$X \ #
# $Z A1=$xTV/DRAPEAU_RUSSIE%s \ #
# $Z A2=$xTV/DRAPEAU_UKRAINE%s \ #
# $Z R=$_____ImageR%s \ #
# $Z $formatI #
# #
# :Fin_listG_DRAPEAUX_RUSSIE_UKRAINE_01: #
# #
# #
# Montre cote a cote le drapeau de l'Ukraine (a gauche, soit donc a l'Ouest...) et le #
# drapeau de la Russie (a droite, soit donc a l'Est)... #
v $xiio/GRIS_6.Puh p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_GRIS_6_Puh: #
# #
# $Z Puh #
# #
# $Z $xci/init$X \ #
# $Z n=$GRIS_6 \ #
# $Z R=$xiio/GRIS_6.Puh \ #
# $Z $formatI #
# #
# :Fin_listG_GRIS_6_Puh: #
# #
v $xiio/GRIS_6.Puq p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_GRIS_6_Puq: #
# #
# $Z Puq #
# #
# $Z $xci/init$X \ #
# $Z n=$GRIS_6 \ #
# $Z R=$xiio/GRIS_6.Puq \ #
# $Z $formatI #
# #
# :Fin_listG_GRIS_6_Puq: #
# #
v $xiio/GRIS_8.Pal p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_GRIS_8_Pal: #
# #
# $Z Pal #
# #
# $Z $xci/init$X \ #
# $Z n=$GRIS_8 \ #
# $Z R=$xiio/GRIS_8.Pal \ #
# $Z $formatI #
# #
# :Fin_listG_GRIS_8_Pal: #
# #
v $xiio/MIRE__.Sdu p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_MIRE___Sdu: #
# #
# $Z ext Sdu 0 #
# #
# $Z $xci/neutre$X \ #
# $Z A=$xiio/MIRE \ #
# $Z R=$xiio/MIRE__.Sdu \ #
# $Z $formatI #
# #
# :Fin_listG_MIRE___Sdu: #
# #
v $xiio/MIRE__.Puq p=$xiP/gris.01
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_MIRE___Puq: #
# #
# $Z ext Puq 0 #
# #
# $Z $xci/neutre$X \ #
# $Z A=$xiio/MIRE \ #
# $Z R=$xiio/MIRE__.Puq \ #
# $Z $formatI #
# #
# :Fin_listG_MIRE___Puq: #
# #
v $xiio/MIRE_10.11
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_MIRE_MIRE_10_11: #
# #
# $Z set BaSe=10 #
# #
# $Z set _____imageR=$xiio/MIRE_10.11 #
# #
# $Z FilSTmpB FDeCiMaLeS #
# #
# $Z echo "0\n1\n2\n3\n4\n5\n6\n7\n8\n9" | \ #
# $Z $xrv/normalise.01$X ne=0 \ #
# $Z fichier== \ #
# $Z minimum=$NOIR_PLANCHER maximum=$BLANC \ #
# $Z formater=VRAI entiers=VRAI \ #
# $Z > $FDeCiMaLeS$NIVEAU #
# #
# $Z set LNiVeAuX=`$CA $FDeCiMaLeS$NIVEAU` #
# #
# $Z $xci/valeurs_inte$X premiere=1 derniere=`calculINS $BaSe+1` \ #
# $Z lineaire=VRAI \ #
# $Z vD=0 vA=1 | \ #
# $Z $HEA -$BaSe \ #
# $Z > $FDeCiMaLeS$COORD_X #
# #
# $Z set LAbScIsSeS=`$CA $FDeCiMaLeS$COORD_X` #
# #
# $Z IfBasic ($#LNiVeAuX != $BaSe) ThenBasic #
# $Z EROR "Probleme de base -1-." #
# $Z ElseBasic #
# $Z EndifBasic #
# #
# $Z IfBasic ($#LAbScIsSeS != $BaSe) ThenBasic #
# $Z EROR "Probleme de base -2-." #
# $Z ElseBasic #
# $Z EndifBasic #
# #
# $Z $xci/init$X niveau=$NOIR \ #
# $Z R=$_____imageR \ #
# $Z $formatI #
# #
# $Z set index=1 #
# #
# $Z while ($index <= $BaSe) #
# $Z $xci/init$X niveau=$LNiVeAuX[$index] \ #
# $Z $formatI | \ #
# $Z $xci/scroll$X trX=$LAbScIsSeS[$index] \ #
# $Z trY=0 \ #
# $Z toreX=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/cache$X A=$_____imageR \ #
# $Z R=$_____imageR \ #
# $Z $formatI #
# #
# $Z @ index = $index + 1 #
# $Z end #
# #
# $Z FilSTmpE FDeCiMaLeS #
# #
# :Fin_listG_MIRE_MIRE_10_11: #
# #
# Cette mire est destinee a aider a trouver des palettes de couleurs pour les images #
# generees par 'v $xiirv/.PIPO.U1.21.$U _____PaletteT'... #
v $xiio/MIRE_PARADOXE
# Generee (sur '$LACT12') par : #
# #
# #
# :Debut_listG_MIRE_PARADOXE: #
# #
# $Z Std #
# #
# $Z $xci/mire$X \ #
# $Z A=$xiio/NOIR \ #
# $Z h=$BLANC \ #
# $Z generale=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z R=$xTV/MIRE.23 \ #
# $Z $formatI #
# #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/MIRE.23 \ #
# $Z $formatI | \ #
# $Z $xci/Sx$X \ #
# $Z R=$xTV/MIRE.24 \ #
# $Z $formatI #
# #
# $Z $xci/cache$X \ #
# $Z A=$xTV/MIRE.23 \ #
# $Z M=$xTV/MIRE.24 \ #
# $Z R=$xiio/MIRE_PARADOXE \ #
# $Z $formatI #
# #
# :Fin_listG_MIRE_PARADOXE: #
# #
# #
# C'est en fait sur 'v $Dhistory/LACT12$D/19930526174725 .xiio.MIRE_PARADOXE' qu'a eu lieu #
# effectivement la "vraie" generation de cette mire... #
v $xiio/MIRE_TRANSPOSEE p=$xiP/cercle.22
# Generee (sur '$LACT1A') par : #
# #
# #
# :Debut_listG_MIRE_TRANSPOSEE: #
# #
# $Z Std #
# #
# $Z $xci/transpose$X \ #
# $Z A=$xiio/MIRE \ #
# $Z R=$xiio/MIRE_TRANSPOSEE \ #
# $Z $formatI #
# #
# :Fin_listG_MIRE_TRANSPOSEE: #
# #
v $xiio/MIRE_XY
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_MIRE_XY: #
# #
# $Z Std #
# #
# $Z $xci/vraies_C$X \ #
# $Z A=$xiio/MIRE \ #
# $Z p=$xiP/cercle.35 \ #
# $Z R=$xTV/MIRE \ #
# $Z $formatI #
# #
# $Z $xci/lineaire$X \ #
# $Z A=0 B=1 C=0 \ #
# $Z standard=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/normalise.01$X \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z standard=FAUX zero=FAUX \ #
# $Z R=$xTV/DEGRADE \ #
# $Z $formatI #
# #
# $Z execRVB $xci/multi_02.01$X \ #
# $Z A1=$xTV/DEGRADE \ #
# $Z A2=$xTV/MIRE%s \ #
# $Z R=$xiio/MIRE_XY%s \ #
# $Z $formatI #
# #
# :Fin_listG_MIRE_XY: #
# #
# #
# Cette mire code la coordonnee 'X' par le degrade de couleurs de '$xiP/cercle.35' et la #
# coordonnee 'Y' par la luminance croissante du bas vers le haut... #
v $xiio/MORL.1006$PR p=$xiP/cercle.35
v $xiio/MORL.1006$PI p=$xiP/cercle.35
# Generee (sur '$LACT15') par : #
# #
# #
# :Debut_listG_MORL_1006: #
# #
# $Z Std #
# #
# $Z $xci/morlet.01$X \ #
# $Z lineaire=0 radiale=1 \ #
# $Z dilatation=0.10 \ #
# $Z RR=$xiio/MORL.1006$PR \ #
# $Z RI=$xiio/MORL.1006$PI \ #
# $Z $formatI #
# #
# :Fin_listG_MORL_1006: #
# #
#######################################################################################################################################
# #
# L O G O D U CNRS : #
# #
#######################################################################################################################################
$xci/display$X A=$xiio/CNRS.11 vraies_couleurs=VRAI Xmin=0 Xmax=340 Ymin=0 Ymax=340
# Generee (sur '$LACT19') par : #
# #
# #
# :Debut_listG_CNRS_11: #
# #
# $Z S #
# #
# $Z XYmaxNe 0 340 0 340 #
# #
# $Z setenv xTV $xTG #
# #
# $Z $CONVERT $xTV/CNRS.eps \ #
# $Z -depth $NBitsOctet \ #
# $Z -flip \ #
# $Z $xTV/CNRS$RVB #
# #
# $Z SwapB $xTV/CNRS$RVB #
# #
# C'est sur le site 'iconographie.med.univ-tours.fr/Logos/CNRS/CNRS%20logo.eps' que le #
# fichier '$xTV/CNRS.eps' a ete telecharge. #
# #
# $Z $xci/RVB_load$X A=$xTV/CNRS$RVB \ #
# $Z R=$xiio/CNRS.11 \ #
# $Z $formatI #
# #
# :Fin_listG_CNRS_11: #
# #