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.