Mini Shell
/* finds root node of graph.
* scales the x and y position of all other nodes using, first,
* ARGV[0], or $G.scale.
*
* The expected syntax is "x,y" where at least one of x or y must
* be given. If only one is given, the other is taken as 1.
*/
BEGIN {
double scalex, scaley;
int r, done;
int setScale (char* s)
{
if ((sscanf (s, ",%f",&scaley))) {
scalex = 1;
return 1;
}
else {
r = sscanf (s, "%f,%f",&scalex,&scaley);
if (r) {
if (r == 1) scaley = 1;
return 1;
}
}
return 0;
}
}
BEG_G {
node_t ctr = node($,aget($,"root"));
double cx, cy, x, y, delx;
/* get scale argument */
done = 0;
if (ARGC == 1)
done = setScale (ARGV[0]);
if (!done && isAttr($,"G","scale"))
done = setScale ($.scale);
if (!done)
scalex = scaley = 1.0;
if ((scalex == 1.0) && (scaley == 1.0))
exit (0);
$.bb = "";
sscanf (ctr.pos, "%f,%f", &cx, &cy);
}
N [$ != ctr] {
sscanf ($.pos, "%f,%f", &x, &y);
delx = scalex*(x - cx) + cx;
dely = scaley*(y - cy) + cy;
$.pos = sprintf ("%f,%f", delx, dely);
}
Zerion Mini Shell 1.0