Return to scatvec.awk CVS log

Up to [Research Unix] / researchv10dc / vol2 / grap

Annotation of researchv10dc/vol2/grap/scatvec.awk, revision 1.1.1.1

1.1       root        1: awk '
                      2: # Parse all commands
                      3: $1 == "file"   { fname = $2 }
                      4: $1 == "log"    { logtext = $0 }
                      5: $1 == "symbol" { symtext = $2 }
                      6: $1 == "y"      { yfield = $2; ylabel = $3 }
                      7: $1 == "x"      { n++; xfield[n] = $2; xlabel[n] = $3 }
                      8: # Generate n graphs
                      9: END {  print ".G1"
                     10:        for (i = 1; i <= n; i++) {
                     11:                if (s != "") print "#"
                     12:                print "graph A" s
                     13:                s = " with .Frame.w at A.Frame.e +(.1,0)"
                     14:                print "frame ht " 5/n " wid " 5/n
                     15:                print "label bot \"" xlabel[i] "\""
                     16:                if (i == 1) print "label left \"" ylabel "\""
                     17:                if (logtext != "") print "coord " logtext
                     18:                print "ticks off"
                     19:                print "copy " fname " thru { " symtext\
                     20:                        " at " xfield[i] "," yfield " }"
                     21:        }
                     22:        print ".G2"
                     23: }
                     24: ' $1

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.