Text File

Awhuxlb.183 net.ucds utcsrgv!utzoo!decvax!ucbvax!mhtsa!harpo!whuxlb!nrf Wed Mar 3 08:07:55 1982 rest of layout program The following bs program converts the .layout file generated by the 'layout' shell to graphic output. the call to plot(0.. will have to be tailored to the appropriate output device.

N. R. Fildes (whuxlb!nrf) BTL WH rm 1C232 x6493

onintr compile tok="\([^ ][^ ]*\)" tab=" " fmt=tok_tab_tok_tab_tok_tab_tok laboff=1 altoff=2 plot(0,"plot") plot(1) plot(11,0,0,8500,8500) plot(12,100,100,0,0) while ?(instr = get) match(instr,fmt) name=mstring(1) type=mstring(2) label=mstring(laboff) altlab=mstring(altoff) npins=mstring(3) loc=mstring(4) match(loc,"\([0-9][0-9]*\)-\([0-9][0-9]*\)") eval("yval="_mstring(1)) eval("xval="_mstring(2)) x[0]=xval-.5 y[0]=yval x[1]=x[0]+(npins/2) y[1]=y[0] x[2]=x[1] if (npins <= 20) PLOT(3,PINX,Y[2]+.2,PINX,Y[2]-.2) 4 PINX="xval,pinx<x[1],pinxpinx+1" FOR I="1" PLOT(3,PINX,Y[0]+.2,PINX,Y[0]-.2) FI X[3]="x[0]" ELSE PLOT(3,X[I-1],Y[I-1],X[I],Y[I]) X[4]="x[0]" Y[2]="y[1]+6" IF (NPINS NEXT Y[3]="y[2]" PLOT(4,XVAL,YVAL,.3) Y[4]="y[0]"> 2) plot(7,xval+.2,yval+(y[2]-y[1])/3) plot(2,label) plot(7,xval+.2,yval+(y[2]-y[1])*(2/3)) plot(2,altlab) plot(7,xval,yval-1.5) plot(2,format("%2.0f",yval)_"-"_format("%2.0f",xval)) fi next run

----------------------------------------------------------------- gopher://quux.org/ conversion by John Goerzen <jgoerzen@complete.org> of http://communication.ucsd.edu/A-News/

This Usenet Oldnews Archive article may be copied and distributed freely, provided:

1. There is no money collected for the text(s) of the articles.

2. The following notice remains appended to each copy:

The Usenet Oldnews Archive: Compilation Copyright (C) 1981, 1996 Bruce Jones, Henry Spencer, David Wiseman.