/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N   C U B E  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  .........-*#*o+++ooooooooooooooooooooooooooooooo+++o*#*-........                                                 */
/*                  .........+**o-:...................................:-o**+........                                                 */
/*                  .........-++:::::...............................:::::-+-........                                                 */
/*                  .........-+-..:+o++----++---++-----++---++----++o+:..-+-........                                                 */
/*                  .........-o-...-+:.............................-+-...-o-........                                                 */
/*                  .........-o-...--:.............................:--...-o-........                                                 */
/*                  .........-o-...--:.............................:--...-o-........                                                 */
/*                  .........-o-..:--:.............................:+-...-o-........                                                 */
/*                  .........+o-...--:.............................:--...-o+........                                                 */
/*                  .........-o-..:--:.............................:+-...-o-........                                                 */
/*                  .........-o-...--:.............................:--...-o-........                                                 */
/*                  .........+o-..:--:.............................:--...-o+........                                                 */
/*                  .........-o-...--:.............................:--...-o+........                                                 */
/*                  .........-o-..:--:.............................:+-...-o-........                                                 */
/*                  .........+o-...--:.............................:--...-o+........                                                 */
/*                  .........-o-..:--:.............................:+-...-o-........                                                 */
/*                  .........-o-...--:.............................:--...-o-........                                                 */
/*                  .........-o-...--:.............................:--...-o-........                                                 */
/*                  .........-o-...-+:.............................-+-...-o-........                                                 */
/*                  .........-+-..:+o++----+-----------------+----++o+:..-+-........                                                 */
/*                  .........-+-:.:-:..:...::..:::.::..:::..::...:..:-:.:-+-........                                                 */
/*                  .........+**o-:...................................:-o**+........                                                 */
/*                  .........-*#*o+++ooooooooooooooooooooooooooooooo+++o*#*-........                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                  ................................................................                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrd/cube.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   G5                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g5;)                                                                                                        \
                       );                                                                                                               \
                    Eblock
#define   G6                                                                                                                            \
                    Bblock                                                                                                              \
                    DO(COTE                                                                                                             \
                      ,BLOC(g6;)                                                                                                        \
                       );                                                                                                               \
                    Eblock

#define   GENERE_CUBE(taux_de_depth_cueing)                                                                                             \
                    Bblock                                                                                                              \
                    DEFV(Float,INIT(Z_minimum,FLOT__UNDEF));                                                                            \
                    DEFV(Float,INIT(Z_maximum,FLOT__UNDEF));                                                                            \
                                        /* Pour le "depth-cueing".                                                                   */ \
                    CALS(Iinit_Z_Buffer());                                                                                             \
                                                                                                                                        \
                    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(22);                                                                                                            \
                                        /* Changement de l'echelle globale.                                                          */ \
                                                                                                                                        \
                    DO(MOIT(COTE)                                                                                                       \
                      ,BLOC(g3;g4;)                                                                                                     \
                       );                                                                                                               \
                                        /* Afin de placer le centre du cube au centre de l'ecran...                                  */ \
                                                                                                                                        \
                    CALS(FgMOT());                                                                                                      \
                                        /* Restauration des transformations...                                                       */ \
                                                                                                                                        \
                    CALS(FgMIC());                                                                                                      \
                    EGAL(Z_maximum,ASD1(vecteurs_____cursor_3D,z));                                                                     \
                    G6;                                                                                                                 \
                    EGAL(Z_minimum,ASD1(vecteurs_____cursor_3D,z));                                                                     \
                    SET_DEPTH_CUEING(taux_de_depth_cueing,Z_minimum,Z_maximum);                                                         \
                                        /* Pour le "depth-cueing".                                                                   */ \
                    CALS(FgMOC());                                                                                                      \
                                                                                                                                        \
                    gA;G1;gB;G2;gB;G3;gB;G4;gB;                                                                                         \
                                        /* Premiere face du cube.                                                                    */ \
                    gA;G6;gB;                                                                                                           \
                                        /* Premiere arete.                                                                           */ \
                    gA;G1;gB;G2;gB;G3;gB;G4;gB;                                                                                         \
                                        /* Deuxieme face du cube.                                                                    */ \
                    G1;gA;CALS(FgMIC());G5;gB;CALS(FgMOC());                                                                            \
                                        /* Deuxieme arete.                                                                           */ \
                    G2;gA;CALS(FgMIC());G5;gB;CALS(FgMOC());                                                                            \
                                        /* Troisieme arete.                                                                          */ \
                    G3;gA;CALS(FgMIC());G5;gB;CALS(FgMOC());                                                                            \
                                        /* Quatrieme arete.                                                                          */ \
                                                                                                                                        \
                    Eblock

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   TAUX_DE_DEPTH_CUEING                                                                                                          \
                    DEPTH_CUEING_MOYEN                                                                                                  \
                                        /* Definition du taux de depth-cueing...                                                     */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   D ' U N   C U B E  :                                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(Float,INIT(taux_de_depth_cueing,DEPTH_CUEING_MOYEN));
                                        /* Definition du taux de depth-cueing...                                                     */
     /*..............................................................................................................................*/
     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 20070416161604...                                                  */
                         GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420="
                                       ,Ipoint_anti_aliase_segment_____compatibilite_20110420
                                        );
                                        /* Parametre introduit le 20110420145147...                                                  */

                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_F("taux=""depth-cueing=",taux_de_depth_cueing);
                         )
                    );

     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_CUBE(taux_de_depth_cueing);
                                        /* Generation du cube.                                                                       */

     CALS(Imove(ImageR,ImageG));

     CALi(Iupdate_image(nom_imageR,ImageR));

     RETU_Commande;
     Eblock
ECommande