static char *elog = "showpage\n";
-/*
-static char* arrow = "/doArrow {\n\
-\t/arrowwidth exch def\n\
-\t/arrowlength exch def\n\
-\tgsave\n\
-\t\t3 1 roll\n\
-\t\ttranslate\n\
-\t\t\trotate\n\
-\t\t\tnewpath\n\
-\t\t\tarrowlength arrowwidth 2 div moveto\n\
-\t\t\t0 0 lineto\n\
-\t\t\tarrowlength arrowwidth -2 div lineto\n\
-\t\tclosepath fill\n\
-\t\tstroke\n\
-\tgrestore\n\
-} def\n";
-*/
-
static double PSWidth = 550.0;
static double PSHeight = 756.0;
fprintf(fp, "%s", plog);
-/*
- if (agisdirected (g) && DoArrow) {
- do_arrow = 1;
- fprintf(fp,arrow);
- }
- else
-*/
do_arrow = 0;
n = agfstnode(g);
#define GORIG(g) (GDATA(g)->orig)
#endif
-#if 0
-/* ndata is attached to nodes in real graphs.
- * Real nodes also use "builtin" fields:
- * pos - position information
- * width,height - node dimensions
- * xsize,ysize - node dimensions in points
- */
-typedef struct {
- node_t *dn; /* points to corresponding derived node,
- * which may represent the node or its
- * containing cluster. */
- graph_t *parent; /* smallest containing cluster */
-} ndata;
-
-#define NDATA(n) ((ndata*)(ND_alg(n)))
-#define DNODE(n) (NDATA(n)->dn)
-#define PARENT(n) (NDATA(n)->parent)
-#endif
-
/*
* Real nodes use "builtin" fields:
* ND_pos - position information