/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N E   C R O I X  :                                                                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ...............................:-:..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-o-..............................                                                 */
/*                  ........-+++++++++++++++++++++o*#*o+++++++++++++++++++++-.......                                                 */
/*                  ...............................-o-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................-+-..............................                                                 */
/*                  ...............................:-:..............................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrd/croix.01$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   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_CROIX                                                                                                                  \
                    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(12);                                                                                                            \
                                        /* Changement de l'echelle globale.                                                          */ \
                                                                                                                                        \
                    CALS(FgMOT());                                                                                                      \
                                        /* Restauration des transformations...                                                       */ \
                                                                                                                                        \
                    G3;                                                                                                                 \
                    gA;G1;G1;gB;                                                                                                        \
                    G3;                                                                                                                 \
                    G4;                                                                                                                 \
                    gA;G2;G2;gB;                                                                                                        \
                    G4;                                                                                                                 \
                                        /* Trace de la croix...                                                                      */ \
                                                                                                                                        \
                    Eblock

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N E   C R O I 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 20070416161538...                                                  */
                         GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420="
                                       ,Ipoint_anti_aliase_segment_____compatibilite_20110420
                                        );
                                        /* Parametre introduit le 20110420140611...                                                  */

                         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_CROIX;
                                        /* Generation de la croix.                                                                   */

     CALS(Imove(ImageR,ImageG));

     CALi(Iupdate_image(nom_imageR,ImageR));

     RETU_Commande;
     Eblock
ECommande