int user_pos(attrsym_t * posptr, attrsym_t * pinptr, node_t * np, int nG)
{
double *pvec;
char *p, c;
double z;
if (posptr == NULL)
return FALSE;
pvec = ND_pos(np);
p = agxget(np, posptr->index);
if (p[0]) {
c = '\0';
if ((Ndim >= 3) &&
(sscanf(p, "%lf,%lf,%lf%c", pvec, pvec+1, pvec+2, &c) >= 3)){
ND_pinned(np) = P_SET;
if (PSinputscale > 0.0) {
int i;
for (i = 0; i < Ndim; i++)
pvec[i] = pvec[i] / PSinputscale;
}
if (Ndim > 3)
jitter_d(np, nG, 3);
if ((c == '!')
|| (pinptr && mapbool(agxget(np, pinptr->index))))
ND_pinned(np) = P_PIN;
return TRUE;
}
else if (sscanf(p, "%lf,%lf%c", pvec, pvec + 1, &c) >= 2) {
ND_pinned(np) = P_SET;
if (PSinputscale > 0.0) {
int i;
for (i = 0; i < Ndim; i++)
pvec[i] = pvec[i] / PSinputscale;
}
if (Ndim > 2) {
if (N_z && (p = agxget(np, N_z->index)) &&
(sscanf(p,"%lf",&z) == 1)) {
if (PSinputscale > 0.0) {
pvec[2] = z / PSinputscale;
}
else
pvec[2] = z;
jitter_d(np, nG, 3);
}
else
jitter3d(np, nG);
}
if ((c == '!')
|| (pinptr && mapbool(agxget(np, pinptr->index))))
ND_pinned(np) = P_PIN;
return TRUE;
} else
agerr(AGERR, "node %s, position %s, expected two doubles\n",
np->name, p);
}
return FALSE;
}
boolean late_bool(void *obj, attrsym_t * attr, int def)
{
if (attr == NULL)
return def;
return mapbool(agxget(obj, attr));
}
static void gd_begin_graph_to_file(graph_t* g, box bb, point pb)
{
char *truecolor_p;
gd_begin_graph(g, bb, pb);
if (Verbose)
fprintf(stderr,"%s: allocating a %dK GD image\n",
CmdName, ROUND( Viewport.x * Viewport.y / 1024. ));
truecolor_p = agget(g,"truecolor");
/* automatically decide color mode if "truecolor" not specified */
if (truecolor_p == NULL || *truecolor_p == '\0') {
truecolor_p="false"; /* indexed color maps unless ... */
if (agfindattr(g->proto->n, "shapefile")) {
/* ... custom shapefiles are used */
truecolor_p = "true";
}
}
if (mapbool(truecolor_p))
im = gdImageCreateTrueColor(Viewport.x, Viewport.y);
else
im = gdImageCreate(Viewport.x, Viewport.y);
init_gd();
#ifdef MYTRACE
fprintf(stderr,"gd_begin_graph_to_file\n");
#endif
}
int nonconstraint_edge(edge_t* e)
{
char *constr;
if (E_constr && (constr = agxget(e,E_constr->index))) {
if (constr[0] && mapbool(constr) == FALSE) return TRUE;
}
return FALSE;
}
/* noClip:
* Return true if head/tail end of edge should not be clipped
* to node.
*/
static bool
noClip(edge_t *e, attrsym_t* sym)
{
char *str;
bool rv = FALSE;
if (sym) { /* mapbool isn't a good fit, because we want "" to mean TRUE */
str = agxget(e,sym->index);
if (str && str[0]) rv = !mapbool(str);
else rv = FALSE;
}
return rv;
}
void dot_layout(Agraph_t * g)
{
dot_init_node_edge(g);
dot_rank(g);
dot_mincross(g);
/* dumpRanks (g); */
dot_position(g);
/* dumpRanks (g); */
dot_sameports(g);
dot_splines(g);
if (mapbool(agget(g, "compound")))
dot_compoundEdges(g);
dotneato_postprocess(g);
}
int nonconstraint_edge(edge_t * e)
{
char *constr;
#ifndef WITH_CGRAPH
if (E_constr && (constr = agxget(e, E_constr->index))) {
#else /* WITH_CGRAPH */
if (E_constr && (constr = agxget(e, E_constr))) {
#endif /* WITH_CGRAPH */
if (constr[0] && mapbool(constr) == FALSE)
return TRUE;
}
return FALSE;
}
static void
interclust1(graph_t * g, node_t * t, node_t * h, edge_t * e)
{
node_t *v, *t0, *h0;
int offset, t_len, h_len, t_rank, h_rank;
edge_t *rt, *rh;
if (ND_clust(agtail(e)))
t_rank = ND_rank(agtail(e)) - ND_rank(GD_leader(ND_clust(agtail(e))));
else
t_rank = 0;
if (ND_clust(aghead(e)))
h_rank = ND_rank(aghead(e)) - ND_rank(GD_leader(ND_clust(aghead(e))));
else
h_rank = 0;
offset = ED_minlen(e) + t_rank - h_rank;
if (offset > 0) {
t_len = 0;
h_len = offset;
} else {
t_len = -offset;
h_len = 0;
}
v = virtual_node(g);
ND_node_type(v) = SLACKNODE;
t0 = UF_find(t);
h0 = UF_find(h);
rt = make_aux_edge(v, t0, t_len, CL_BACK * ED_weight(e));
rh = make_aux_edge(v, h0, h_len, ED_weight(e));
ED_to_orig(rt) = ED_to_orig(rh) = e;
}
void dot_layout_intl(Agraph_t * g, struct _DotStats* stats) {
aspect_t aspect;
aspect_t* asp;
setEdgeType (g, ET_SPLINE);
asp = setAspect (g, &aspect);
dot_init_node_edge(g);
do {
dot_rank(g, asp, stats);
resetNodeCountOnRanks(g);
if(stats->stopFunc && stats->stopFunc(PROGRESS_AFTER_RANK)) {
return;
}
if (aspect.badGraph) {
agerr(AGWARN, "dot does not support the aspect attribute for disconnected graphs or graphs with clusters\n");
asp = NULL;
aspect.nextIter = 0;
}
dot_mincross(g, (asp != NULL), stats);
if(stats->stopFunc && stats->stopFunc(PROGRESS_AFTER_MX)) {
return;
}
dot_position(g, asp, stats);
if(stats->stopFunc && stats->stopFunc(PROGRESS_AFTER_POSITION)) {
return;
}
aspect.nPasses--;
} while (aspect.nextIter && aspect.nPasses);
dot_sameports(g);
dot_splines(g);
if (mapbool(agget(g, "compound")))
dot_compoundEdges(g);
dotneato_postprocess(g);
if(stats->stopFunc) {
stats->stopFunc(PROGRESS_LAYOUT_FINISH);
}
}
static void dotLayout(Agraph_t * g)
{
aspect_t aspect;
aspect_t* asp;
int maxphase = late_int(g, agfindgraphattr(g,"phase"), -1, 1);
setEdgeType (g, ET_SPLINE);
asp = setAspect (g, &aspect);
dot_init_subg(g,g);
dot_init_node_edge(g);
do {
dot_rank(g, asp);
if (maxphase == 1) {
attach_phase_attrs (g, 1);
return;
}
if (aspect.badGraph) {
agerr(AGWARN, "dot does not support the aspect attribute for disconnected graphs or graphs with clusters\n");
asp = NULL;
aspect.nextIter = 0;
}
dot_mincross(g, (asp != NULL));
if (maxphase == 2) {
attach_phase_attrs (g, 2);
return;
}
dot_position(g, asp);
if (maxphase == 3) {
attach_phase_attrs (g, 2); /* positions will be attached on output */
return;
}
aspect.nPasses--;
} while (aspect.nextIter && aspect.nPasses);
if (GD_flags(g) & NEW_RANK)
removeFill (g);
dot_sameports(g);
dot_splines(g);
if (mapbool(agget(g, "compound")))
dot_compoundEdges(g);
}
/* circularLayout:
* Do circular layout of g.
* Assume g is strict.
* g is a "connected" component of the derived graph of the
* original graph.
* We make state static so that it keeps a record of block numbers used
* in a graph; it gets reset when a new root graph is used.
*/
void circularLayout(Agraph_t * g, Agraph_t* realg)
{
block_t *root;
static circ_state state;
if (agnnodes(g) == 1) {
Agnode_t *n = agfstnode(g);
ND_pos(n)[0] = 0;
ND_pos(n)[1] = 0;
return;
}
initGraphAttrs(g, &state);
if (mapbool(agget(realg, "oneblock")))
root = createOneBlock(g, &state);
else
root = createBlocktree(g, &state);
circPos(g, root, &state);
cleanup(root, &state);
}
static void initialPositions(graph_t * g)
{
int i;
node_t *np;
attrsym_t *possym;
attrsym_t *pinsym;
double *pvec;
char *p;
char c;
possym = agfindattr(g->proto->n, "pos");
if (!possym)
return;
pinsym = agfindattr(g->proto->n, "pin");
for (i = 0; (np = GD_neato_nlist(g)[i]); i++) {
p = agxget(np, possym->index);
if (p[0]) {
pvec = ND_pos(np);
c = '\0';
if (sscanf(p, "%lf,%lf%c", pvec, pvec + 1, &c) >= 2) {
if (PSinputscale > 0.0) {
int i;
for (i = 0; i < NDIM; i++)
pvec[i] = pvec[i] / PSinputscale;
}
ND_pinned(np) = P_SET;
if ((c == '!')
|| (pinsym && mapbool(agxget(np, pinsym->index))))
ND_pinned(np) = P_PIN;
} else
fprintf(stderr,
"Warning: node %s, position %s, expected two floats\n",
np->name, p);
}
}
}
void init_ugraph(graph_t* g)
{
char *p;
int i;
double xf;
static char *rankname[] = {"local","global","none",NULL};
static int rankcode[] = {LOCAL, GLOBAL, NOCLUST, LOCAL};
g->u.drawing = NEW(layout_t);
/* set this up fairly early in case any string sizes are needed */
if ((p = agget(g,"fontpath")) || (p = getenv("DOTFONTPATH"))) {
/* overide GDFONTPATH in local environment if dot
* wants its own */
#ifdef HAVE_SETENV
setenv("GDFONTPATH", p, 1);
#else
static char *buf=0;
buf=(char *)realloc(buf,strlen("GDFONTPATH=")+strlen(p)+1);
strcpy(buf,"GDFONTPATH=");
strcat(buf,p);
putenv(buf);
#endif
}
g->u.drawing->quantum = late_float(g,agfindattr(g,"quantum"),0.0,0.0);
g->u.drawing->font_scale_adj = 1.0;
g->u.left_to_right = ((p = agget(g,"rankdir")) && streq(p,"LR"));
do_graph_label(g);
xf = late_float(g,agfindattr(g,"nodesep"),DEFAULT_NODESEP,MIN_NODESEP);
g->u.nodesep = POINTS(xf);
p = late_string(g,agfindattr(g,"ranksep"),NULL);
if (p) {
if (sscanf(p,"%lf",&xf) == 0) xf = DEFAULT_RANKSEP;
else {if (xf < MIN_RANKSEP) xf = MIN_RANKSEP;}
if (strstr(p,"equally")) g->u.exact_ranksep = TRUE;
}
else xf = DEFAULT_RANKSEP;
g->u.ranksep = POINTS(xf);
g->u.showboxes = late_int(g,agfindattr(g,"showboxes"),0,0);
Epsilon = .0001 * agnnodes(g);
getfloats2pt(g,"size",&(g->u.drawing->size));
getfloats2pt(g,"page",&(g->u.drawing->page));
getfloat(g,"epsilon",&Epsilon);
getfloat(g,"nodesep",&Nodesep);
getfloat(g,"nodefactor",&Nodefactor);
g->u.drawing->centered = mapbool(agget(g,"center"));
if ((p = agget(g,"rotate"))) g->u.drawing->landscape = (atoi(p) == 90);
else { /* today we learned the importance of backward compatibilty */
if ((p = agget(g,"orientation")))
g->u.drawing->landscape = ((p[0] == 'l') || (p[0] == 'L'));
}
p = agget(g,"clusterrank");
CL_type = maptoken(p,rankname,rankcode);
p = agget(g,"concentrate");
Concentrate = mapbool(p);
Nodesep = 1.0;
Nodefactor = 1.0;
Initial_dist = MYHUGE;
}
/* return TRUE if edge has label */
int common_init_edge(edge_t * e)
{
char *s;
int html = 0, r = 0;
struct fontinfo fi;
struct fontinfo lfi;
fi.fontname = NULL;
lfi.fontname = NULL;
if (E_label && (s = agxget(e, E_label->index)) && (s[0])) {
r = 1;
html = aghtmlstr(s);
if (html)
s = strdup(s);
else
s = strdup_and_subst_edge(s, e);
initFontEdgeAttr(e, &fi);
ED_label(e) = make_label(html, s,
fi.fontsize, fi.fontname, fi.fontcolor,
e->tail->graph);
#ifdef ENABLE_HTML //maks
if (html) {
if (make_html_label(ED_label(e), e) == 1)
edgeError(e, "label");
}
#endif
GD_has_labels(e->tail->graph) |= EDGE_LABEL;
ED_label_ontop(e) =
mapbool(late_string(e, E_label_float, "false"));
}
/* vladimir */
if (E_headlabel && (s = agxget(e, E_headlabel->index)) && (s[0])) {
html = aghtmlstr(s);
if (html)
s = strdup(s);
else
s = strdup_and_subst_edge(s, e);
initFontLabelEdgeAttr(e, &fi, &lfi);
ED_head_label(e) = make_label(html, s,
lfi.fontsize, lfi.fontname,
lfi.fontcolor, e->tail->graph);
#ifdef ENABLE_HTML //maks
if (html) {
if (make_html_label(ED_head_label(e), e) == 1)
edgeError(e, "head label");
}
#endif
GD_has_labels(e->tail->graph) |= HEAD_LABEL;
}
if (E_taillabel && (s = agxget(e, E_taillabel->index)) && (s[0])) {
html = aghtmlstr(s);
if (html)
s = strdup(s);
else
s = strdup_and_subst_edge(s, e);
if (!lfi.fontname)
initFontLabelEdgeAttr(e, &fi, &lfi);
ED_tail_label(e) = make_label(html, s,
lfi.fontsize, lfi.fontname,
lfi.fontcolor, e->tail->graph);
#ifdef ENABLE_HTML //maks
if (html) {
if (make_html_label(ED_tail_label(e), e) == 1)
edgeError(e, "tail label");
}
#endif
GD_has_labels(e->tail->graph) |= TAIL_LABEL;
}
/* end vladimir */
/* We still accept ports beginning with colons but this is deprecated */
s = agget(e, TAIL_ID);
if (s[0])
ND_has_port(e->tail) = TRUE;
ED_tail_port(e) = chkPort (ND_shape(e->tail)->fns->portfn,e->tail, s);
if (noClip(e, E_tailclip))
ED_tail_port(e).clip = FALSE;
s = agget(e, HEAD_ID);
if (s[0])
ND_has_port(e->head) = TRUE;
ED_head_port(e) = chkPort(ND_shape(e->head)->fns->portfn,e->head, s);
if (noClip(e, E_headclip))
ED_head_port(e).clip = FALSE;
return r;
}
/*
cgraph requires
*/
void graph_init(graph_t * g, boolean use_rankdir)
{
char *p;
double xf;
static char *rankname[] = { "local", "global", "none", NULL };
static int rankcode[] = { LOCAL, GLOBAL, NOCLUST, LOCAL };
static char *fontnamenames[] = {"gd","ps","svg", NULL};
static int fontnamecodes[] = {NATIVEFONTS,PSFONTS,SVGFONTS,-1};
int rankdir;
GD_drawing(g) = NEW(layout_t);
/* set this up fairly early in case any string sizes are needed */
if ((p = agget(g, "fontpath")) || (p = getenv("DOTFONTPATH"))) {
/* overide GDFONTPATH in local environment if dot
* wants its own */
#ifdef HAVE_SETENV
setenv("GDFONTPATH", p, 1);
#else
static char *buf = 0;
buf = grealloc(buf, strlen("GDFONTPATH=") + strlen(p) + 1);
strcpy(buf, "GDFONTPATH=");
strcat(buf, p);
putenv(buf);
#endif
}
GD_charset(g) = findCharset (g);
if (!HTTPServerEnVar) {
Gvimagepath = agget (g, "imagepath");
if (!Gvimagepath)
Gvimagepath = Gvfilepath;
}
GD_drawing(g)->quantum =
late_double(g, agfindgraphattr(g, "quantum"), 0.0, 0.0);
/* setting rankdir=LR is only defined in dot,
* but having it set causes shape code and others to use it.
* The result is confused output, so we turn it off unless requested.
* This effective rankdir is stored in the bottom 2 bits of g->u.rankdir.
* Sometimes, the code really needs the graph's rankdir, e.g., neato -n
* with record shapes, so we store the real rankdir in the next 2 bits.
*/
rankdir = RANKDIR_TB;
if ((p = agget(g, "rankdir"))) {
if (streq(p, "LR"))
rankdir = RANKDIR_LR;
else if (streq(p, "BT"))
rankdir = RANKDIR_BT;
else if (streq(p, "RL"))
rankdir = RANKDIR_RL;
}
if (use_rankdir)
SET_RANKDIR (g, (rankdir << 2) | rankdir);
else
SET_RANKDIR (g, (rankdir << 2));
xf = late_double(g, agfindgraphattr(g, "nodesep"),
DEFAULT_NODESEP, MIN_NODESEP);
GD_nodesep(g) = POINTS(xf);
p = late_string(g, agfindgraphattr(g, "ranksep"), NULL);
if (p) {
if (sscanf(p, "%lf", &xf) == 0)
xf = DEFAULT_RANKSEP;
else {
if (xf < MIN_RANKSEP)
xf = MIN_RANKSEP;
}
if (strstr(p, "equally"))
GD_exact_ranksep(g) = TRUE;
} else
xf = DEFAULT_RANKSEP;
GD_ranksep(g) = POINTS(xf);
GD_showboxes(g) = late_int(g, agfindgraphattr(g, "showboxes"), 0, 0);
p = late_string(g, agfindgraphattr(g, "fontnames"), NULL);
GD_fontnames(g) = maptoken(p, fontnamenames, fontnamecodes);
setRatio(g);
GD_drawing(g)->filled =
getdoubles2ptf(g, "size", &(GD_drawing(g)->size));
getdoubles2ptf(g, "page", &(GD_drawing(g)->page));
GD_drawing(g)->centered = mapbool(agget(g, "center"));
if ((p = agget(g, "rotate")))
GD_drawing(g)->landscape = (atoi(p) == 90);
else if ((p = agget(g, "orientation")))
GD_drawing(g)->landscape = ((p[0] == 'l') || (p[0] == 'L'));
else if ((p = agget(g, "landscape")))
GD_drawing(g)->landscape = mapbool(p);
p = agget(g, "clusterrank");
CL_type = maptoken(p, rankname, rankcode);
p = agget(g, "concentrate");
Concentrate = mapbool(p);
State = GVBEGIN;
EdgeLabelsDone = 0;
GD_drawing(g)->dpi = 0.0;
if (((p = agget(g, "dpi")) && p[0])
|| ((p = agget(g, "resolution")) && p[0]))
GD_drawing(g)->dpi = atof(p);
do_graph_label(g);
Initial_dist = MYHUGE;
G_ordering = agfindgraphattr(g, "ordering");
G_gradientangle = agfindgraphattr(g,"gradientangle");
G_margin = agfindgraphattr(g, "margin");
/* initialize nodes */
N_height = agfindnodeattr(g, "height");
N_width = agfindnodeattr(g, "width");
N_shape = agfindnodeattr(g, "shape");
N_color = agfindnodeattr(g, "color");
N_fillcolor = agfindnodeattr(g, "fillcolor");
N_style = agfindnodeattr(g, "style");
N_fontsize = agfindnodeattr(g, "fontsize");
N_fontname = agfindnodeattr(g, "fontname");
N_fontcolor = agfindnodeattr(g, "fontcolor");
N_label = agfindnodeattr(g, "label");
if (!N_label)
N_label = agattr(g, AGNODE, "label", NODENAME_ESC);
N_xlabel = agfindnodeattr(g, "xlabel");
N_showboxes = agfindnodeattr(g, "showboxes");
N_penwidth = agfindnodeattr(g, "penwidth");
N_ordering = agfindnodeattr(g, "ordering");
N_margin = agfindnodeattr(g, "margin");
/* attribs for polygon shapes */
N_sides = agfindnodeattr(g, "sides");
N_peripheries = agfindnodeattr(g, "peripheries");
N_skew = agfindnodeattr(g, "skew");
N_orientation = agfindnodeattr(g, "orientation");
N_distortion = agfindnodeattr(g, "distortion");
N_fixed = agfindnodeattr(g, "fixedsize");
N_imagescale = agfindnodeattr(g, "imagescale");
N_nojustify = agfindnodeattr(g, "nojustify");
N_layer = agfindnodeattr(g, "layer");
N_group = agfindnodeattr(g, "group");
N_comment = agfindnodeattr(g, "comment");
N_vertices = agfindnodeattr(g, "vertices");
N_z = agfindnodeattr(g, "z");
N_gradientangle = agfindnodeattr(g,"gradientangle");
/* initialize edges */
E_weight = agfindedgeattr(g, "weight");
E_color = agfindedgeattr(g, "color");
E_fillcolor = agfindedgeattr(g, "fillcolor");
E_fontsize = agfindedgeattr(g, "fontsize");
E_fontname = agfindedgeattr(g, "fontname");
E_fontcolor = agfindedgeattr(g, "fontcolor");
E_label = agfindedgeattr(g, "label");
E_xlabel = agfindedgeattr(g, "xlabel");
E_label_float = agfindedgeattr(g, "labelfloat");
/* vladimir */
E_dir = agfindedgeattr(g, "dir");
E_arrowhead = agfindedgeattr(g, "arrowhead");
E_arrowtail = agfindedgeattr(g, "arrowtail");
E_headlabel = agfindedgeattr(g, "headlabel");
E_taillabel = agfindedgeattr(g, "taillabel");
E_labelfontsize = agfindedgeattr(g, "labelfontsize");
E_labelfontname = agfindedgeattr(g, "labelfontname");
E_labelfontcolor = agfindedgeattr(g, "labelfontcolor");
E_labeldistance = agfindedgeattr(g, "labeldistance");
E_labelangle = agfindedgeattr(g, "labelangle");
/* end vladimir */
E_minlen = agfindedgeattr(g, "minlen");
E_showboxes = agfindedgeattr(g, "showboxes");
E_style = agfindedgeattr(g, "style");
E_decorate = agfindedgeattr(g, "decorate");
E_arrowsz = agfindedgeattr(g, "arrowsize");
E_constr = agfindedgeattr(g, "constraint");
E_layer = agfindedgeattr(g, "layer");
E_comment = agfindedgeattr(g, "comment");
E_tailclip = agfindedgeattr(g, "tailclip");
E_headclip = agfindedgeattr(g, "headclip");
E_penwidth = agfindedgeattr(g, "penwidth");
/* background */
GD_drawing(g)->xdots = init_xdot (g);
/* initialize id, if any */
if ((p = agget(g, "id")) && *p)
GD_drawing(g)->id = strdup_and_subst_obj(p, g);
}
void init_ugraph(graph_t *g)
{
char *p;
double xf;
static char *rankname[] = {"local","global","none",NULL};
static int rankcode[] = {LOCAL, GLOBAL, NOCLUST, LOCAL};
double X,Y,Z,x,y;
GD_drawing(g) = NEW(layout_t);
/* set this up fairly early in case any string sizes are needed */
if ((p = agget(g,"fontpath")) || (p = getenv("DOTFONTPATH"))) {
/* overide GDFONTPATH in local environment if dot
* wants its own */
#ifdef HAVE_SETENV
setenv("GDFONTPATH", p, 1);
#else
static char *buf=0;
buf=grealloc(buf,strlen("GDFONTPATH=")+strlen(p)+1);
strcpy(buf,"GDFONTPATH=");
strcat(buf,p);
putenv(buf);
#endif
}
GD_drawing(g)->quantum = late_double(g,agfindattr(g,"quantum"),0.0,0.0);
GD_drawing(g)->font_scale_adj = 1.0;
/* setting rankdir=LR is only defined in dot,
* but having it set causes shape code and others to use it.
* The result is confused output, so we turn it off unless requested.
*/
if (UseRankdir)
GD_left_to_right(g) = ((p = agget(g,"rankdir")) && streq(p,"LR"));
else
GD_left_to_right(g) = FALSE;
do_graph_label(g);
xf = late_double(g,agfindattr(g,"nodesep"),DEFAULT_NODESEP,MIN_NODESEP);
GD_nodesep(g) = POINTS(xf);
p = late_string(g,agfindattr(g,"ranksep"),NULL);
if (p) {
if (sscanf(p,"%lf",&xf) == 0) xf = DEFAULT_RANKSEP;
else {if (xf < MIN_RANKSEP) xf = MIN_RANKSEP;}
if (strstr(p,"equally")) GD_exact_ranksep(g) = TRUE;
}
else xf = DEFAULT_RANKSEP;
GD_ranksep(g) = POINTS(xf);
GD_showboxes(g) = late_int(g,agfindattr(g,"showboxes"),0,0);
Epsilon = .0001 * agnnodes(g);
getdoubles2pt(g,"size",&(GD_drawing(g)->size));
getdoubles2pt(g,"page",&(GD_drawing(g)->page));
getdouble(g,"epsilon",&Epsilon);
getdouble(g,"nodesep",&Nodesep);
getdouble(g,"nodefactor",&Nodefactor);
X = Y = Z = x = y = 0.0;
if ((p = agget(g,"viewport")))
sscanf(p,"%lf,%lf,%lf,%lf,%lf",&X,&Y,&Z,&x,&y);
GD_drawing(g)->viewport.size.x = ROUND(X); /* viewport size in dev units - pixels */
GD_drawing(g)->viewport.size.y = ROUND(Y);
GD_drawing(g)->viewport.zoom = Z; /* scaling factor */
GD_drawing(g)->viewport.focus.x = x; /* graph coord of focus - points */
GD_drawing(g)->viewport.focus.y = y;
GD_drawing(g)->centered = mapbool(agget(g,"center"));
if ((p = agget(g,"rotate"))) GD_drawing(g)->landscape = (atoi(p) == 90);
else { /* today we learned the importance of backward compatibilty */
if ((p = agget(g,"orientation")))
GD_drawing(g)->landscape = ((p[0] == 'l') || (p[0] == 'L'));
}
p = agget(g,"clusterrank");
CL_type = maptoken(p,rankname,rankcode);
p = agget(g,"concentrate");
Concentrate = mapbool(p);
Nodesep = 1.0;
Nodefactor = 1.0;
Initial_dist = MYHUGE;
}
static void gd_begin_graph(GVC_t * gvc, graph_t * g, box bb, point pb)
{
char *bgcolor_str = NULL;
char *truecolor_str;
bool truecolor_p = FALSE; /* try to use cheaper paletted mode */
bool bg_transparent_p = FALSE;
int bgcolor;
external_surface = gvc->job->external_surface;
init1_gd(gvc, g, bb, pb);
if (external_surface) {
im = (gdImagePtr)gvc->job->surface;
} else {
truecolor_str = agget(g, "truecolor"); /* allow user to force truecolor */
bgcolor_str = agget(g, "bgcolor");
if (truecolor_str && truecolor_str[0])
truecolor_p = mapbool(truecolor_str);
if (bgcolor_str && strcmp(bgcolor_str, "transparent") == 0) {
bg_transparent_p = TRUE;
if (is_format_truecolor_capable(Output_lang))
truecolor_p = TRUE; /* force truecolor */
}
if (GD_has_images(g))
truecolor_p = TRUE; /* force truecolor */
if (truecolor_p) {
if (Verbose)
fprintf(stderr, "%s: allocating a %dK TrueColor GD image\n",
CmdName, ROUND(Viewport.x * Viewport.y * 4 / 1024.));
im = gdImageCreateTrueColor(Viewport.x, Viewport.y);
} else {
if (Verbose)
fprintf(stderr, "%s: allocating a %dK PaletteColor GD image\n",
CmdName, ROUND(Viewport.x * Viewport.y / 1024.));
im = gdImageCreate(Viewport.x, Viewport.y);
}
if (!im) {
agerr(AGERR, "gdImageCreate returned NULL. Malloc problem?\n");
return;
}
}
init2_gd(im);
if (! external_surface) {
if (bgcolor_str && bgcolor_str[0])
if (bg_transparent_p)
bgcolor = transparent;
else
bgcolor = gd_resolve_color(bgcolor_str);
else
bgcolor = white;
cstk[0].fillcolor = bgcolor;
/* Blending must be off to lay a transparent bgcolor.
Nothing to blend with anyway. */
gdImageAlphaBlending(im, FALSE);
gdImageFill(im, im->sx / 2, im->sy / 2, bgcolor);
/* Blend everything else together,
especially fonts over non-transparent backgrounds */
gdImageAlphaBlending(im, TRUE);
}
#ifdef MYTRACE
fprintf(stderr, "gd_begin_graph\n");
#endif
}
/* return true if edge has label */
int common_init_edge(edge_t * e)
{
char *str;
int r = 0;
struct fontinfo fi;
struct fontinfo lfi;
graph_t *sg = agraphof(agtail(e));
fi.fontname = NULL;
lfi.fontname = NULL;
if (E_label && (str = agxget(e, E_label)) && (str[0])) {
r = 1;
initFontEdgeAttr(e, &fi);
ED_label(e) = make_label((void*)e, str, (aghtmlstr(str) ? LT_HTML : LT_NONE),
fi.fontsize, fi.fontname, fi.fontcolor);
GD_has_labels(sg) |= EDGE_LABEL;
ED_label_ontop(e) =
mapbool(late_string(e, E_label_float, "false"));
}
if (E_xlabel && (str = agxget(e, E_xlabel)) && (str[0])) {
if (!fi.fontname)
initFontEdgeAttr(e, &fi);
ED_xlabel(e) = make_label((void*)e, str, (aghtmlstr(str) ? LT_HTML : LT_NONE),
fi.fontsize, fi.fontname, fi.fontcolor);
GD_has_labels(sg) |= EDGE_XLABEL;
}
/* vladimir */
if (E_headlabel && (str = agxget(e, E_headlabel)) && (str[0])) {
initFontLabelEdgeAttr(e, &fi, &lfi);
ED_head_label(e) = make_label((void*)e, str, (aghtmlstr(str) ? LT_HTML : LT_NONE),
lfi.fontsize, lfi.fontname, lfi.fontcolor);
GD_has_labels(sg) |= HEAD_LABEL;
}
if (E_taillabel && (str = agxget(e, E_taillabel)) && (str[0])) {
if (!lfi.fontname)
initFontLabelEdgeAttr(e, &fi, &lfi);
ED_tail_label(e) = make_label((void*)e, str, (aghtmlstr(str) ? LT_HTML : LT_NONE),
lfi.fontsize, lfi.fontname, lfi.fontcolor);
GD_has_labels(sg) |= TAIL_LABEL;
}
/* end vladimir */
/* We still accept ports beginning with colons but this is deprecated
* That is, we allow tailport = ":abc" as well as the preferred
* tailport = "abc".
*/
str = agget(e, TAIL_ID);
/* libgraph always defines tailport/headport; libcgraph doesn't */
if (!str) str = "";
if (str && str[0])
ND_has_port(agtail(e)) = TRUE;
ED_tail_port(e) = chkPort (ND_shape(agtail(e))->fns->portfn, agtail(e), str);
if (noClip(e, E_tailclip))
ED_tail_port(e).clip = FALSE;
str = agget(e, HEAD_ID);
/* libgraph always defines tailport/headport; libcgraph doesn't */
if (!str) str = "";
if (str && str[0])
ND_has_port(aghead(e)) = TRUE;
ED_head_port(e) = chkPort(ND_shape(aghead(e))->fns->portfn, aghead(e), str);
if (noClip(e, E_headclip))
ED_head_port(e).clip = FALSE;
return r;
}
