Geforce File Manager

NAME	SIZE	ACTIONS
📄 addedges	291 B	[ EDIT ] \| [ DEL ]
📄 addranks	830 B	[ EDIT ] \| [ DEL ]
📄 addrings	1,319 B	[ EDIT ] \| [ DEL ]
📄 anon	422 B	[ EDIT ] \| [ DEL ]
📄 attr	151 B	[ EDIT ] \| [ DEL ]
📄 bb	997 B	[ EDIT ] \| [ DEL ]
📄 bbox	532 B	[ EDIT ] \| [ DEL ]
📄 binduce	1,166 B	[ EDIT ] \| [ DEL ]
📄 bipart	455 B	[ EDIT ] \| [ DEL ]
📄 chkclusters	532 B	[ EDIT ] \| [ DEL ]
📄 chkedges	916 B	[ EDIT ] \| [ DEL ]
📄 cliptree	178 B	[ EDIT ] \| [ DEL ]
📄 col	601 B	[ EDIT ] \| [ DEL ]
📄 collapse	469 B	[ EDIT ] \| [ DEL ]
📄 color	1,440 B	[ EDIT ] \| [ DEL ]
📄 cycle	560 B	[ EDIT ] \| [ DEL ]
📄 dechain	264 B	[ EDIT ] \| [ DEL ]
📄 deghist	351 B	[ EDIT ] \| [ DEL ]
📄 deledges	116 B	[ EDIT ] \| [ DEL ]
📄 delmulti	397 B	[ EDIT ] \| [ DEL ]
📄 delnodes	249 B	[ EDIT ] \| [ DEL ]
📄 depath	547 B	[ EDIT ] \| [ DEL ]
📄 dijkstra	647 B	[ EDIT ] \| [ DEL ]
📄 flatten	88 B	[ EDIT ] \| [ DEL ]
📄 get-layers-list	277 B	[ EDIT ] \| [ DEL ]
📄 group	791 B	[ EDIT ] \| [ DEL ]
📄 histogram	319 B	[ EDIT ] \| [ DEL ]
📄 indent	378 B	[ EDIT ] \| [ DEL ]
📄 knbhd	1,226 B	[ EDIT ] \| [ DEL ]
📄 maxdeg	307 B	[ EDIT ] \| [ DEL ]
📄 path	449 B	[ EDIT ] \| [ DEL ]
📄 rotate	1,194 B	[ EDIT ] \| [ DEL ]
📄 scale	1,147 B	[ EDIT ] \| [ DEL ]
📄 scalexy	1,123 B	[ EDIT ] \| [ DEL ]
📄 span	139 B	[ EDIT ] \| [ DEL ]
📄 topon	429 B	[ EDIT ] \| [ DEL ]
📄 treetoclust	988 B	[ EDIT ] \| [ DEL ]

[ CLOSE ]

EDIT: rotate

/* Given node name and angle, rotate a layout using the given
 * node as origin.
 */

BEGIN {
  double x,y;
  double x0,y0;
  double x1,y1;
  double angle, cosa, sina;
  int cnt, sz;

void rotate (double a, double b) {
    a -= x0;
    b -= y0;
    x1 = a*cosa - b*sina;
    y1 = a*sina + b*cosa;
  }
  char* rotateE (char* p) {
    char* newpos = "";
    cnt = sscanf (p, "e,%lf,%lf%n", &x, &y, &sz);
    if (cnt == 2) {
      rotate (x,y);
      newpos = newpos + sprintf ("e%lf,%lf ", x1, y1);
      p = substr(p, sz);
    }
    cnt = sscanf (p, "s,%lf,%lf%n", &x, &y, &sz);
    if (cnt == 2) {
      rotate (x,y);
      newpos = newpos + sprintf ("s%lf,%lf ", x1, y1);
      p = substr(p, sz);
    }

while (sscanf (p, "%lf,%lf%n", &x, &y, &sz) == 2) {
      rotate (x,y);
      newpos = newpos + sprintf ("%lf,%lf ", x1, y1);
      p = substr(p, sz);
    }

return newpos;
  }
}

BEG_G {
  node_t ctr = node ($, ARGV[0]);

sscanf (ARGV[1], "%f", &angle);
  cosa = cos(angle);
  sina = sin(angle);

sscanf (ctr.pos, "%f,%f", &x0, &y0);
  $.bb ="";
}
N {
  sscanf ($.pos, "%f,%f", &x, &y);
  rotate (x,y);
  $.pos = sprintf ("%f,%f", x1, y1);
}
E {
  $.pos = rotateE($.pos);
}