barycentering.c

Go to the documentation of this file.

//side effects phase1_allowed
// calls phase1_up

// MISSING DEFINITIONS and parameterized objects

#define TMP_EQL_TMP TODO1 
#define COMMONTMPSTARTLEVEL TODO
#define PHASEDIR {TODO REPLACE (PHASE,DIR) phase ## PHASE ## _ ## DIR}
#define SET_TEA (X) TMP_EQUAL_ALT = X

// simple objects

#define ISCHANGED  changed = 1;
#define NOTCHANGED changed = 0;
#define SETCROSS   nr_crossings = cross;
#define CALCCROSS  cross = graph_crossings ();
#define RENAME_ALT have_alternative = alt;
#define NOCROSSING (nr_crossings == 0)
#define INCREMENTMAXDEPTH maxdepth + 1
#define NOPHASE1   phase1_allowed = 0;
#define SOMETIMELIMIT (G_timelimit > 0)
#define INCREMENT_ITERATIONS    nr_bary_iterations+
#define OVERLIMIT_ITERATIONS    (nr_bary_iterations >= max_baryiterations)
#define UNDERLIMIT_ITERATIONS   (nr_bary_iterations < min_baryiterations)
#define TMP_EQUAL_ALT tmp_startlevel = alt_startlevel
#define RESET_TEMP    tmp_startlevel = 0
#define ALT_EQUAL_TMP alt_startlevel = tmp_startlevel
#define P2_EQL_TMP    phase2_startlevel = tmp_startlevel
#define TMP_EQL_P2    tmp_startlevel = phase2_startlevel
#define TMP_EQL_MAX   tmp_startlevel = maxdepth
#define TMP_GE_MAX    tmp_startlevel > maxdepth
#define TMP_LE_ZRO    tmp_startlevel < 0
#define NOALTERNATIVE   alt = 0;                                                #define HAVEALTERNATIVE alt = 1;
#define SAMECROSSINGSEXPR (cross == nr_crossings)
#define LESSCROSSINGSEXPR (cross < nr_crossings)
#define MORECROSSINGS if (cross > nr_crossings)
#define CHECKALT        if (have_alternative)
#define RESTORELAYER    copy_layers (tmp_layer, layer);                        
#define BACKUPLAYER     copy_layers (layer, tmp_layer);          
#define SKIP_BARYPHASE2 if (skip_baryphase2)    return;


// DERIVED OBJECTS

#define P2_EQ_TMP_ALT phase2_startlevel = TMP_EQUAL_ALT
#define LESSCROSSINGS if LESSCROSSINGSEXPR
#define BLOCKCOPYING1   RESTORELAYER  TMP_EQUAL_ALT;    
#define BLOCK1          BACKUPLAYER   SETCROSS  ALT_EQUAL_TMP;
#define CROSSINGSBLOCK1 LESSCROSSINGS { ISCHANGED BLOCK1  }
#define BLOCKCOPYING1B  { BLOCKCOPYING1 }
#define CROSSINGSBLOCK2 if (LESSCROSSINGSEXPR || UNDERLIMIT_ITERATIONS)  { ISCHANGED BLOCK1 }                                                                    
#define CHECKALTBLOCK {                                         \
            RESTORELAYER  PHASEDIR(1,up);  CALCCROSSING2        \
            else MORECROSSINGS  BLOCKCOPYING1B                  \
            else HAVEALTERNATIVE                                \
                     }

#define COMMONBLOCK_BLOCK                                                                       \
        INCREMENT_ITERATIONS;                                                                   \
        if OVERLIMIT_ITERATIONS {gs_wait_message ('t'); break; }                                \
      if SOMETIMELIMIT if (test_timelimit (60)) {  gs_wait_message ('t'); break;        }       \
        NOTCHANGED P2_EQL_TMP;  PHASEDIR(2,down);TMP_EQL_TMP;


#define CALCCROSSING1     CALCCROSS     NOALTERNATIVE
#define CALCCROSSING2     CALCCROSS     CROSSINGSBLOCK1
#define EXITWHENZEROCROSS if NOCROSSING return;


#define CHANGEDLOOP_POST SET_TEA(INCREMENTMAXDEPTH); ISCHANGED



#define SIMILARBLOCK1                                   \
         COMMON3_OPEN                                   \
            PHASEDIR(2,down); COMMONTMPSTARTLEVEL       \
            TMP_EQL_TMP; if (TMP_GE_MAX) RESET_TEMP;    \
         COMMON3_CLOSE

#define SIMILARBLOCK2                                   \
        COMMON3_OPEN                                    \
            PHASEDIR(2,up); COMMONTMPSTARTLEVEL         \
            TMP_EQL_TMP; if (TMP_LE_ZRO) TMP_EQL_MAX;   \
        COMMON3_CLOSE


#define CHANGEDLOOP_BLOCK if (TMP_GE_MAX) RESET_TEMP;   \
         SIMILARBLOCK1 \
         EXITWHENZEROCROSS

#define Changedloop_CLOSEPRE                            \
        COMMONBLOCK_OPEN                                \
        if (TMP_LE_ZRO) TMP_EQL_MAX;                    \
          SIMILARBLOCK2\
        PHASEDIR(1,up); CALCCROSSING1 CROSSINGSBLOCK2   \
        else CHECKALT CHECKALTBLOCK                     \
        else if SAMECROSSINGSEXPR HAVEALTERNATIVE       \
        else BLOCKCOPYING1B                             \
                                                        \
        RENAME_ALT                                      \
        EXITWHENZEROCROSS                       


#define COMMONBLOCK_OPEN    while (changed) {   COMMONBLOCK_BLOCK 

#define CHANGEDLOOP_CLOSE   COMMONBLOCK_OPEN  CHANGEDLOOP_BLOCK         }        CHANGEDLOOP_POST


#define COMMON3_PRE1         CALCCROSSING1 CROSSINGSBLOCK1
#define COMMON3_COND1        else CHECKALT                                                    
#define COMMON3_POST1        RESTORELAYER           P2_EQ_TMP_ALT;


#define COMMON3_PRE2  CALCCROSSING2                                             \
            else MORECROSSINGS                      BLOCKCOPYING1B              \
            else                                                HAVEALTERNATIVE

#define COMMON3_POST2         else if SAMECROSSINGSEXPR HAVEALTERNATIVE \
        else                                                            \
              BLOCKCOPYING1B                                            \
        RENAME_ALT

#define COMMON3_OPEN        COMMON3_PRE1   COMMON3_COND1                { COMMON3_POST1

#define COMMON3_CLOSE       COMMON3_PRE2                        } COMMON3_POST2

#define Changedloop_CLOSEPOS  EXITWHENZEROCROSS SKIP_BARYPHASE2  NOPHASE1       \
    SET_TEA(0); ISCHANGED                                                       \
    CHANGEDLOOP_CLOSE                                                           \
    CHANGEDLOOP2

#define Changedloop_CLOSE   Changedloop_CLOSEPRE                        }        Changedloop_CLOSEPOS }

---