/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        R E D U C T I O N   D ' U N   S E G M E N T   [ a , b ]  :                                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcg/SegReduct.01$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20110821102127).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   REDUCTION_D_UN_SEGMENT(borne_gauche,borne_droite)                                                                             \
                    ADD3(MOYE(borne_gauche,borne_droite)                                                                                \
                        ,OPC1(IL_FAUT(calculer_la_nouvelle_borne_gauche)                                                                \
                             ,NEGA                                                                                                      \
                             ,NEUT                                                                                                      \
                             ,MUL2(facteur_de_reduction,SOUS(borne_droite,borne_gauche))                                                \
                              )                                                                                                         \
                        ,translation                                                                                                    \
                         )                                                                                                              \
                                        /* Calcul de la nouvelle borne demandee :                                                    */ \
                                        /*                                                                                           */ \
                                        /*                        G+D                                                                */ \
                                        /*                  G' = ----- - f.(D-G) + t                                                 */ \
                                        /*                         2                                                                 */ \
                                        /*                                                                                           */ \
                                        /* pour la "Gauche" et :                                                                     */ \
                                        /*                                                                                           */ \
                                        /*                        G+D                                                                */ \
                                        /*                  D' = ----- + f.(D-G) + t                                                 */ \
                                        /*                         2                                                                 */ \
                                        /*                                                                                           */ \
                                        /* pour la "Droite"...                                                                       */ \
                                        /*                                                                                           */ \
                                        /*                                                                                           */ \
                                        /* ATTENTION : on notera que cette procedure figurant dans un '$I' est rendue absolument     */ \
                                        /* indispensable a cause de l'operateur 'OPC1(...)'...                                       */