From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  1-SEP-1989 21:10
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Apple LaserWriter Symbiont (12 of 12)

Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Fri,  1 SEP 89 12:47:41 PDT
Received: from ecsgate.uncecs.edu by KL.SRI.COM with TCP; Fri, 1 Sep 89 12:29:21 PDT
Received: by ecsgate.uncecs.edu (5.59/UNCECS/8-30-88)
	id AA25203; Fri, 1 Sep 89 15:29:24 EDT
Message-Id: <8909011929.AA25203@ecsgate.uncecs.edu>
Date: Fri, 1 Sep 89 14:43 EDT
From: "Bill Bailey, 'The VAXman'" <BAILEYB@ATSUVAX1.BITNET>
Subject: Apple LaserWriter Symbiont (12 of 12)
To: INFO-VAX@KL.SRI.COM
X-Vms-To: INFOVAX

-+-+-+-+-+-+-+-+ START OF PART 12 -+-+-+-+-+-+-+-+
X/209 `091 16#10000 16#20C00 16#10600 16#20615 16#1030F 16#2090F 16#20C0C`032
X       16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 `093 d
Vef
X/210 `091 16#10015 16#20C15 16#10615 16#20600 16#1030F 16#2090F 16#20C0C`032
X       16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 `093 d
Vef
X/211 `091 16#1030C 16#2090C 16#10000 16#20C15 16#11500 `093 def
X/212 `091 16#1030C 16#2090C 16#10015 16#20C00 16#11500 `093 def
X/213 `091 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C`032
X       16#20006 16#20303 16#1000F 16#20C03 16#11500 `093 def
X`009end def
X`009/BuildChar
X`009`123
X`009`009$workingdict begin
X`009`009/charcode exch def
X`009`009/fontdict exch def
X`009`009fontdict /CharArrays get
X`009`009  fontdict /Encoding get
X`009`009  charcode get get`009`009% get the CharArray
X`009`009gsave
X`009`0090  setgray newpath
X`009`00944 0`009`009`009`009% width vector
X`009`0090 0`009`009`009`009% lower left
X`009`00922 22 setcachedevice`009`009% upper right
X`009`0090 0 moveto
X`009`009`123`009`009`009`009% process CharArray
X`009`009`009dup -16 bitshift`009% extract move
X`009`009`0091 index -8 bitshift 16#ff and %extract x
X`009`009`0092 index 16#ff and `009% extract y
X`009`009`0092 index 1 eq `123moveto`125 `123lineto`125 ifelse
X`009`009`009pop pop`009`009`009% compressed, move
X`009`009`125 forall
X`009`009stroke
X`009`009grestore
X`009`009end
X`009`125 def
Xend
X
X/ZetaFont ZetaFontDict definefont pop
X
X/table `091
X `091/#copies 1 (.nc .ncopies .param1)`093`009`009% number of copies
X `091/scalefact 1.0 (.sf .scale .param2)`093`009`009% scale factor
X `091/zFont true (.zfont .param3)`093`009`009`009% zeta font
X `091/penscale 1.0 (.penscale .param4)`093`009`009% pen scaling
X `091/usepens 0 (.usepens .param5)`093`009`009% use pen colors
X`093 def
X
Xtable `123`009`009`009`009`009`009% apply defaults
X`009/ta exch def`009`009`009`009% save array
X`009ta 0 get`009`009`009`009% key
X`009ta 1 get`009`009`009`009% default value
X`009def`009`009`009`009`009% define default value
X`125 forall
X
Xcurrentdict /parser known `123parser`125 if`009`009% if user inputs
X
X72. 400. div scalefact mul dup scale`009% set 400 points/inch scale factor
Xcurrentlinewidth penscale mul setlinewidth`009% re-scale line width
X/lTime usertime lTime sub def`009% save ztp load time
X%main
X/doit `123
X`009`123main`125 stopped `123 (error stack:\n) print pstack flush quit`125 i
Vf
X`125 def
Xdoit
$ CALL UNPACK [.LASER_DIST]ZETA.PS;1 41910390
$ v=f$verify(v)
$ EXIT

