/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E S   T R A N S F O R M A T I O N S   C A R T E S I E N N E S   <-->   S P H E R I Q U E S   4 D  :            */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtKi/CartSph4D.01$K' :                                                                                         */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20010328112241).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PRINT(X,Y,Z,T)                                                                                                                \
                    Bblock                                                                                                              \
                    DEFV(Float,INIT(X_avant,X));                                                                                        \
                    DEFV(Float,INIT(Y_avant,Y));                                                                                        \
                    DEFV(Float,INIT(Z_avant,Z));                                                                                        \
                    DEFV(Float,INIT(T_avant,T));                                                                                        \
                                                                                                                                        \
                    DEFV(Float,INIT(Rho,FLOT__UNDEF));                                                                                  \
                    DEFV(Float,INIT(Alpha,FLOT__UNDEF));                                                                                \
                    DEFV(Float,INIT(Phi,FLOT__UNDEF));                                                                                  \
                    DEFV(Float,INIT(Theta,FLOT__UNDEF));                                                                                \
                                                                                                                                        \
                    DEFV(Float,INIT(X_apres,FLOT__UNDEF));                                                                              \
                    DEFV(Float,INIT(Y_apres,FLOT__UNDEF));                                                                              \
                    DEFV(Float,INIT(Z_apres,FLOT__UNDEF));                                                                              \
                    DEFV(Float,INIT(T_apres,FLOT__UNDEF));                                                                              \
                                                                                                                                        \
                    EGAL(Rho,Rho_4D(X_avant,Y_avant,Z_avant,T_avant));                                                                  \
                    EGAL(Phi,Phi_4D(X_avant,Y_avant,Z_avant,T_avant));                                                                  \
                    EGAL(Alpha,Alpha_4D(X_avant,Y_avant,Z_avant,T_avant));                                                              \
                    EGAL(Theta,Theta_4D(X_avant,Y_avant,Z_avant,T_avant));                                                              \
                                                                                                                                        \
                    EGAL(X_apres,Xcartesienne_4D(Rho,Alpha,Phi,Theta));                                                                 \
                    EGAL(Y_apres,Ycartesienne_4D(Rho,Alpha,Phi,Theta));                                                                 \
                    EGAL(Z_apres,Zcartesienne_4D(Rho,Alpha,Phi,Theta));                                                                 \
                    EGAL(T_apres,Tcartesienne_4D(Rho,Alpha,Phi,Theta));                                                                 \
                                                                                                                                        \
                    CAL2(Prin4("{%+.^^^,%+.^^^,%+.^^^,%+.^^^}",X_avant,Y_avant,Z_avant,T_avant));                                       \
                    CAL2(Prin4(" --> {%+.^^^,%+.^^^,%+.^^^,%+.^^^}",Rho,Alpha,Phi,Theta));                                              \
                    CAL2(Prin4(" --> {%+.^^^,%+.^^^,%+.^^^,%+.^^^}",X_apres,Y_apres,Z_apres,T_avant));                                  \
                                        /* Le 20060105162101, le format "16g" est passe a "^^g" pour plus de souplesse...            */ \
                                        /*                                                                                           */ \
                                        /* Le 20091123123744, le format "^^g" est passe a "^^^" pour plus de souplesse...            */ \
                    CAL2(Prin0("\n"));                                                                                                  \
                    Eblock

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E S   T R A N S F O R M A T I O N S   C A R T E S I E N N E S   <-->   S P H E R I Q U E S   4 D  :            */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(VIDE;)
                    );

     PRINT(+1.11,+2.22,+3.33,+4.44);
     PRINT(-1.11,-2.22,-3.33,-4.44);

     CAL2(Prin0("\n"));

     PRINT(0,+2.22,+3.33,+4.44);
     PRINT(0,-2.22,-3.33,-4.44);

     CAL2(Prin0("\n"));

     PRINT(+1.11,0,+3.33,+4.44);
     PRINT(-1.11,0,-3.33,-4.44);

     CAL2(Prin0("\n"));

     PRINT(+1.11,+2.22,0,+4.44);
     PRINT(-1.11,-2.22,0,-4.44);

     CAL2(Prin0("\n"));

     PRINT(+1.11,+2.22,+3.33,0);
     PRINT(-1.11,-2.22,-3.33,0);

     CAL2(Prin0("\n"));

     RETU_Commande;
     Eblock
ECommande