/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E V O L U T I O N   D U   C A D R A G E   D E   L A   F E N E T R E   D E   C A L C U L                                    */
/*        L O R S   D ' U N   Z O O M   D A N S   L E   P L A N   C O M P L E X E  :                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrc/cadrage.01$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20221130153002).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   X_DEPART_GAUCHE                                                                                                               \
                    PARE(-2.0)
#define   X_DEPART_DROITE                                                                                                               \
                    PARE(0.5)
#define   Y_DEPART_BAS                                                                                                                  \
                    PARE(-1.25)
#define   Y_DEPART_HAUT                                                                                                                 \
                    PARE(1.25)
                                        /* Definition de la fenetre de depart (vue d'ensemble).                                      */
#define   X_ARRIVEE_GAUCHE                                                                                                              \
                    PARE(-0.234254)
#define   X_ARRIVEE_DROITE                                                                                                              \
                    PARE(-0.234254)
#define   Y_ARRIVEE_BAS                                                                                                                 \
                    PARE(-0.828110)
#define   Y_ARRIVEE_HAUT                                                                                                                \
                    PARE(-0.828110)
                                        /* Definition de la fenetre d'arrivee (dans les filaments).                                  */
#define   PRECISION                                                                                                                     \
                    PARE(0.00001)                                                                                                       \
                                        /* Pour calculer le rapport de reduction.                                                    */

#define   EDITIONS_COMPATIBLES_ARGUMENTS                                                                                                \
                    VRAI                                                                                                                \
                                        /* Choix de la facon d'editer les resultats...                                               */

#include  xci/sequence.01.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrc/ITERATION.11.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E V O L U T I O N   D U   C A D R A G E   D E   L A   F E N E T R E   D E   C A L C U L                                    */
/*        L O R S   D ' U N   Z O O M   D A N S   L E   P L A N   C O M P L E X E  :                                                 */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(complexe,coin_bas_gauche_de_depart_puis_courant);
                                        /* Definition du point situe en bas a gauche de la fenetre de depart, puis de la fenetre     */
                                        /* courante au cours du zoom.                                                                */
     DEFV(complexe,coin_haut_droite_de_depart_puis_courant);
                                        /* Definition du point situe en haut a droite de la fenetre de depart, puis de la fenetre    */
                                        /* courante au cours du zoom.                                                                */
     DEFV(complexe,coin_bas_gauche_d_arrivee);
                                        /* Definition du point situe en bas a gauche de la fenetre d'arrivee,                        */
     DEFV(complexe,coin_haut_droite_d_arrivee);
                                        /* Definition du point situe en haut a droite de la fenetre d'arrivee.                       */

     DEFV(Float,INIT(precision,PRECISION));
                                        /* Pour calculer le rapport de reduction.                                                    */
     DEFV(Float,INIT(rapport_de_reduction,FLOT__UNDEF));
                                        /* Rapport de passage d'une fenetre a l'autre.                                               */

     DEFV(Int,INIT(premiere_image,PREMIERE_IMAGE_ABSOLUE));
                                        /* Numero de la premiere image...                                                            */
     DEFV(Int,INIT(nombre_d_images,NOMBRE_D_IMAGES));
                                        /* Nombre d'images a generer.                                                                */
     DEFV(Int,INIT(numero_d_image,UNDEF));
                                        /* Numero de l'image courante (celle-ci n'est pas necessairement generee : voir              */
                                        /* le parametre 'PREMIERE_IMAGE').                                                           */

     DEFV(Logical,INIT(editions_compatibles_arguments,EDITIONS_COMPATIBLES_ARGUMENTS));
                                        /* Choix de la facon d'editer les resultats...                                               */
     /*..............................................................................................................................*/
     Cinitialisation(coin_bas_gauche_de_depart_puis_courant,X_DEPART_GAUCHE,Y_DEPART_BAS);
     Cinitialisation(coin_haut_droite_de_depart_puis_courant,X_DEPART_DROITE,Y_DEPART_HAUT);
                                        /* Definition de la fenetre de depart.                                                       */
     Cinitialisation(coin_bas_gauche_d_arrivee,X_ARRIVEE_GAUCHE,Y_ARRIVEE_BAS);
     Cinitialisation(coin_haut_droite_d_arrivee,X_ARRIVEE_DROITE,Y_ARRIVEE_HAUT);
                                        /* Definition de la fenetre d'arrivee.                                                       */

     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(
                         GET_ARGUMENT_I("premiere=",premiere_image);
                         GET_ARGUMENT_I("n=""images=""N=",nombre_d_images);

                         GET_ARGUMENT_F("xbg=""xbgd=""xbgD=",Reelle(coin_bas_gauche_de_depart_puis_courant));
                         GET_ARGUMENT_F("ybg=""ybgd=""ybgD=",Imaginaire(coin_bas_gauche_de_depart_puis_courant));
                         GET_ARGUMENT_F("xhd=""xhdd=""xhdD=",Reelle(coin_haut_droite_de_depart_puis_courant));
                         GET_ARGUMENT_F("yhd=""yhdd=""yhdD=",Imaginaire(coin_haut_droite_de_depart_puis_courant));

                         GET_ARGUMENT_F("xbga=""xbgA=",Reelle(coin_bas_gauche_d_arrivee));
                         GET_ARGUMENT_F("ybga=""ybgA=",Imaginaire(coin_bas_gauche_d_arrivee));
                         GET_ARGUMENT_F("xhda=""xhdA=",Reelle(coin_haut_droite_d_arrivee));
                         GET_ARGUMENT_F("yhda=""yhdA=",Imaginaire(coin_haut_droite_d_arrivee));

                         GET_ARGUMENT_F("precision=",precision);

                         GET_ARGUMENT_L("editions_compatibles_arguments=""eca=",editions_compatibles_arguments);
                         )
                    );

     EGAL(numero_d_image,PREMIERE_IMAGE_ABSOLUE);

     CALCUL_DU_RAPPORT_DE_REDUCTION;

     DoIn(numero_d_image,premiere_image,LSTX(premiere_image,nombre_d_images),PAS_DES_IMAGES)
          Bblock
          CAL2(Prin1("Numero=%d",numero_d_image));

          CAL2(Prin0("     "));

          Test(IL_FAUT(editions_compatibles_arguments))
               Bblock
               CAL2(Prin2("xbg=%+.^^^ ybg=%+.^^^"
                         ,Reelle(coin_bas_gauche_de_depart_puis_courant)
                         ,Imaginaire(coin_bas_gauche_de_depart_puis_courant)
                          )
                    );

               CAL2(Prin0(" "));

               CAL2(Prin2("xhd=%+.^^^ yhd=%+.^^^"
                         ,Reelle(coin_haut_droite_de_depart_puis_courant)
                         ,Imaginaire(coin_haut_droite_de_depart_puis_courant)
                          )
                    );
               Eblock
          ATes
               Bblock
               CAL2(Prin2("CoinBasGauche={%+.^^^,%+.^^^}"
                         ,Reelle(coin_bas_gauche_de_depart_puis_courant)
                         ,Imaginaire(coin_bas_gauche_de_depart_puis_courant)
                          )
                    );

               CAL2(Prin0("     "));

               CAL2(Prin2("CoinHautDroite={%+.^^^,%+.^^^}"
                         ,Reelle(coin_haut_droite_de_depart_puis_courant)
                         ,Imaginaire(coin_haut_droite_de_depart_puis_courant)
                          )
                    );
               Eblock
          ETes

          CAL2(Prin0("\n"));

          REDUCTION_DE_LA_FENETRE_COURANTE;
          Eblock
     EDoI

     RETU_Commande;
     Eblock
ECommande