#! /usr/bin/gawk -f # Last edited on 2001-11-16 21:46:15 by stolfi ($2 == -1) { root = $1; xr = $4; yr = $5; cr = $8; sr = $9; print; next; } ($2 == root) { x = $4; y = $5; c = $8; s = $9; xt = xr + x*cr - y*sr; yt = yr + x*sr + y*cr; ct = c*cr - s*sr; st = c*sr + s*cr; printf "%03d %03d 1 %10.3f %10.3f 0 0 %8.5f %8.5f 0 0 %8.5f %8.5f 0 0 0 0 1\n", $1, -1, xt, yt, ct, st, -st, ct; next; }