#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N C A D R E D E Z O O M : #
# #
# #
# Author of '$xiirc/.MANF.B1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20210409140550). #
# #
#######################################################################################################################################
$Z SETParam _____Compatibilite_20210506 $NEXIST
$Z # Introduit le 20210506084029... #
$Z setParam _____Nota $xiirc/$Fnota
#20210920080342____:$Z setParam _____Epaisseur 12 #
$Z setParam _____Epaisseur 4
$Z # A cause de 'v $xiMl/MANF.Bn.5.21.$ANGLAIS.$m4.$I define..RaPpOrTi..2.', il a fallu #
$Z # augmenter '$_____Epaisseur' le 20210410101930... #
#20210920080342____:$Z setParam _____OptimiserEpaisseur VRAI #
#20210920113040____:$Z setParam _____OptimiserEpaisseur FAUX #
$Z setParam _____OptimiserEpaisseur VRAI
$Z setParam _____EpaisseurMinimale 4
$Z setParam _____EpaisseurMaximale 12
$Z setParam _____RCSurfaceMinimale `GetParam $xci/cadre_zoom$X racine_carree_surface_minimale`
$Z setParam _____RCSurfaceMaximale `GetParam $xci/cadre_zoom$X racine_carree_surface_maximale`
$Z # L"optimisation de l'epaisseur du cadre a ete introduite le 20210919182751... #
$Z # #
$Z # On notera le 20210920074501, qu'en ce qui concerne '$_____EpaisseurMinimale' et #
$Z # '$_____Epaisseur', on a : #
$Z # #
$Z # 4 = 1 + 2 + 1 #
$Z # | | | #
$Z # | | -----> lisere NOIR interieur, #
$Z # | | #
$Z # | ---------> cadre BLANC lui-meme, #
$Z # | #
$Z # -------------> lisere NOIR exterieur. #
$Z # #
$Z setParam _____NiveauCadre $BLANC
#20210917115050____:$Z setParam _____Liseren FAUX #
$Z setParam _____Liseren VRAI
$Z setParam _____NiveauLiseren $NOIR
$Z # L'amelioration visuelle du cadre a ete introduite le 20210917074529... #
$Z xiirc
$Z # Ceci a ete introduit le 20210915185725 a cause des 'listN's qui suivent. On notera qu'il #
$Z # manquait et qu'a cause de 'v $Dhistory/LACT1A$D/20210506185309 20210506104708' cela ne #
$Z # s'etait pas vu puisqu'un 'xiirc' avait ete fait avant de lancer les '$Z's de generation #
$Z # de 'v $xiirc/MANF.E1.5.21.cadre' a 'v $xiirc/MANF.E7.5.21.cadre' et de meme pour #
$Z # 'v $xiirc/MANF.F1.5.21.cadre' a 'v $xiirc/MANF.F7.5.21.cadre'... #
$Z FilSTmpB FPaRaM1
#20210415085034____:$Z (listMN $_____Nota ":"$_____Debut1":" ":"$_____Fin1__":") | \ #
#20210415085034____:$Z $GRE ' SET *_____[xy]..=' | \ #
#20210415085034____:$Z $SE -e 's/^.* _____//' \ #
#20210415085034____:$Z -e 's/ *#$//' \ #
#20210415085034____:$Z -e 's/\(.\)\(=\)/\1i\2/' \ #
#20210415085034____:$Z >> $FPaRaM1 #
#20210506075951____:$Z (listMN $_____Nota ":""$_____Debut1"":" ":""$_____Fin1__"":") | \ #
#20210506075951____:$Z $GRE ' \$Z *SET *_____[xy]..=' | \ #
#20210506075951____:$Z $SE -e 's/^.* _____//' \ #
#20210506075951____:$Z -e 's/ *#$//' \ #
#20210506075951____:$Z -e 's/\(.\)\(=\)/\1i\2/' \ #
#20210506075951____:$Z >> $FPaRaM1 #
$Z if ($_____Compatibilite_20210506 == $EXIST) then
$Z # Possibilite introduite le 20210506084029... #
#20210916074130____:$Z (listMN $_____Nota ":""$_____Debut1"":" ":""$_____Fin1__"":") | \ #
#20210916074130____:$Z $GRE ' \$Z *'' SET '' *_____[xy]..=' | \ #
#20210916074130____:$Z $SE -e 's/^.* _____//' \ #
#20210916074130____:$Z -e 's/ *#$//' \ #
#20210916074130____:$Z -e 's/\(.\)\(=\)/\1i\2/' \ #
#20210916074130____:$Z >> $FPaRaM1 #
$Z (listMN $_____Nota ":""$_____Debut1"":" ":""$_____Fin1__"":") |& \
$Z $GRE ' \$Z *'' SET '' *_____[xy]..=' | \
$Z $SE -e 's/^.* _____//' \
$Z -e 's/ *#$//' \
$Z -e 's/\(.\)\(=\)/\1i\2/' \
$Z >> $FPaRaM1
$Z # La forme "'' SET ''" est due a 'v $Falias_listG 20070324110323' qui, avec " SET " provoque #
$Z # le message : #
$Z # #
$Z # Unmatched '. #
$Z # #
$Z # apres avoir genere une ligne : #
$Z # #
$Z # un$GRE ' #
$Z # #
$Z # dans le fichier temporaire '$FiLeTunset'... #
$Z # #
$Z # Le 20210916074130, un "|" a ete remplace par "|&" pour eviter le message incomprehensible : #
$Z # #
$Z # Broken pipe #
$Z # #
$Z # sur '$LACT1B'... #
$Z else
#20210916074130____:$Z (listN "$_____Debut1" "$_____Fin1__") | \ #
#20210916074130____:$Z $GRE " [xy][bh][gd]=" | \ #
#20210916074130____:$Z $HEA -1 | \ #
#20210916074130____:$Z $R "$K_BLANC" "$K_NL" | \ #
#20210916074130____:$Z $GRE "^[xy][bh][gd]=" | \ #
#20210916074130____:$Z $SE -e "s/\(=\)/i\1/" \ #
#20210916074130____:$Z >> $FPaRaM1 #
#20210917080245____:$Z (listN "$_____Debut1" "$_____Fin1__") |& \ #
#20210917080245____:$Z $GRE " [xy][bh][gd]=" | \ #
#20210917080245____:$Z $HEA -1 | \ #
#20210917080245____:$Z $R "$K_BLANC" "$K_NL" | \ #
#20210917080245____:$Z $GRE "^[xy][bh][gd]=" | \ #
#20210917080245____:$Z $SE -e "s/\(=\)/i\1/" \ #
#20210917080245____:$Z >> $FPaRaM1 #
$Z (listN "$_____Debut1" "$_____Fin1__") |& \
$Z $SE -e "s/_____//" | \
$Z $GRE " [xy][bh][gd]=" | \
$Z $HEA -4 | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $GRE "^[xy][bh][gd]=" | \
$Z $SE -e "s/\(=\)/i\1/" \
$Z >> $FPaRaM1
$Z # La modification du 20210506075951 est destinee a recuperer le nombre de decimales #
$Z # effectivement utilise pour les coordonnees ('v $xiirc/.MANE.h5.5.$u _____XYdecimales'). #
$Z # En procedant ainsi, on genere effectivement le '$Z' utile... #
$Z # #
$Z # Le 20210916074130, un "|" a ete remplace par "|&" pour eviter le message incomprehensible : #
$Z # #
$Z # Broken pipe #
$Z # #
$Z # sur '$LACT1B'... #
$Z # #
$Z # On notera le 20210917080245 que le "$HEA -4" est destine a recuperer la definition de #
$Z # quatre coordonnees, a savoir {xbg,ybg,xhd,yhd}... #
$Z endif
$Z set PaRaM1=`$CA $FPaRaM1`
$Z if ("$PaRaM1" != "$K_VIDE") then
$Z # Test introduit le 20210419110028... #
$Z FilSTmpB FPaRaM2
#20210506075951____:$Z (listMN $_____Nota ":""$_____Debut2"":" ":""$_____Fin2__"":") | \ #
#20210506075951____:$Z $GRE ' SET *_____[xy]..=' | \ #
#20210506075951____:$Z $SE -e 's/^.* _____//' \ #
#20210506075951____:$Z -e 's/ *#$//' \ #
#20210506075951____:$Z -e 's/\(.\)\(=\)/\1c\2/' \ #
#20210506075951____:$Z >> $FPaRaM2 #
$Z if ($_____Compatibilite_20210506 == $EXIST) then
$Z # Possibilite introduite le 20210506084029... #
#20210916074130____:$Z (listMN $_____Nota ":""$_____Debut2"":" ":""$_____Fin2__"":") | \ #
#20210916074130____:$Z $GRE ' SET *_____[xy]..=' | \ #
#20210916074130____:$Z $SE -e 's/^.* _____//' \ #
#20210916074130____:$Z -e 's/ *#$//' \ #
#20210916074130____:$Z -e 's/\(.\)\(=\)/\1c\2/' \ #
#20210916074130____:$Z >> $FPaRaM2 #
$Z (listMN $_____Nota ":""$_____Debut2"":" ":""$_____Fin2__"":") |& \
$Z $GRE ' SET *_____[xy]..=' | \
$Z $SE -e 's/^.* _____//' \
$Z -e 's/ *#$//' \
$Z -e 's/\(.\)\(=\)/\1c\2/' \
$Z >> $FPaRaM2
$Z # Le 20210916074130, un "|" a ete remplace par "|&" pour eviter le message incomprehensible : #
$Z # #
$Z # Broken pipe #
$Z # #
$Z # sur '$LACT1B'... #
$Z else
#20210916074130____:$Z (listN "$_____Debut2" "$_____Fin2__") | \ #
#20210916074130____:$Z $GRE " [xy][bh][gd]=" | \ #
#20210916074130____:$Z $HEA -1 | \ #
#20210916074130____:$Z $R "$K_BLANC" "$K_NL" | \ #
#20210916074130____:$Z $GRE "^[xy][bh][gd]=" | \ #
#20210916074130____:$Z $SE -e "s/\(=\)/c\1/" \ #
#20210916074130____:$Z >> $FPaRaM2 #
#20210917080245____:$Z (listN "$_____Debut2" "$_____Fin2__") |& \ #
#20210917080245____:$Z $GRE " [xy][bh][gd]=" | \ #
#20210917080245____:$Z $HEA -1 | \ #
#20210917080245____:$Z $R "$K_BLANC" "$K_NL" | \ #
#20210917080245____:$Z $GRE "^[xy][bh][gd]=" | \ #
#20210917080245____:$Z $SE -e "s/\(=\)/c\1/" \ #
#20210917080245____:$Z >> $FPaRaM2 #
$Z (listN "$_____Debut2" "$_____Fin2__") |& \
$Z $SE -e "s/_____//" | \
$Z $GRE " [xy][bh][gd]=" | \
$Z $HEA -4 | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $GRE "^[xy][bh][gd]=" | \
$Z $SE -e "s/\(=\)/c\1/" \
$Z >> $FPaRaM2
$Z # La modification du 20210506075951 est destinee a recuperer le nombre de decimales #
$Z # effectivement utilise pour les coordonnees ('v $xiirc/.MANE.h5.5.$u _____XYdecimales'). #
$Z # En procedant ainsi, on genere effectivement le '$Z' utile... #
$Z # #
$Z # Le 20210916074130, un "|" a ete remplace par "|&" pour eviter le message incomprehensible : #
$Z # #
$Z # Broken pipe #
$Z # #
$Z # sur '$LACT1B'... #
$Z # #
$Z # On notera le 20210917080245 que le "$HEA -4" est destine a recuperer la definition de #
$Z # quatre coordonnees, a savoir {xbg,ybg,xhd,yhd}... #
$Z endif
$Z set PaRaM2=`$CA $FPaRaM2`
$Z if ("$PaRaM2" != "$K_VIDE") then
$Z # Test introduit le 20210419110028... #
#20210917074529____:$Z execRVB $xci/cadre_zoom$X \ #
#20210917074529____:$Z A=$_____imagesA%s \ #
#20210917074529____:$Z $PaRaM1 \ #
#20210917074529____:$Z $PaRaM2 \ #
#20210917074529____:$Z epaisseur=$_____Epaisseur \ #
#20210917074529____:$Z R=$_____imagesR%s \ #
#20210917074529____:$Z $formatI #
#20210919182751____:$Z execRVB $xci/cadre_zoom$X \ #
#20210919182751____:$Z A=$_____imagesA%s \ #
#20210919182751____:$Z $PaRaM1 \ #
#20210919182751____:$Z $PaRaM2 \ #
#20210919182751____:$Z epaisseur=$_____Epaisseur \ #
#20210919182751____:$Z cadre=$_____NiveauCadre \ #
#20210919182751____:$Z lisere_cadre=$_____Lisere \ #
#20210919182751____:$Z lisere=$_____NiveauLisere \ #
#20210919182751____:$Z R=$_____imagesR%s \ #
#20210919182751____:$Z $formatI #
$Z execRVB $xci/cadre_zoom$X \
$Z A=$_____imagesA%s \
$Z $PaRaM1 \
$Z $PaRaM2 \
$Z epaisseur=$_____Epaisseur \
$Z optimiser_epaisseur=$_____OptimiserEpaisseur \
$Z rcsm=$_____RCSurfaceMinimale \
$Z rcsM=$_____RCSurfaceMaximale \
$Z epaisseur_minimale=$_____EpaisseurMinimale \
$Z epaisseur_maximale=$_____EpaisseurMaximale \
$Z cadre=$_____NiveauCadre \
$Z lisere_cadre=$_____Lisere \
$Z lisere=$_____NiveauLisere \
$Z R=$_____imagesR%s \
$Z $formatI
$Z else
$Z EROR "Bornes {"":""$_____Debut2"":"","":""$_____Fin2__"":""} absentes."
$Z endif
$Z FilSTmpE FPaRaM2
$Z else
$Z EROR "Bornes {"":""$_____Debut1"":"","":""$_____Fin1__"":""} absentes."
$Z endif
$Z FilSTmpE FPaRaM1