#######################################################################################################################################
# #
# V I S U A L I S A T I O N D ' U N E N S E M B L E F R A C T A L #
# D A N S L E S " P S E U D O - Q U A T E R N I O N S " : #
# #
# #
# Author of '$xiirc/.MANE.41.4.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20100704120347). #
# #
#######################################################################################################################################
$Z setParam _____Epaissir FAUX
$Z # Parametre introduit le 20210430104820, la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z setParam _____Accelerer FAUX
$Z # Parametre introduit le 20180124101116... #
$Z # #
$Z # Je note le 20180124113055 que c'est sans interet ('v $xci/accumule.42$K20180124110434') #
$Z # mais que je conserve cette option car, en effet, on ne sait jamais, plus tard... #
$Z SETParam _____Standard FAUX
$Z # Parametre introduit le 20140928102538... #
$Z setParam _____ValidMalo `GetParam $xci/accumule.42$X ValidMalo`
$Z # Parametre introduit le 20140922080638... #
$Z setParam _____IncompletAZA FAUX
$Z # Parametre introduit le 20120322173135... #
$Z setParam _____IncompletAZT FAUX
$Z # Parametre introduit le 20120322173135... #
$Z setParam _____InterpolerA VRAI
$Z # Parametre introduit le 20101125132708... #
$Z setParam _____LineaireA VRAI
$Z # Parametre introduit le 20101125132708... #
$Z setParam _____Dx `GetParam $xci/accumule.42$X ddgx`
$Z # Parametre introduit le 20120328093804... #
$Z setParam _____Dy `GetParam $xci/accumule.42$X ddgy`
$Z # Parametre introduit le 20120328093804... #
$Z setParam _____Dz `GetParam $xci/accumule.42$X ddgz`
$Z # Parametre introduit le 20120328093804... #
$Z setParam _____Speculaire 2
$Z setParam _____DepthCueing 0.3
$Z setParam _____cn FAUX
$Z # Parametre introduit le 20120328081216... #
$Z setParam _____cnl VRAI
$Z # Parametre introduit le 20120328081216... #
$Z setParam _____ccXYZ VRAI
$Z # Dans le cas ou des "maximum_niveau_resultant="s differentes seraient utilisees par #
$Z # composante chromatique, il pourrait etre utile de faire '_____ccXYZ=FAUX'... #
$Z setParam _____ccRPT FAUX
$Z # Parametre introduit le 20200224142547... #
$Z if ($?_____CercleInscrit == $NEXIST) then
$Z if ($DATE < 20141110) then
$Z # Test introduit le 20141110105452... #
$Z set _____CercleInscrit=`GetParam $xci/gauss$X cercle_inscrit`
$Z # Parametre introduit le 20141105133848... #
$Z else
$Z set _____CercleInscrit=VRAI
$Z endif
$Z else
$Z endif
$Z set MaXiMuM_NiVeAu="maximum_niveau_resultant=`GetParam $xci/accumule.42$X maximum_niveau_resultant`"
$Z set ReNoRmAlIsEr="renormaliser_niveau_resultant=`GetParam $xci/accumule.42$X renormaliser_niveau_resultant`"
$Z setParam _____exec_aR "pX=0 pY=0 pZ=1 pR=0 pP=0 pT=0 $MaXiMuM_NiVeAu $ReNoRmAlIsEr"
$Z setParam _____exec_aV "pX=0 pY=1 pZ=0 pR=0 pP=0 pT=0 $MaXiMuM_NiVeAu $ReNoRmAlIsEr"
$Z setParam _____exec_aB "pX=1 pY=0 pZ=0 pR=0 pP=0 pT=0 $MaXiMuM_NiVeAu $ReNoRmAlIsEr"
$Z setParam _____PostfixeT "$K_VIDE"
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z # Parametre introduit le 20100919102902... #
$Z setParam _____RotationZ `GetParam $xci/accumule.42$X ROTATION_OZ`
$Z # Parametre introduit le 20111125085826... #
$Z setParam _____ParamAccumule "$K_VIDE"
$Z # Parametre introduit le 20120904123714... #
$Z # #
$Z # Le 20141126121159, je me demande si '$_____ParamAccumule' et '$_____ArgAccumule' ne font #
$Z # pas double emploi ? #
$Z setParam _____ArgAccumule "$K_VIDE"
$Z # Parametre introduit le 20120328083728... #
$Z # #
$Z # Le 20141126121159, je me demande si '$_____ParamAccumule' et '$_____ArgAccumule' ne font #
$Z # pas double emploi ? #
$Z setParam _____PaletteBrume $xiP/gris.05
$Z # Parametre introduit le 20101121103627 (suite a une remarque d'Olivier COLONNA concernant #
$Z # le "degrade" de gris de 'v $xiirc/$xiirc/LYAP.C1.2' principalement... #
$Z if ($?_____Detruire_ == $NEXIST) then
$Z # Parametre introduit le 20110117140239... #
$Z
$Z if ($DATE < 20110909) then
$Z # Test introduit le 20110909111634 pour changer la valeur par defaut de '$_____Detruire_'. #
$Z SET _____Detruire_=$NEXIST
$Z else
$Z SET _____Detruire_=$EXIST
$Z endif
$Z else
$Z endif
$Z if ($?_____Detruire_0 == $NEXIST) then
$Z # Parametre introduit le 20240902133019... #
$Z
$Z if ($DATE < 20240902) then
$Z SET _____Detruire_0=$NEXIST
$Z else
$Z SET _____Detruire_0=$EXIST
$Z endif
$Z else
$Z endif
$Z if ($?_____Detruire_1 == $NEXIST) then
$Z # Parametre introduit le 20110117140239... #
$Z
$Z if ($DATE < 20110909) then
$Z # Test introduit le 20110909111634 pour changer la valeur par defaut de '$_____Detruire_1'. #
$Z SET _____Detruire_1=$NEXIST
$Z else
$Z if ($DATE < 20121207) then
$Z # Test introduit le 20121207095620 pour changer la valeur par defaut de '$_____Detruire_1'. #
$Z SET _____Detruire_1=$EXIST
$Z else
$Z SET _____Detruire_1=$NEXIST
$Z endif
$Z endif
$Z else
$Z endif
$Z SETParam _____Detruire_2 $NEXIST
$Z # Parametre introduit le 20110117140239... #
$Z if ($?_____Detruire_21 == $NEXIST) then
$Z # Parametre introduit le 20121207095620... #
$Z if ($DATE < 20121207) then
$Z SET _____Detruire_21=$EXIST
$Z else
$Z SET _____Detruire_21=$NEXIST
$Z endif
$Z else
$Z endif
$Z if ($?_____Detruire_2_1 == $NEXIST) then
$Z # Parametre introduit le 20110117140239... #
$Z
$Z if ($DATE < 20110909) then
$Z # Test introduit le 20110909111634 pour changer la valeur par defaut de '$_____Detruire_2_1'. #
$Z SET _____Detruire_2_1=$NEXIST
$Z else
$Z SET _____Detruire_2_1=$EXIST
$Z endif
$Z else
$Z endif
$Z SETParam _____ConserverZB $NEXIST
$Z # Parametre introduit le 20120910095250... #
#20101203153032____:$Z if ($_____RotationX != 0) then #
#20101203153032____:$Z echo "ATTENTION : une rotation 'OX' peut introduire des artefacts visuels." #
$Z # Introduit le 20101203131353 a cause de 'v $xiii/di_album$FON 20101125100508'... #
#20101203153032____:$Z else #
#20101203153032____:$Z endif #
#20101203153032____:$Z if ($_____RotationY != 0) then #
#20101203153032____:$Z echo "ATTENTION : une rotation 'OY' peut introduire des artefacts visuels." #
$Z # Introduit le 20101203131353 a cause de 'v $xiii/di_album$FON 20101125100508'... #
#20101203153032____:$Z else #
#20101203153032____:$Z endif #
$Z set PaRaMA="$K_VIDE"
$Z set PaRaMA="$PaRaMA"" ValidMalo=$_____ValidMalo"
$Z # Introduit le 20140922080638 pour 'v $xiirf/MENG.21.5.1'... #
$Z set PaRaMA="$PaRaMA"" A=$_____ImageTd."
$Z set PaRaMA="$PaRaMA"" T=$_____ImageTT."
$Z set PaRaMA="$PaRaMA"" accelerer=$_____Accelerer"
$Z # Introduit le 20180124101116 pour permettre d'accelerer les phases de mise au point... #
$Z set PaRaMA="$PaRaMA"" incomplet_ZA=$_____IncompletAZA"
$Z set PaRaMA="$PaRaMA"" incomplet_ZT=$_____IncompletAZT"
$Z # Introduit le 20120322173135 pour resoudre 'v $xiii/di_album$FON 20120321113814'... #
$Z set PaRaMA="$PaRaMA"" standard=$_____Standard"
$Z set PaRaMA="$PaRaMA"" premiereA=$cPremiere"
$Z set PaRaMA="$PaRaMA"" premiereT=$cPremiere"
$Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`"
$Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`"
$Z set PaRaMA="$PaRaMA"" avertir_coordonnees_hors_espace=FAUX"
$Z # Introduit le 20101206153527 pour simplifier les sorties... #
$Z set PaRaMA="$PaRaMA"" epaissir_albums=$_____Epaissir"
$Z # Introduit le 20210430104820 a cause de 'v $xiii/di_album$FON 20210424103808'... #
$Z set PaRaMA="$PaRaMA"" inverser_ZA=VRAI"
$Z set PaRaMA="$PaRaMA"" inverser_ZT=VRAI"
$Z set PaRaMA="$PaRaMA"" prolonger_X=FAUX"
$Z set PaRaMA="$PaRaMA"" prolonger_Y=FAUX"
$Z set PaRaMA="$PaRaMA"" prolonger_Z=FAUX"
$Z set PaRaMA="$PaRaMA"" interpoler=$_____InterpolerA lineaire=$_____LineaireA"
$Z set PaRaMA="$PaRaMA"" ddgx=$_____Dx ddgy=$_____Dy ddgz=$_____Dz"
$Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI"
$Z set PaRaMA="$PaRaMA"" slx=$_____SourceX sly=$_____SourceY slz=+$_____SourceZ"
$Z set PaRaMA="$PaRaMA"" Tpro_X=FAUX Tpro_Y=FAUX Tpro_Z=FAUX"
$Z set PaRaMA="$PaRaMA"" Aniveau_maximal=FAUX Tniveau_maximal=VRAI"
$Z set PaRaMA="$PaRaMA"" cn=$_____cn cnl=$_____cnl ccXYZ=$_____ccXYZ ccRPT=$_____ccRPT"
$Z set PaRaMA="$PaRaMA"" speculaire=$_____Speculaire"
$Z set PaRaMA="$PaRaMA"" depth_cueing=$_____DepthCueing"
$Z set PaRaMA="$PaRaMA"" NomFicherNomCache=VRAI ConserverTemporairementFichierExistant=VRAI"
$Z # Introduits le 20170424181207 suite a la generation de 'v $xiirs/EPIC.31.1.21' qui avait #
$Z # ete lancee avec : #
$Z # #
$Z # set _____imagesR=$xiirs/EPIC.31 #
$Z # #
$Z # au lieu de : #
$Z # #
$Z # set _____imagesR=$xiirs/EPIC.31.1 #
$Z # #
$Z # Or les images '$xiirs/EPIC.31' existaient deja et les nouvelles n'ont donc pu etre #
$Z # archivees (heureusement d'ailleurs...). Or ce calcul durait plus de cinq heures. Le #
$Z # dispositif mis ici en place aurait permis de ne pas avoir a le refaire... #
$Z set PaRaMA="$PaRaMA"" $_____ArgAccumule"
$Z # Ceci doit etre en derniere position evidemment (introduit le 20120328083728)... #
#20170516093226____:$Z FileTmpB Z_BuFfEr $Z_BUFFER $K_QD$K_VIDE$K_QD $xTS #
$Z FileTmpB Z_BuFfEr $Z_BUFFER $K_QD$K_VIDE$K_QD $DStemporairesUG
$Z # L'introduction du fichier temporaire '$Z_BuFfEr' le 20120224135354 est destinee a eviter #
$Z # des conflits dans le cas ou '$xTV' est de nature globale et ou plusieurs '$Z's tournent #
$Z # en meme temps... #
$Z # #
$Z # Le 20170516093226, '$DStemporairesUG' a remplace '$xTS' pour disposer eventuellement de #
$Z # plus d'espace disque... #
$Z set exec_aR="$K_VIDE"
$Z set exec_aR="$exec_aR""$_____exec_aR"
$Z set exec_aR="$exec_aR"" ZBuffer=VRAI Z=$Z_BuFfEr"
$Z set exec_aR="$exec_aR"" Progression=VRAI"
$Z set exec_aR="$exec_aR"" ChronometrerCommande=VRAI"
$Z # Le 20170519133201 furent introduites des aides permettant de savoir quelle charge #
$Z # represente ce calcul... #
$Z set exec_aV="$_____exec_aV"
$Z set exec_aV="$exec_aV"" ChronometrerCommande=VRAI"
$Z # Le chronometrage a ete introduit sur la composante '$VERTE' le 20180116103456 apres #
$Z # avoir decouvert que d'importantes disparites existaient entre les trois composantes... #
$Z set exec_aB="$_____exec_aB"
$Z set exec_aB="$exec_aB"" ChronometrerCommande=VRAI"
$Z # Le chronometrage a ete introduit sur la composante '$BLEUE' le 20180116103456 apres #
$Z # avoir decouvert que d'importantes disparites existaient entre les trois composantes... #
$Z # On notera que le dernier resultat de chronometrage a s'afficher correspond a l'accumulation #
$Z # la plus lente et c'est donc elle qui doit etre memorisee a cette date, si besoin est... #
$Z execRVB $xci/accumule.42$X \
$Z $PaRaMA \
$Z postfixeT="$_____PostfixeT" \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z ValiderAxes=FAUX \
$Z $_____ParamAccumule \
$Z R=$_____imagesR%s \
$Z $formatI
$Z # Le 20120904123714 fut introduit '$_____ParamAccumule', par exemple, pour forcer un niveau #
$Z # de texture specifique via "T=..." (ce qui aurait pour effet pervers de supprimer un #
$Z # eventuel ombrage contenu dans les images de '$_____ImageTT.' !). #
$Z # #
$Z # Le parametre "ValiderAxes=FAUX" a ete introduit le 20141126121159 afin de faciliter les #
$Z # tests a echelle reduite... #
$Z # #
$Z # #
$Z # Aux environs du 20150309120210, j'ai fait sur '$CMAP28' -ex "porte-brancion"- des #
$Z # mesures de performance en fonction des differents parametres pouvant agir sur elle. #
$Z # Elles utiliserent la generation de l'image 'v $xiirc/JULJ.U4.1' avec les arguments #
$Z # modifies suivants : #
$Z # #
$Z # Pud #
$Z # SET cDerniere=128 #
$Z # #
$Z # Voici donc les resultats : #
$Z # #
$Z # interpoler=FAUX interpoler_lineairement=VRAI AccelerateurFonctions=FAUX #
$Z # time = 17.059u 0.050s 0:17.52 97.6% #
$Z # #
$Z # interpoler=VRAI interpoler_lineairement=VRAI AccelerateurFonctions=FAUX #
$Z # time = 30.695u 0.061s 0:31.06 99.0% #
$Z # #
$Z # interpoler=VRAI interpoler_cubiquement=VRAI AccelerateurFonctions=FAUX #
$Z # time = 71.143u 0.052s 1:11.50 99.5% #
$Z # #
$Z # #
$Z # interpoler=FAUX interpoler_lineairement=VRAI AccelerateurFonctions=VRAI #
$Z # time = 17.613u 0.052s 0:17.97 98.2% #
$Z # #
$Z # interpoler=VRAI interpoler_lineairement=VRAI AccelerateurFonctions=VRAI #
$Z # time = 21.823u 0.056s 0:22.17 98.6% #
$Z # #
$Z # interpoler=VRAI interpoler_cubiquement=VRAI AccelerateurFonctions=VRAI #
$Z # time = 34.419u 0.066s 0:34.78 99.1% #
$Z # #
$Z # #
$Z # Et l'on voit que l'accelerateur de fonctions est largement BENEFIQUE contrairement a #
$Z # 'v $xiirc/.MANE.41.3.$U 20150309120210' ou il est penalisant... #
$Z set PaRaMC="$K_VIDE"
$Z set PaRaMC="$PaRaMC"" points=4"
$Z set PaRaMC="$PaRaMC"" ConserverTemporairementFichierExistant=VRAI"
$Z # Le 20180214091639, "ConserverTemporairementFichierExistant=VRAI" a ete introduit suite #
$Z # a la regeneration de 'v $xiirf/MENG.22.5.1'... #
$Z execRVB $xci/convol.01$X \
$Z A=$_____imagesR%s \
$Z $PaRaMC \
$Z R=$_____imagesR.1%s \
$Z $formatI
#20170516093226____:$Z FileTmpB BrUmE $K_QD$K_VIDE$K_QD $K_QD$K_VIDE$K_QD $xTS #
$Z FileTmpB BrUmE $K_QD$K_VIDE$K_QD $K_QD$K_VIDE$K_QD $DStemporairesUG
$Z # L'introduction du fichier temporaire '$BrUmE' le 20120224135354 est destinee a eviter #
$Z # des conflits dans le cas ou '$xTV' est de nature globale et ou plusieurs '$Z's tournent #
$Z # en meme temps... #
$Z # #
$Z # Le 20170516093226, '$DStemporairesUG' a remplace '$xTS' pour disposer eventuellement de #
$Z # plus d'espace disque... #
$Z $xci/normalise.01$X \
$Z A=$Z_BuFfEr \
$Z extrema=FAUX \
$Z minimum=0 maximum=1 \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z $formatI | \
$Z $xci/complement$X \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$_____PaletteBrume \
$Z R=$BrUmE \
$Z $formatI
$Z if ($_____ConserverZB == $EXIST) then
#20180214091639____:$Z $xci/neutre$X \ #
#20180214091639____:$Z A=$Z_BuFfEr \ #
#20180214091639____:$Z standard=FAUX \ #
#20180214091639____:$Z R=$_____imagesR$Z_BUFFER \ #
#20180214091639____:$Z $formatI #
$Z $xci/neutre$X \
$Z A=$Z_BuFfEr \
$Z standard=FAUX \
$Z ConserverTemporairementFichierExistant=VRAI \
$Z R=$_____imagesR$Z_BUFFER \
$Z $formatI
$Z # Introduit le 20120910095250... #
$Z else
$Z endif
$Z FileTmpE Z_BuFfEr
$Z execRVB $xci/cache$X \
$Z A=$BLANC \
$Z M=$_____imagesR.1%s \
$Z anti_aliasing=FAUX \
$Z R=$_____ImageT22%s \
$Z $formatI
$Z $xci/vitre.53$Z \
$Z $_____ImageT22 \
$Z $BrUmE \
$Z $_____ImageT23
$Z FileTmpE BrUmE
#20180214091639____:$Z execRVB $xci/convol.01$X \ #
#20180214091639____:$Z A=$_____ImageT23%s \ #
#20180214091639____:$Z points=9 \ #
#20180214091639____:$Z circulaire=VRAI \ #
#20180214091639____:$Z circulaire_optimale=VRAI \ #
#20180214091639____:$Z R=$_____imagesR.2%s \ #
#20180214091639____:$Z $formatI #
$Z execRVB $xci/convol.01$X \
$Z A=$_____ImageT23%s \
$Z points=9 \
$Z circulaire=VRAI \
$Z circulaire_optimale=VRAI \
$Z ConserverTemporairementFichierExistant=VRAI \
$Z R=$_____imagesR.2%s \
$Z $formatI
$Z $xci/gauss$X \
$Z cercle_inscrit=$_____CercleInscrit \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z # La possibilite d'inscrire la gaussienne dans un cercle a ete introduite le 20141105133848. #
#20180214091639____:$Z execRVB $xci/interpole.02$X \ #
#20180214091639____:$Z A1=$_____imagesR.2%s \ #
#20180214091639____:$Z A2=$_____imagesR.1%s \ #
#20180214091639____:$Z P=$xTV/GAUSS \ #
#20180214091639____:$Z R=$_____imagesR.21%s \ #
#20180214091639____:$Z $formatI #
$Z # Introduit le 20121207095620... #
$Z execRVB $xci/interpole.02$X \
$Z A1=$_____imagesR.2%s \
$Z A2=$_____imagesR.1%s \
$Z P=$xTV/GAUSS \
$Z ConserverTemporairementFichierExistant=VRAI \
$Z R=$_____imagesR.21%s \
$Z $formatI
$Z # Introduit le 20121207095620... #
$Z $xci/color_NB.01$Z $_____imagesR.2 $_____imagesR.2.1
#20120816092400____:$Z alias SaVeImAgE 'set ImAgE=\!:1 ; \\ #
#20120816092400____:$Z execRVB $xci/neutre$X \\ #
#20120816092400____:$Z A=$ImAgE%s \\ #
#20120816092400____:$Z R=$xTV/$SaUvEgArDe%s \\ #
#20120816092400____:$Z $formatI ; \\ #
#20120816092400____:$Z execRVB $DELETE $ImAgE%s ; \\ #
#20120816092400____:$Z unset ImAgE' #
#20160601124555____:$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\ #
#20160601124555____:$Z execRVB $xci/neutre$X \\ #
#20160601124555____:$Z A=$ImAgE_DeLeTeD%s \\ #
#20160601124555____:$Z R=$xTV/$SaUvEgArDe%s \\ #
#20160601124555____:$Z $formatI ; \\ #
#20160601124555____:$Z execRVB $DELETE $ImAgE_DeLeTeD%s ; \\ #
#20160601124555____:$Z unset ImAgE_DeLeTeD' #
#20160622171812____:$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\ #
#20160622171812____:$Z execRVB $xci/neutre$X \\ #
#20160622171812____:$Z A=$ImAgE_DeLeTeD%s \\ #
#20160622171812____:$Z R=$xTV/$SaUvEgArDe%s \\ #
#20160622171812____:$Z $formatI ; \\ #
#20160622171812____:$Z execRVB $DELETE_VALIDE $ImAgE_DeLeTeD%s ; \\ #
#20160622171812____:$Z unset ImAgE_DeLeTeD' #
#20240903074214____:$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\ #
#20240903074214____:$Z set SaUvEgArDe=`GetLeaf $ImAgE_DeLeTeD` ; \\ #
#20240903074214____:$Z execRVB $xci/neutre$X \\ #
#20240903074214____:$Z A=$ImAgE_DeLeTeD%s \\ #
#20240903074214____:$Z R=$xTV/$SaUvEgArDe%s \\ #
#20240903074214____:$Z $formatI ; \\ #
#20240903074214____:$Z execRVB $xci/delete$X \\ #
#20240903074214____:$Z A=$ImAgE_DeLeTeD%s \\ #
#20240903074214____:$Z $formatI ; \\ #
#20240903074214____:$Z unset ImAgE_DeLeTeD' #
$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\
$Z set SaUvEgArDe=`GetLeaf $ImAgE_DeLeTeD` ; \\
$Z execRVB $xci/neutre$X \\
$Z A=$ImAgE_DeLeTeD%s \\
$Z R=$xTV/$SaUvEgArDe%s \\
$Z CAL1=FAUX \\
$Z $formatI ; \\
$Z execRVB $xci/delete$X \\
$Z A=$ImAgE_DeLeTeD%s \\
$Z CAL1=FAUX \\
$Z $formatI ; \\
$Z unset ImAgE_DeLeTeD'
$Z # Introduit le 20120813092339 afin de mettre de cote, malgre tout, ce qui vient d'etre #
$Z # calcule, dans le cas ou il va y avoir des '$DELETE's... #
$Z # #
$Z # Le remplacement de '$ImAgE' par '$ImAgE_DeLeTeD' le 20120816092400 vient du fait que #
$Z # '$ImAgE' est souvent deja utilise ('v $xiaf/$Fnota set.......ImAgE=.Premiere' par exemple). #
$Z # #
$Z # Le remplacement de '$DELETE' par '$DELETE_VALIDE' a eu lieu le 20160601124555, lors de #
$Z # la mise au point de 'v $xiirv/TREE.B4.1', 'TREE.B3' ayant ete choisi par erreur au debut, #
$Z # a la place de 'TREE.B4'. Ce '$DELETE' avait donc detruit l'image 'v $xiirv/TREE.B3' via le #
$Z # 'SaVeImAgE $_____imagesR' qui suit immediatement... #
$Z # #
$Z # Ce probleme s'est represente sur '$CMAP28' -ex "porte-brancion"- aux environs du #
$Z # 20160621134432 avec l'image 'v $xiirs/CAYA.A1.0129' alors que je mettai au point #
$Z # l'image 'v $xiirs/CAYA.K1.0129' baptisee alors '$xiirs/CAYA.A1.0129'. Cette derniere #
$Z # image a disparu sans que je puisse comprendre le processus. Les tests faits ensuite #
$Z # ont montre que le '$DELETE_VALIDE' ci-dessus mettait bien en attente de reponse le '$Z' #
$Z # correspondant. Alors un grand mystere... #
$Z # #
$Z # Le 20160622165540, j'ai compris : le '$Z' correspondant avait ete lance via une commande #
$Z # 'jobr' de 'europe' vers 'porte-brancion'. Le '$Z' n'avait donc pas de terminal attache #
$Z # et donc '$DELETE_VALIDE' n'a pas pu "prompter' et il a donc detruit les fichiers #
$Z # correspondants sans etat d'ame. On notera qu'il en est de meme avec la commande 'job' #
$Z # que j'ai essaye sur 'europe' et qui a donc detruit le fichier test. La question qui se #
$Z # pose est de savoir comment faire pour que '$DELETE_VALIDE' ne detruise pas un fichier #
$Z # qui est protege. On notera au passage que ce sont plus les droits du directory courant #
$Z # de ce fichier que '$DELETE_VALIDE' utilise... #
$Z # #
$Z # Le probleme a ete resolu le 20160622171812 grace a 'v $xci/delete$K'... #
$Z # #
$Z # Suite a l'introduction de 'v $xiirc/.MANE.41.4.$U _____Detruire_0' le 20240903074214, les #
$Z # messages d'erreur ont ete supprimes ci-dessus via "CAL1=FAUX" le 20240903074214... #
$Z if ($_____Detruire_ == $EXIST) then
#20120813092339____:$Z execRVB $DELETE $_____imagesR%s #
$Z SaVeImAgE $_____imagesR
$Z # Introduit le 20110117140239 pour 'v $xiirc/.MANE.B1.1.$U _____Detruire_'... #
$Z else
$Z endif
$Z if ($_____Detruire_0 == $EXIST) then
$Z SaVeImAgE $_____imagesR.0
$Z # Introduit le 20240902133019... #
$Z else
$Z endif
$Z if ($_____Detruire_1 == $EXIST) then
#20120813092339____:$Z execRVB $DELETE $_____imagesR.1%s #
$Z SaVeImAgE $_____imagesR.1
$Z # Introduit le 20110117140239 pour 'v $xiirc/.MANE.B1.1.$U _____Detruire_1'... #
$Z else
$Z endif
$Z if ($_____Detruire_2 == $EXIST) then
#20120813092339____:$Z execRVB $DELETE $_____imagesR.2%s #
$Z SaVeImAgE $_____imagesR.2
$Z # Introduit le 20110117140239 pour 'v $xiirc/.MANE.B1.1.$U _____Detruire_2'... #
$Z else
$Z endif
$Z if ($_____Detruire_21 == $EXIST) then
$Z SaVeImAgE $_____imagesR.21
$Z # Introduit le 20121207095620... #
$Z else
$Z endif
$Z if ($_____Detruire_2_1 == $EXIST) then
#20120813092339____:$Z execRVB $DELETE $_____imagesR.2.1%s #
$Z SaVeImAgE $_____imagesR.2.1
$Z # Introduit le 20110117140239 pour 'v $xiirc/.MANE.B1.1.$U _____Detruire_2_1'... #
$Z else
$Z endif