From: MRL@PFC.MIT.EDU (MARK LONDON)
Newsgroups: comp.os.vms
Subject: LASER New (different) LASER symbiont. 7/7
Date: 22 Aug 92 16:23:00 GMT
Distribution: world
Organization: The Internet

-+-+-+-+-+-+-+-+ START OF PART 7 -+-+-+-+-+-+-+-+
X/161 `5B 16#10000 16#20C00 16#10600 16#20615 16#11500 `5D def
X/162 `5B 16#10015 16#20000 16#20900 16#11500 `5D def
X/163 `5B 16#10000 16#20015 16#20915 16#11500 `5D def
X/164 `5B 16#10F0F 16#2060F 16#2030C 16#20309 16#20606 16#20F06 16#11500 `5D
V def
X/165 `5B 16#10600 16#2060C 16#2090F 16#20C0F 16#20F0C 16#20F00 16#11500 `5D
V def
X/166 `5B 16#1060F 16#20603 16#20900 16#20C00 16#20F03 16#20F0F 16#11500 `5D
V def
X/167 `5B 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#11500 `5D def
X/168 `5B 16#10000 16#20C00 16#11500 `5D def
X/169 `5B 16#10300 16#20C00 16#10312 16#20C12 16#10612 16#20600 16#10900`20
X       16#20912 16#11500 `5D def
X/170 `5B 16#10015 16#20915 16#11500 `5D def
X/171 `5B 16#1030C 16#2090C 16#11500 `5D def
X/172 `5B 16#1000F 16#20C03 16#11500 `5D def
X/173 `5B 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C`20
X       16#20006 16#20303 16#10603 16#2060F 16#10009 16#20C09 16#11500 `5D de
Vf
X/174 `5B 16#10003 16#2060F 16#20C03 16#10006 16#20309 16#20906 16#20C09`20
X       16#11500 `5D def
X/175 `5B 16#1000F 16#20603 16#20C0F 16#10006 16#20309 16#20906 16#20C09`20
X       16#11500 `5D def
X/176 `5B 16#10600 16#20612 16#10003 16#20C03 16#20C03 16#2060F 16#20003`20
X       16#11500 `5D def
X/177 `5B 16#10600 16#20612 16#1000F 16#20C0F 16#20603 16#2000F 16#11500 `5D
V def
X/178 `5B 16#10000 16#20C00 16#10003 16#20C03 16#2060F 16#20003 16#11500 `5D
V def
X/179 `5B 16#1000F 16#20603 16#20C0F 16#2000F 16#10006 16#20309 16#20906`20
X       16#20C09 16#11500 `5D def
X/180 `5B 16#10003 16#10003 16#20010 16#20415 16#20B15 16#20F10 16#20F03`20
X       16#10009 16#20F09 16#11503 16#10000 16#20F00 16#11500 `5D def
X/181 `5B 16#10003 16#10003 16#20015 16#20B15 16#20F12 16#20F0F 16#20B0C`20
X       16#2000C 16#10B0C 16#20F09 16#20F05 16#20B03 16#20003 16#11503`20
X       16#10000 16#20F00 16#11500 `5D def
X/182 `5B 16#10003 16#10F05 16#20B03 16#20403 16#20005 16#20012 16#20415`20
X       16#20B15 16#20F12 16#11503 16#10000 16#20F00 16#11500 `5D def
X/183 `5B 16#10003 16#20015 16#20C15 16#20F12 16#20F05 16#20C03 16#20003`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/184 `5B 16#10003 16#10F15 16#20015 16#2000C 16#20A0C 16#2000C 16#20003`20
X       16#20F03 16#11503 16#10000 16#20F00 16#11500 `5D def
X/185 `5B 16#10003 16#10F15 16#20015 16#2000C 16#20B0C 16#2000C 16#20003`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/186 `5B 16#10003 16#10F0F 16#20F12 16#20C15 16#20315 16#20012 16#20005`20
X       16#20303 16#20C03 16#20F05 16#20F0A 16#20C0A 16#2110A 16#11503 16#100
V00 16#20F00 16#11500 `5D def
X/187 `5B 16#10003 16#20015 16#2000C 16#20F0C 16#20F15 16#20F03 16#11503`20
X       16#10000 16#20F00 16#11500 `5D def
X/188 `5B 16#10003 16#10403 16#20703 16#20715 16#20415 16#20A15 16#20715`20
X       16#20703 16#20A03 16#11503 16#10000 16#20F00 16#11500 `5D def
X/189 `5B 16#10003 16#10008 16#20005 16#20303 16#20C03 16#20F05 16#20F15`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/190 `5B 16#10003 16#20015 16#20009 16#20F15 16#2070F 16#20F03 16#11503`20
X       16#10000 16#20F00 16#11500 `5D def
X/191 `5B 16#10003 16#10015 16#20003 16#20F03 16#11503 16#10000 16#20F00`20
X       16#11500 `5D def
X/192 `5B 16#10003 16#20015 16#2070C 16#20E15 16#20E03 16#11503 16#10000`20
X       16#20F00 16#11500 `5D def
X/193 `5B 16#10003 16#20015 16#20F03 16#20F15 16#11503 16#10000 16#20F00`20
X       16#11500 `5D def
X/194 `5B 16#10003 16#10303 16#20005 16#20012 16#20315 16#20C15 16#20F12`20
X       16#20C0F 16#20F12 16#20F05 16#20C03 16#20303 16#11503 16#10000 16#20F
V00 16#11500 `5D def
X/195 `5B 16#10003 16#20015 16#20C15 16#20F12 16#20F0F 16#20C0C 16#2000C`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/196 `5B 16#10003 16#10809 16#20E04 16#20C03 16#20303 16#20005 16#20012`20
X       16#20315 16#20C15 16#20F12 16#20F05 16#20E04 16#20F03 16#11503 16#100
V00 16#20F00 16#11500 `5D def
X/197 `5B 16#10003 16#20015 16#20C15 16#20F12 16#20F0F 16#20C0C 16#2000C`20
X       16#2080C 16#20F03 16#11503 16#10000 16#20F00 16#11500 `5D def
X/198 `5B 16#10003 16#10008 16#20005 16#20303 16#20C03 16#20F05 16#20F09`20
X       16#20C0C 16#2030C 16#2000F 16#20012 16#20315 16#20C15 16#20F12 16#115
V03 16#10000 16#20F00 16#11500 `5D def
X/199 `5B 16#10003 16#10703 16#20715 16#20015 16#20E15 16#11503 16#10000`20
X       16#20F00 16#11500 `5D def
X/200 `5B 16#10003 16#10015 16#20005 16#20303 16#20C03 16#20F05 16#20F15`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/201 `5B 16#10003 16#10015 16#20703 16#20E15 16#11503 16#10000 16#20F00`20
X       16#11500 `5D def
X/202 `5B 16#10003 16#10015 16#20003 16#2070B 16#20E03 16#20E15 16#11503`20
X       16#10000 16#20F00 16#11500 `5D def
X/203 `5B 16#10003 16#20F15 16#10015 16#20F03 16#11503 16#10000 16#20F00`20
X       16#11500 `5D def
X/204 `5B 16#10003 16#10703 16#2070C 16#20015 16#2070C 16#20E15 16#2070C`20
X       16#11503 16#10000 16#20F00 16#11500 `5D def
X/205 `5B 16#10003 16#10015 16#20F15 16#2070B 16#2040B 16#20A0B 16#2070B`20
X       16#20003 16#20F03 16#11503 16#10000 16#20F00 16#11500 `5D def
X/206 `5B 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#10615 16#2060F`20
X       16#2090F 16#20915 16#11500 `5D def
X/207 `5B 16#10600 16#20609 16#2060C 16#2090F 16#20C0F 16#20F0C 16#20F09`20
X       16#20C06 16#20906 16#20609 16#10F09 16#20F00 16#11500 `5D def
X/208 `5B 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#10009 16#20F09`20
X       16#1090C 16#2090F 16#2060F 16#2060C 16#2090C 16#10903 16#20906 16#206
V06 16#20603 16#20903 16#11500 `5D def
X/209 `5B 16#10000 16#20C00 16#10600 16#20615 16#1030F 16#2090F 16#20C0C`20
X       16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 `5D de
Vf
X/210 `5B 16#10015 16#20C15 16#10615 16#20600 16#1030F 16#2090F 16#20C0C`20
X       16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 `5D de
Vf
X/211 `5B 16#1030C 16#2090C 16#10000 16#20C15 16#11500 `5D def
X/212 `5B 16#1030C 16#2090C 16#10015 16#20C00 16#11500 `5D def
X/213 `5B 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C`20
X       16#20006 16#20303 16#1000F 16#20C03 16#11500 `5D def
X`09end def
X`09/BuildChar
X`09`7B
X`09`09$workingdict begin
X`09`09/charcode exch def
X`09`09/fontdict exch def
X`09`09fontdict /CharArrays get
X`09`09  fontdict /Encoding get
X`09`09  charcode get get`09`09% get the CharArray
X`09`09gsave
X`09`090  setgray newpath
X`09`0944 0`09`09`09`09% width vector
X`09`090 0`09`09`09`09% lower left
X`09`0922 22 setcachedevice`09`09% upper right
X`09`090 0 moveto
X`09`09`7B`09`09`09`09% process CharArray
X`09`09`09dup -16 bitshift`09% extract move
X`09`09`091 index -8 bitshift 16#ff and %extract x
X`09`09`092 index 16#ff and `09% extract y
X`09`09`092 index 1 eq `7Bmoveto`7D `7Blineto`7D ifelse
X`09`09`09pop pop`09`09`09% compressed, move
X`09`09`7D forall
X`09`09stroke
X`09`09grestore
X`09`09end
X`09`7D def
Xend
X
X/ZetaFont ZetaFontDict definefont pop
X
X/table `5B
X `5B/#copies 1 (.nc .ncopies .param1)`5D`09`09% number of copies
X `5B/scalefact 1.0 (.sf .scale .param2)`5D`09`09% scale factor
X `5B/zFont true (.zfont .param3)`5D`09`09`09% zeta font
X `5B/penscale 1.0 (.penscale .param4)`5D`09`09% pen scaling
X `5B/usepens 0 (.usepens .param5)`5D`09`09% use pen colors
X`5D def
X
Xtable `7B`09`09`09`09`09`09% apply defaults
X`09/ta exch def`09`09`09`09% save array
X`09ta 0 get`09`09`09`09% key
X`09ta 1 get`09`09`09`09% default value
X`09def`09`09`09`09`09% define default value
X`7D forall
X
Xcurrentdict /parser known `7Bparser`7D if`09`09% if user inputs
X
X72. 400. div scalefact mul dup scale`09% set 400 points/inch scale factor
Xcurrentlinewidth penscale mul setlinewidth`09% re-scale line width
X/lTime usertime lTime sub def`09% save ztp load time
X%main
X/doit `7B
X`09`7Bmain`7D stopped `7B (error stack:\n) print pstack flush quit`7D if
X`7D def
Xdoit
$ CALL UNPACK ZETA.PS;1 41910390
$ v=f$verify(v)
$ EXIT

Newsgroups: comp.os.vms