🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.postscript
Article #104

Re: REPORT: NeWSprint 2.0 (J)

#104
From: Akihisa Kurashima
Date: Mon, 14 Dec 1992 03:47
23 lines
1686 bytes
$@$9$_$^$;$s!#D{@5$G(J$@$9!#(J

ProcSet$@$X$N%Q%C%A$G!"(J

kura> ! newpath clippath 0
kura> ! {pop pop 3 add}{pop pop 3 add}{pop pop pop pop pop pop 7 add}{1 add}pathforall
kura> ! 4 dict begin array/ary xdf/cnt 0 def/putxy {ary cnt 4 -1 roll put ary cnt 1 add
kura> ! 3 -1 roll put cnt 2 add/cnt xdf} def/pute {ary cnt 3 -1 roll put cnt 1 add/cnt
kura> ! xdf} def
kura> ! {transform putxy {itransform moveto} pute}
kura> ! {transform putxy {itransform lineto} pute}
kura> ! {6 -2 roll transform putxy 4 -2 roll transform putxy transform putxy
kura> ! {itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto} pute}
kura> ! {{closepath} pute}pathforall newpath ary end/gc xdf pop ct 39 0 put
                                                            ~~~
$@$3$N:G8e$N9T$N(Jpop$@$,M>7W$G$7$?!#(J(patch$@A0$N(Jmark$@$r>C$9$?$a$N(Jpop$@$@$C$?$s$G(J
$@$9(J) $@$*OM$S$7$FD{@5$5$;$F$$$?$@$-$^$9!#(J

--
$@AREg(J $@82>0(J  JM1VSP  $@El5~Bg3XBg3X1!9)3X7O8&5f2JEE5$9)3X@l96(J
  E-MAIL:kura@nacsis.ac.jp  $@0BC#8&5f<<(J($@3X=Q>pJs%;%s%?!<Fb(J)
  TEL:(03)3942-6995  FAX:(03)5395-7064($@0B(J$@C#8&5f<<5$IU(J)
Technical Details
Message-ID: <KURA.92Dec14124729@lexus.nacsis.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!nacsisrd!lexus.nacsis!kura
References: <KURA.92Dec9202613@lexus.nacsis.ac.jp>

Show Full Headers
Complete Article Headers
Newsgroups: fj.lang.postscript
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!nacsisrd!lexus.nacsis!kura
From: kura@nacsis.ac.jp (Akihisa Kurashima)
Subject: Re: REPORT: NeWSprint 2.0 (J)
In-Reply-To: kura@nacsis.ac.jp's message of Wed, 9 Dec 1992 11:26:13 GMT
Message-ID: <KURA.92Dec14124729@lexus.nacsis.ac.jp>
Sender: news@lexus.nacsis.ac.jp
Nntp-Posting-Host: lexus
Organization: University of Tokyo, Japan.
References: <KURA.92Dec9202613@lexus.nacsis.ac.jp>
Distribution: fj
Date: Mon, 14 Dec 1992 03:47:29 GMT
Lines: 23