void Edges::endpoint(Edge *e, EdgeEnd lr, Site *s) {
e -> ep[lr] = s;
sites.ref(s);
if(e -> ep[opp(lr)] == (Site *) 0) return;
clip_line (e);
#ifdef STANDALONE
out_ep(e);
#endif
sites.deref(e->reg[le]);
sites.deref(e->reg[re]);
fedges.free(e);
}
void endpoint(Edge * e, int lr, Site * s)
{
e->ep[lr] = s;
ref(s);
if (e->ep[re - lr] == (Site *) NULL)
return;
clip_line(e);
#ifdef STANDALONE
out_ep(e);
#endif
deref(e->reg[le]);
deref(e->reg[re]);
makefree(e, &efl);
}
void voronoi(int triangulate, Site * (*nextsite) (void))
{
Site *newsite, *bot, *top, *temp, *p;
Site *v;
Point newintstar = {0};
char pm;
Halfedge *lbnd, *rbnd, *llbnd, *rrbnd, *bisector;
Edge *e;
edgeinit();
siteinit();
PQinitialize();
bottomsite = (*nextsite) ();
#ifdef STANDALONE
out_site(bottomsite);
#endif
ELinitialize();
newsite = (*nextsite) ();
while (1) {
if (!PQempty())
newintstar = PQ_min();
if (newsite != (struct Site *) NULL && (PQempty()
|| newsite->coord.y <
newintstar.y
|| (newsite->coord.y ==
newintstar.y
&& newsite->coord.x <
newintstar.x))) {
/* new site is smallest */
#ifdef STANDALONE
out_site(newsite);
#endif
lbnd = ELleftbnd(&(newsite->coord));
rbnd = ELright(lbnd);
bot = rightreg(lbnd);
e = gvbisect(bot, newsite);
bisector = HEcreate(e, le);
ELinsert(lbnd, bisector);
if ((p = hintersect(lbnd, bisector)) != (struct Site *) NULL) {
PQdelete(lbnd);
PQinsert(lbnd, p, dist(p, newsite));
}
lbnd = bisector;
bisector = HEcreate(e, re);
ELinsert(lbnd, bisector);
if ((p = hintersect(bisector, rbnd)) != (struct Site *) NULL)
PQinsert(bisector, p, dist(p, newsite));
newsite = (*nextsite) ();
} else if (!PQempty()) {
/* intersection is smallest */
lbnd = PQextractmin();
llbnd = ELleft(lbnd);
rbnd = ELright(lbnd);
rrbnd = ELright(rbnd);
bot = leftreg(lbnd);
top = rightreg(rbnd);
#ifdef STANDALONE
out_triple(bot, top, rightreg(lbnd));
#endif
v = lbnd->vertex;
makevertex(v);
endpoint(lbnd->ELedge, lbnd->ELpm, v);
endpoint(rbnd->ELedge, rbnd->ELpm, v);
ELdelete(lbnd);
PQdelete(rbnd);
ELdelete(rbnd);
pm = le;
if (bot->coord.y > top->coord.y) {
temp = bot;
bot = top;
top = temp;
pm = re;
}
e = gvbisect(bot, top);
bisector = HEcreate(e, pm);
ELinsert(llbnd, bisector);
endpoint(e, re - pm, v);
deref(v);
if ((p = hintersect(llbnd, bisector)) != (struct Site *) NULL) {
PQdelete(llbnd);
PQinsert(llbnd, p, dist(p, bot));
}
if ((p = hintersect(bisector, rrbnd)) != (struct Site *) NULL) {
PQinsert(bisector, p, dist(p, bot));
}
} else
break;
}
for (lbnd = ELright(ELleftend); lbnd != ELrightend;
lbnd = ELright(lbnd)) {
e = lbnd->ELedge;
clip_line(e);
#ifdef STANDALONE
out_ep(e);
#endif
}
}
void
voronoi(Site *(*nextsite)(void))
{
Site * newsite, * bot, * top, * temp, * p, * v ;
Point newintstar ;
int pm , c;
Halfedge * lbnd, * rbnd, * llbnd, * rrbnd, * bisector ;
Edge * e ;
newintstar.x = newintstar.y = c = 0;
PQinitialize() ;
rubyvorState.bottomsite = (*nextsite)() ;
out_site(rubyvorState.bottomsite) ;
ELinitialize() ;
newsite = (*nextsite)() ;
while (1)
{
if(!PQempty())
newintstar = PQ_min() ;
if (newsite != (Site *)NULL && (PQempty()
|| newsite -> coord.y < newintstar.y
|| (newsite->coord.y == newintstar.y
&& newsite->coord.x < newintstar.x)))
{
/* new site is smallest */
{
out_site(newsite) ;
}
lbnd = ELleftbnd(&(newsite->coord)) ;
rbnd = ELright(lbnd) ;
bot = rightreg(lbnd) ;
e = bisect(bot, newsite) ;
bisector = HEcreate(e, le) ;
ELinsert(lbnd, bisector) ;
p = intersect(lbnd, bisector) ;
if (p != (Site *)NULL)
{
PQdelete(lbnd) ;
PQinsert(lbnd, p, dist(p,newsite)) ;
}
lbnd = bisector ;
bisector = HEcreate(e, re) ;
ELinsert(lbnd, bisector) ;
p = intersect(bisector, rbnd) ;
if (p != (Site *)NULL)
{
PQinsert(bisector, p, dist(p,newsite)) ;
}
newsite = (*nextsite)() ;
}
else if (!PQempty()) /* intersection is smallest */
{
lbnd = PQextractmin() ;
llbnd = ELleft(lbnd) ;
rbnd = ELright(lbnd) ;
rrbnd = ELright(rbnd) ;
bot = leftreg(lbnd) ;
top = rightreg(rbnd) ;
out_triple(bot, top, rightreg(lbnd)) ;
v = lbnd->vertex ;
makevertex(v) ;
endpoint(lbnd->ELedge, lbnd->ELpm, v);
endpoint(rbnd->ELedge, rbnd->ELpm, v) ;
ELdelete(lbnd) ;
PQdelete(rbnd) ;
ELdelete(rbnd) ;
pm = le ;
if (bot->coord.y > top->coord.y)
{
temp = bot ;
bot = top ;
top = temp ;
pm = re ;
}
e = bisect(bot, top) ;
bisector = HEcreate(e, pm) ;
ELinsert(llbnd, bisector) ;
endpoint(e, re-pm, v) ;
deref(v) ;
p = intersect(llbnd, bisector) ;
if (p != (Site *) NULL)
{
PQdelete(llbnd) ;
PQinsert(llbnd, p, dist(p,bot)) ;
}
p = intersect(bisector, rrbnd) ;
if (p != (Site *) NULL)
{
PQinsert(bisector, p, dist(p,bot)) ;
}
}
else
{
break ;
}
}
for( lbnd = ELright(getELleftend()) ;
lbnd != getELrightend() ;
lbnd = ELright(lbnd))
{
e = lbnd->ELedge ;
out_ep(e) ;
}
}
