![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stills.awk CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / movie|
Return to stills.awk CVS log | Up to [Research Unix] / researchv10no / cmd / movie |
1.1 ! root 1: BEGIN { ! 2: # develop is set from first argument of form develop=filename ! 3: ! 4: fillstring = "; line from GL.n to GL.s; line from GL.e to GL.w "\ ! 5: "; line from GL.ne to GL.sw; line from GL.nw to GL.se" ! 6: set(textname, "small s medium m big b bigbig B") ! 7: set(linename, "solid s fat f fatfat F") ! 8: set(justtr, "l ljust r rjust a above b below") ! 9: set(linetr, "o dotted a dashed"); linetr["s"] = linetr["f"] = linetr["F"] = "" ! 10: set(arrowtr, "< <- > -> x <->"); arrowtr["-"] = "" ! 11: set(convert, "dot \\v'-.2m'\\s+3.\\s-3\\v'.2m' "\ ! 12: "bullet \\v'.2m'\\s+2\\(bu\\s-2\\v'-.2m' "\ ! 13: "times \\s-3\\(mu\\s+3 circle \\s-3\\(ob\\s+3") ! 14: instills = 0 ! 15: } ! 16: ! 17: instills == 0 { if ($1 == ".begin" && /^\.begin[ \t]+stills/) { ! 18: instills = 1; startstills() ! 19: } else print ! 20: next ! 21: } ! 22: /^\.end/ { instills = 0; endstills(); next } ! 23: END { if (instills) fatal("eof inside begin/end") } ! 24: ! 25: { inputline = $0; sub(/\#.*$/, "") } ! 26: /^[ \t]*$/ { next } ! 27: $1 == "view" { viewnum[$2] = viewct++ ! 28: if (NF <= 2) text = $2 ! 29: else { text = rest(3) ! 30: if (text ~ /^"/) { ! 31: if (text !~ /"$/) text = substr(text,2) ! 32: else text=substr(text,2,length(text)-2) ! 33: } ! 34: } ! 35: inviewtitle[$2] = text ! 36: next ! 37: } ! 38: $1 == "print" { sawprint = 1 ! 39: if ($2 == "all") printglobal = 1 ! 40: else if ($2 == "final") printfinal = 1 ! 41: else { # print <clickname> ... ! 42: if ($3 == "all") { # print <clickname> all ! 43: allnamearr[$2] = 1 ! 44: } else { # print <clickname> v1 v2 ... ! 45: if (!($2 in snamenum)) ! 46: snamenum[$2] = snamenumct++ ! 47: for (i = 3; i <= NF; i++) ! 48: printsome[snamenum[$2] "." $i]=1 ! 49: } ! 50: } ! 51: next ! 52: } ! 53: /./ { # parameter assignments ! 54: n = $2; sub(/^\+/, "", n); n = 0 + n ! 55: if ($1 == "file") infile = $2 ! 56: else if ($1 == "across") across = n ! 57: else if ($1 == "down") down = n ! 58: else if ($1 == "margin") margin = n ! 59: else if ($1 == "frameht") frameht = n ! 60: else if ($1 == "framewid") framewid = n ! 61: else if ($1 in textname) textinc[textname[$1]] = n ! 62: else if ($1 in linename) lineinc[linename[$1]] = n ! 63: else if ($1 ~ /^times?$/) { ! 64: wanttime = 1; if ($2 == "invis") wanttime = 0 ! 65: } else if ($1 ~ /^frames?$/) { ! 66: wantframe = 1; if ($2 == "invis") wantframe = 0 ! 67: } else warn("unrecognized command") ! 68: next ! 69: } ! 70: ! 71: function rest(f, s, i) { # rest of $0, starting at $f ! 72: if (NF <= f) return $f ! 73: s = $0 ! 74: sub(/^[ \t]+/, "", s) ! 75: for (i = 1; i < f; i++) ! 76: sub(/^[^ \t]+[ \t]+/, "", s) ! 77: return s ! 78: } ! 79: ! 80: function dump(time, i, gtype, vnum, x1, x2, y1, y2, ! 81: opts, text, delta, btype) { ! 82: btype = ""; if (wantframe == 0) btype = " invis" ! 83: if (goacross == 0) { # time goes down the page, views go across ! 84: if (colcnt >= colmax) { ! 85: delta = .1; if (wanttime) delta += .8 ! 86: print "A0: box invis wid 0 ht 0 with .sw at A0.sw + ("\ ! 87: viewct*framewid + delta " , 0)" ! 88: print "B0: box invis wid 0 ht 0 with .sw at A0.sw" ! 89: colcnt = 0 ! 90: } ! 91: print "B0: box" btype " wid framewid ht frameht with .n at B0.s" ! 92: for (i = 1; i < viewct; i++) ! 93: print "B" i ": box" btype\ ! 94: " wid framewid ht frameht with .w at B" i-1 ".e" ! 95: if (colcnt == 0) ! 96: for (i = 0; i < viewct; i++) ! 97: if (viewtitle[i] != "") ! 98: print "\"" viewtitle[i] "\" at B"\ ! 99: viewbase[i] ".n + (0, .1)" ! 100: if (wanttime) ! 101: print "\"" time "\" ljust at B" viewct-1 ".e + (.1,0)" ! 102: } else { # time goes across the page, views go down ! 103: if (colcnt >= colmax) { ! 104: delta = .1; if (wanttime) delta += .3 ! 105: print "A0: box invis wid 0 ht 0 with .c at A0.c - (0,"\ ! 106: viewct*frameht + delta ")" ! 107: print "B0: box invis wid 0 ht 0 with .c at A0.c" ! 108: colcnt = 0 ! 109: } ! 110: print "B0: box" btype " wid framewid ht frameht with .w at B0.e" ! 111: for (i = 1; i < viewct; i++) ! 112: print "B" i ": box" btype\ ! 113: " wid framewid ht frameht with .n at B" i-1 ".s" ! 114: if (colcnt == 0) ! 115: for (i = 0; i < viewct; i++) ! 116: if (viewtitle[i] != "") ! 117: print "\"" viewtitle[i] "\" rjust at B"\ ! 118: viewbase[i] ".w - (.1, 0)" ! 119: if (wanttime) ! 120: print "\"" time "\" at B" viewct-1 ".s + (0,-.15)" ! 121: } ! 122: colcnt++ ! 123: for (i = 1; i <= slotcnt; i++) ! 124: if (slot[i] != "") { ! 125: if (slot[i] ~ /^g\t/) slot[i] = makepic(slot[i]) ! 126: print slot[i] ! 127: } ! 128: for (i = 1; i <= staticcnt; i++) ! 129: print static[i] ! 130: } ! 131: ! 132: function pos(x, y) { ! 133: return sprintf("B%d.sw+(%.3g,%.3g)", basenum,\ ! 134: framexfac*(frameborder+x), frameyfac*(frameborder+y)) ! 135: } ! 136: ! 137: function makepic(istring, fields, gtype, vnum, pstring, just, ! 138: x1, x2, y1, y2, opts, text, i, t, linemode, arrow, ! 139: inc, ss, es) { # convert int file string to pic ! 140: fields = split(istring, f, "\t") ! 141: gtype=f[3]; vnum=f[4]; opts=f[5]; x1=f[6]; y1=f[7] ! 142: basenum = viewbase[vnum] ! 143: if (gtype == "l") { # line ! 144: x2 = f[8]; y2 = f[9] ! 145: linemode = substr(opts,1,1) # solid,fat,fatfat,dotted,dashed ! 146: arrow = substr(opts,2,1) # -,->,<-, <-> ! 147: pstring = "line " linetr[linemode] " " arrowtr[arrow]\ ! 148: " from " pos(x1, y1) " to " pos(x2, y2) ! 149: if (linemode != "f" && linemode != "F") linemode = "s" ! 150: inc = lineinc[linemode] ! 151: if (inc != 0) { ! 152: if (inc < 0) { ss = inc; es = "+" 0-inc } ! 153: else { ss = "+" inc; es = "-" inc } ! 154: pstring = ".ps " ss "\n" pstring "\n.ps " es ! 155: } ! 156: } else if (gtype == "b") { # box ! 157: x2 = f[8]; y2 = f[9] ! 158: if (x1 > x2) { t = x1; x1 = x2; x2 = t } ! 159: if (y1 > y2) { t = y1; y1 = y2; y2 = t } ! 160: pstring = "GL: box with .sw at " pos(x1,y1)\ ! 161: " ht " (y2-y1)*frameyfac\ ! 162: " wid " (x2-x1)*framexfac ! 163: if (substr(opts,1,1) == "f") pstring = pstring fillstring ! 164: } else if (gtype == "c") { # circle ! 165: pstring = "GL: circle radius " framexfac*f[8]\ ! 166: " at " pos(x1, y1) ! 167: if (substr(opts,1,1) == "f") pstring = pstring fillstring ! 168: } else if (gtype == "t") { # text ! 169: if (fields == 8) text = f[8] ! 170: for (i = 9; i <= fields; i++) text = text "\t" f[i] ! 171: if (text in convert) text = convert[text] ! 172: just = justtr[substr(opts,1,1)] ! 173: pstring = "\"" text "\" " just " at " pos(x1, y1) ! 174: inc = textinc[substr(opts,2,1)] ! 175: if (inc != 0) { ! 176: if (inc < 0) { ss = inc; es = "+" 0-inc } ! 177: else { ss = "+" inc; es = "-" inc } ! 178: pstring = ".ps " ss "\n" pstring "\n.ps " es ! 179: } ! 180: } else warn("int file bug: illegal modifier after g") ! 181: return pstring ! 182: } ! 183: ! 184: function warn(s) { ! 185: print "stills warning: " s >"/dev/tty" ! 186: print " near input line " NR ": " inputline >"/dev/tty" ! 187: } ! 188: function fatal(s) { ! 189: print "stills fatal error: " s >"/dev/tty" ! 190: print " near input line " NR ": " inputline >"/dev/tty" ! 191: exit ! 192: } ! 193: ! 194: function startstills() { ! 195: set(textinc, "s -2 m 0 b 3 B 8") ! 196: set(lineinc, "s 0 f 3 F 8") ! 197: infile = ""; sawprint = 0 ! 198: frameht = 1.5; framewid = 1.5; margin = 0.05 ! 199: wanttime = wantframe = 1 ! 200: printglobal = printfinal = 0 ! 201: across = 0; down = -1 ! 202: clear(allnamearr) ! 203: clear(allnumarr) ! 204: clear(clickname) ! 205: clear(inviewtitle) ! 206: clear(printsome) ! 207: clear(slot) ; slotcnt = 0 ! 208: clear(somenum) ! 209: clear(snamenum) ; snamenumct = 0 ! 210: clear(static) ; staticcnt = 0 ! 211: clear(timectr) ! 212: clear(viewactive) ! 213: clear(viewtitle) ! 214: clear(viewnum) ; viewct = 0 ! 215: print ".PS" ! 216: print "A0: B0: box invis wid 0 ht 0" ! 217: } ! 218: ! 219: function clear(a, i) { ! 220: for (i in a) delete a[i] ! 221: } ! 222: function set(a, s, i, n, q) { ! 223: n = split(s, q) ! 224: for (i = 1; i < n; i += 2) ! 225: a[q[i]] = q[i+1] ! 226: } ! 227: ! 228: function endstills() { ! 229: if (sawprint = 0) warn("no print statements") ! 230: if (viewct == 0) viewglobal = 1 ! 231: if (down < 0) { ! 232: goacross = 1; colmax = across; ratio = 6/framewid ! 233: } else { ! 234: goacross = 0; colmax = down; ratio = 8/frameht ! 235: } ! 236: if (colmax <= 0) colmax = int(ratio) ! 237: inputrange = 10000 # 0..9999 ! 238: frameborder = inputrange * margin # border of whitespace ! 239: framexfac = framewid/(inputrange + 2*frameborder) ! 240: frameyfac = frameht/(inputrange + 2*frameborder) ! 241: print "frameht = " frameht ! 242: print "framewid = " framewid ! 243: if (infile == "") fatal("missing script file name") ! 244: if (infile !~ /\.s$/) fatal("script file name must end in .s") ! 245: system(develop " " infile) ! 246: sub(".s$", ".i", infile) ! 247: OFMT = "%.3g" ! 248: FS = "\t" ! 249: while ((getline <infile) > 0) { ! 250: if ($1 == "g") { ! 251: if (viewactive[$4]) { ! 252: snum = $2 ! 253: if (snum > slotcnt) slotcnt = snum ! 254: if (snum != 0) slot[snum] = $0 ! 255: else static[++staticcnt] = makepic($0) ! 256: } ! 257: } else if ($1 == "e") { # erase ! 258: if (viewactive[$4]) slot[$2] = "" ! 259: } else if ($1 == "c") { # click ! 260: ++timectr[$2] ! 261: if (printglobal || allnumarr[$2] || ! 262: (somenum[$2] "." timectr[$2] in printsome)) ! 263: dump(clickname[$2] ": " timectr[$2]) ! 264: } else if ($1 == "#") { # comment -- ignore it ! 265: } else if ($1 == "b") { # blank the current view by enclosed erases ! 266: } else if ($1 == "d") { # define ! 267: if ($2 == "c") { # click ! 268: clickname[$3] = $4 ! 269: allnumarr[$3] = 0 ! 270: if ($4 in allnamearr) allnumarr[$3] = 1 ! 271: somenum[$3] = -1 ! 272: if ($4 in snamenum) somenum[$3] = snamenum[$4] ! 273: } else if ($2 == "v") { # view ! 274: viewactive[$3] = 0 ! 275: if ($4 in viewnum) { ! 276: viewactive[$3] = 1 ! 277: viewbase[$3] = viewnum[$4] ! 278: viewtitle[$3] = inviewtitle[$4] ! 279: } else if (viewglobal) { ! 280: viewactive[$3] = 1 ! 281: viewbase[$3] = viewct++ ! 282: viewtitle[$3] = $4 ! 283: } ! 284: } else if ($2 == "p") { # ``pragmas'' -- check here? ! 285: } else warn("int file bug: illegal modifier following d") ! 286: } else warn("int file bug: unrecognized command") ! 287: } ! 288: close(infile) ! 289: if (printfinal) dump("final") ! 290: print ".PE" ! 291: FS = " " ! 292: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.