/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N   " X " ,   V E R S I O N   S Y M E T R I S E E                                                        */
/*        D U   S I G L E   D E   L ' E C O L E   P O L Y T E C H N I Q U E  :                                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ..............:::::...........................::::....:.........                                                 */
/*                  .......:o##*oooo*o*oo+:...................:+oooo**ooo*##o:......                                                 */
/*                  ........-+oo-:...:::-+++:...............:+++-:::...:-oo+-.......                                                 */
/*                  ..........:-+-:.......:+++:...........:+++:.......:-+-:.........                                                 */
/*                  ............:+++-.......:+++:.......:+++:.......-+++:...........                                                 */
/*                  ..............-+o+:.......:+++:...:+++:.......:+++-.............                                                 */
/*                  ................:-++:.......:+++++++:.......:++-:...............                                                 */
/*                  ..................:+++-.......:+++:.......:+++:.................                                                 */
/*                  ....................:+++:...............:++-:...................                                                 */
/*                  ......................:+++-...........:+++:.....................                                                 */
/*                  ........................:+++:........:--:.......................                                                 */
/*                  ..........................:+++:.................................                                                 */
/*                  ............................:-++:...............................                                                 */
/*                  ..............................-+++-.............................                                                 */
/*                  ................................:++-:...........................                                                 */
/*                  ..................................:+++:.........................                                                 */
/*                  ........................:--:........:+++:.......................                                                 */
/*                  ......................:+++:...........-+++:.....................                                                 */
/*                  ....................:-++:...............:+++:...................                                                 */
/*                  ..................:+++:.......:+++:.......-+++:.................                                                 */
/*                  ................:-++:.......:+++++++:.......:++-:...............                                                 */
/*                  ..............-+++:.......:+++:...:+++:.......:+o+-.............                                                 */
/*                  ............:+++-.......:+++:.......:+++:.......-+++:...........                                                 */
/*                  ..........:-+-:.......:+++:...........:+++:.......:-+-:.........                                                 */
/*                  ........-+oo-:...:::-+++:...............:+++-:::...:-oo+-.......                                                 */
/*                  .......:o##*ooo**oooo+:...................:+oo*o*oooo*##o:......                                                 */
/*                  ..........:....::::...........................:::::.............                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrd/ixe.11$K' :                                                                                                */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   UNITE_1                                                                                                                       \
                    DEUX
#define   UNITE_2                                                                                                                       \
                    DEUX
#define   UNITE_3                                                                                                                       \
                    TROIS
                                        /* Definition des trois unites fondamentales.                                                */

#define   COTE                                                                                                                          \
                    DEUX                                                                                                                \
                                        /* Definition du nombre d'unites sur un cote.                                                */

#define   G1                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g1;)                                                                                                        \
                       );                                                                                                               \
                    Eblock
#define   G2                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g2;)                                                                                                        \
                       );                                                                                                               \
                    Eblock
#define   G3                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g3;)                                                                                                        \
                       );                                                                                                               \
                    Eblock
#define   G4                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g4;)                                                                                                        \
                       );                                                                                                               \
                    Eblock

#define   GENERE_IXE                                                                                                                    \
                    Bblock                                                                                                              \
                    SET_ANTI_ALIASING(VRAI);                                                                                            \
                    SET_COULEURS(NOIR,BLANC);                                                                                           \
                                                                                                                                        \
                    CALS(FgMIT());                                                                                                      \
                    INITIALISATION_SYSTEMATIQUE_TRANSFORMATION;                                                                         \
                                        /* Reinitialisation provisoire des transformations...                                        */ \
                                                                                                                                        \
                    SKH(8);                                                                                                             \
                                        /* Definition de l'echelle globale.                                                          */ \
                    SXH(8);                                                                                                             \
                                        /* Definition de l'echelle sur l'axe des 'X'.                                                */ \
                    SYH(8);                                                                                                             \
                                        /* Definition de l'echelle sur l'axe des 'Y'.                                                */ \
                    SZH(8);                                                                                                             \
                                        /* Definition de l'echelle sur l'axe des 'Z'.                                                */ \
                    PUSH_ANTI_ALIASING;                                                                                                 \
                                        /* Juste pour valider le couple (PUSH,PULL).                                                 */ \
                                                                                                                                        \
                    SET_CURSOR(_____cNORMALISE_OX(INTE(DIVI(FXcentre_____,super_echelle_OX)))                                           \
                              ,_____cNORMALISE_OY(INTE(DIVI(FYcentre_____,super_echelle_OY)))                                           \
                              ,_____cNORMALISE_OZ(Zorigine)                                                                             \
                               );                                                                                                       \
                                        /* On se place au centre de l'ecran.                                                         */ \
                    PULL_ANTI_ALIASING;                                                                                                 \
                                        /* Juste pour valider le couple (PUSH,PULL).                                                 */ \
                    SKH(2);                                                                                                             \
                                        /* Changement de l'echelle globale.                                                          */ \
                    SXH(12);                                                                                                            \
                                        /* Definition de l'echelle sur l'axe des 'X'.                                                */ \
                    SYH(12);                                                                                                            \
                                        /* Definition de l'echelle sur l'axe des 'Y'.                                                */ \
                                                                                                                                        \
                    CALS(FgMOT());                                                                                                      \
                                        /* Restauration des transformations...                                                       */ \
                                                                                                                                        \
                    gA;DO(MOIT(UNITE_1),BLOC(G3;G4;));                                                                                  \
                    gA;DO(UNITE_3,BLOC(G3;G4;));gB;                                                                                     \
                    gA;DO(UNITE_1,BLOC(G1;));gB;                                                                                        \
                    gA;DO(UNITE_2,BLOC(G1;G2;));gB;                                                                                     \
                    gA;DO(UNITE_2,BLOC(G1;G4;));gB;                                                                                     \
                    gA;DO(UNITE_1,BLOC(G1;));gB;                                                                                        \
                    gA;DO(UNITE_3,BLOC(G3;G2;));gB;                                                                                     \
                    gA;DO(UNITE_1,BLOC(G3;G2;));gB;                                                                                     \
                    gA;DO(UNITE_3,BLOC(G3;G2;));gB;                                                                                     \
                    gA;DO(UNITE_1,BLOC(G1;));gB;                                                                                        \
                    gA;DO(UNITE_2,BLOC(G1;G4;));gB;                                                                                     \
                    gA;DO(UNITE_2,BLOC(G1;G2;));gB;                                                                                     \
                    gA;DO(UNITE_1,BLOC(G1;));gB;                                                                                        \
                    gA;DO(UNITE_3,BLOC(G3;G4;));gB;                                                                                     \
                    gA;DO(MOIT(UNITE_1),BLOC(G3;G4;));                                                                                  \
                                        /* Trace du "X"...                                                                           */ \
                                                                                                                                        \
                    Eblock

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N   " X "  :                                                                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     /*..............................................................................................................................*/
     INITIALISATION_SYSTEMATIQUE_TRANSFORMATION;

     GET_ARGUMENTSv(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_L("SX_SY_SZ_____compatibilite_20070416=""compatibilite_20070416="
                                       ,SX_SY_SZ_____compatibilite_20070416
                                        );
                                        /* Parametre introduit le 20070416161733...                                                  */
                         GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420="
                                       ,Ipoint_anti_aliase_segment_____compatibilite_20110420
                                        );
                                        /* Parametre introduit le 20110420145412...                                                  */

                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         )
                    );

     SUPER_ECHELLE_PETIT_CARRE;
                                        /* Choix du format des figures obtenues :                                                    */
                                        /*                                                                                           */
                                        /*                  SUPER_ECHELLE_RECTANGULAIRE;                                             */
                                        /*                  SUPER_ECHELLE_PETIT_CARRE;                                               */
                                        /*                  SUPER_ECHELLE_GRAND_CARRE;                                               */
                                        /*                                                                                           */

     CALi(Inoir(ImageR));
                                        /* Initialisation de l'image Resultat.                                                       */

     CALS(FgERASE());
                                        /* Clear...                                                                                  */
     TRZ(FZERO);
     GENERE_IXE;
                                        /* Generation d'un "X".                                                                      */

     CALS(Imove(ImageR,ImageG));

     CALi(Iupdate_image(nom_imageR,ImageR));

     RETU_Commande;
     Eblock
ECommande