Awhuxlb.183
net.ucds
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)
		y[2]=y[1]+3
	else
		y[2]=y[1]+6
	fi
	y[3]=y[2]
	x[3]=x[0]
	x[4]=x[0]
	y[4]=y[0]
	for i=1 4 plot(3,x[i-1],y[i-1],x[i],y[i])
	plot(4,xval,yval,.3)
	for pinx=xval,pinx<x[1],pinx=pinx+1
		plot(3,pinx,y[0]+.2,pinx,y[0]-.2)
	next
	for pinx=xval,pinx<x[1],pinx=pinx+1
		plot(3,pinx,y[2]+.2,pinx,y[2]-.2)
	next
	if (npins > 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