#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C R E A T I O N   D ' U N   T A B L E A U   D ' I M A G E S   ( S A N S   L E S   R E D U I R E )                           #
#         A   P A R T I R   D ' U N E   S E Q U E N C E   D ' I M A G E S                                                             #
#         ( V E R S I O N   E N   C E   Q U I   C O N C E R N E   L E   ' $formatI '   D E   ' $imageR' )  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#    $xci/regroupe.02$Z  <seqA> <imaR> <prem> <pas> <Nhorizon> <Nvert> [<postfixe> [<formatR> [<NChif> [<Dil> [<Wait> [<Err>]]]]]]    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/regroupe.02$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20110610155543).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 sequenceA=$1
set                 imageR=$2
set                 premiere=$3
set                 pas=$4
set                 Nhorizontale=$5
set                 Nverticale=$6
set                 postfixe=$7
set                 formatR=($8)
                                        # Si '$formatR' n'est pas vide et si l'on arrive ici via un 'execRVB', alors il               #
                                        # conviendra de presenter, a l'appel, cet argument '$formatR' sous la forme :                 #
                                        #                                                                                             #
                                        #                   '$K_QD$formatR_???$K_QD'                                                  #
                                        #                                                                                             #
                                        # ou '$formatR_???' designe un format Resultat ('v $xE/.alias.2$vv$Y alias.....execRVB' qui   #
                                        # utilise un 'eval'...).                                                                      #
set                 NChiffres=$9
set                 Dilater=$10
set                 Wait=$11
                                        # Argument introduit le 20191008113621 pour des utilisations du type calcul paralelle tel     #
                                        # 'v $xiirf/$Fnota execRVB....xci.regroupe.02.Z' car, en effet, alors, on ne sait pas qui     #
                                        # (quelle MACHINE...) va effectivement faire le reroupement...                                #
set                 Erreur=$12
                                        # Argument introduit le 20211210103738 pour 'v $xiirv/.CRYM.11.$U .xci.regroupe.02.Z' afin    #
                                        # afin d'autoriser les images inexistantes et ainsi les remplacer par du NOIR...              #

setArgum            NChiffres                     `GetParam $xci/regroupe.01$X chiffres`

setArgum            Dilater                       VRAI
                                        # La valeur par defaut assure la compatibilite anterieure...                                  #

setArgum            Wait                          FAUX
                                        # La valeur par defaut assure la compatibilite anterieure...                                  #

setArgum            Erreur                        `GetParam $xci/regroupe.01$X accepter_images_inexistantes`
                                        # La valeur par defaut assure la compatibilite anterieure...                                  #

FileTmpB            nomT

$xci/regroupe.01$X  A=$sequenceA postfixe=$postfixe premiere=$premiere pas=$pas chiffres=$NChiffres                                     \
                    Attendre=$Wait                                                                                                      \
                    accepter_images_inexistantes=$Erreur                                                                                \
                    horizontale=$Nhorizontale verticale=$Nverticale                                                                     \
                    R=$nomT                                                                                                             \
                                                                                                                        $formatI
                                        # Construction du tableau HxV demande.                                                        #

setArgum            formatR                       "$formatR_Pal"

set                 Xmin_nomT=$Xmin
set                 Ymin_nomT=$Ymin
@                   Xmax_nomT = $dimX * $Nhorizontale - 1
@                   Ymax_nomT = $dimY * $Nverticale - 1
                                        # Extrema de l'image '$nomT'.                                                                 #
XYmaxNe             $Xmax_nomT $Ymax_nomT
                                        # Mise en place de '$formatI'...                                                              #

set                 methode=2
                                        # Choix de la methode (2=interpolation la meilleure).                                         #
@                   NepaisseurX = $Nhorizontale + 1
@                   NepaisseurY = $Nverticale + 1
@                   Nepaisseur = $NepaisseurX * $NepaisseurY
                                        # Choix du parametre d'epaississement en fonction du nombre d'images de la matrice...         #

$xci/format.01$X    A=$nomT                                                                                                             \
                                                                                                                        $formatI        \
                    methode=$methode                                                                                                    \
                    dilater=$Dilater points=$Nepaisseur                                                                                 \
                    R=$imageR                                                                                                           \
                                                                                                                        $formatR
                                        # Construction du tableau HxV demande en le laissant dans le format Argument.                 #

FileTmpE  nomT
                                        # Puis destruction de l'image temporaire.                                                     #