🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.postscript
Article #82

PostScript output by idraw

#82
From: Kenichi Handa
Date: Wed, 30 Sep 1992 05:55
82 lines
2629 bytes
idraw $B$NOCBj$O$3$3$G$$$$$N$+$J(B$B!)(B

$B@h$[$I(B xtex $B$r(B 2.18.5 $B$K$7$F(B gs $B$G(B PostScript $B$b8+$i$l$k$h$&(B
$B$K$J$C$?$s$G$9(B$B$,!"(Bidraw $B$N=PNO$r(B epsf.sty $B$G<h$j9~$s$G=PNO$7(B
$B$h$&$H$9$k$H!"CY$$CY$$!#(B:-( $BJ8;z$,$"$^$j$J$1$l$PNI$$$s$G$9$,!"(B
$BJ8;z$,$$$C$Q$$$"$k(B xxx.ps $B$@$H%O%s%0(B$B$7$?$N$+$J$H;W$&$[$IBT$?(B
$B$5$l$^$9!#$3$l$O(B idraw $B$N=PNO$,0l%Q!<%DKh$K(B

Begin %I Text
%I cfg Black
0 0 0 SetCFg
%I f *-helvetica-bold-r-*-140-*
/Helvetica-Bold 14 SetF
%I t
[ 1 0 0 1 115 675 ] concat
%I
[
(Root)
] HollowBg Text
End

$B$H$+$$$&$U$&$K$J$C$F$$$F(B Begin $B$H(B End $B$G(B save restore $B$d$C$A$c(B
$B$&$+$i(B Text $B$NCf$G$d$C$?(B setfont $B$,<!$N%Q!<%D$K(B$B3h$+$;$:Kh2s(B 
setfont $B$d$k$3$H$K$J$C$F$$$k$+$i$G$9!#$=$3$G:G8e$K$D$1$?$h(B$B$&(B
$B$J$$$$2C8:$J%Q%C%A$r(B xxx.ps $B$K$"$F$k$H(B gs $B$N=hM}$,$:$C$HAa$/(B
$B$J$j$^$9(B$B!#$"$^$jI{:nMQ$N$3$H$r9M$($F$$$J$$$N$G$A$g$C$H?4G[$J(B
$B$N$G!"(Bidraw $B$K>\$7(B$B$$J}!"8!>Z$7$F$$$?$@$1$J$$$G$7$g$&$+!#(B

$B!]!]!!$1$s$A$c$s!w#E#T#L(B
      handa@etl.go.jp

------------------------------------------------------------
@@ -6,6 +6,12 @@
 
 50 dict begin
 
+/FONTDICT 5 dict def
+FONTDICT begin
+/lastprintSize 0 def
+/lastprintFont 0 def
+end
+
 /arrowHeight 8 def
 /arrowWidth 4 def
 /none null def
@@ -13,13 +19,14 @@
 /stringLimit 65535 def
 
 /Begin {
-save
+%save
 numGraphicParameters dict begin
 } def
 
 /End {
+originalCTM setmatrix
 end
-restore
+%restore
 } def
 
 /SetB {
@@ -243,10 +250,18 @@
 
 /ishow {
 0 begin
+FONTDICT begin
+printSize lastprintSize eq printFont lastprintFont eq and {
+end } {
+/lastprintSize printSize def
+/lastprintFont printFont def
+end
+/fontDict printFont findfont printSize scalefont dup setfont def
+} ifelse
 gsave
 fgred fggreen fgblue setrgbcolor
 WhiteBg eq /drawBg exch def
-/fontDict printFont findfont printSize scalefont dup setfont def
+%/fontDict printFont findfont printSize scalefont dup setfont def
 /descender fontDict /FontBBox known {
 fontDict begin 0 [FontBBox] 1 get FontMatrix end
 transform exch pop } { 0 } ifelse def
Technical Details
Message-ID: <HANDA.92Sep30145533@etlken.etl.go.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!etl.go.jp!handa

Show Full Headers
Complete Article Headers
Newsgroups: fj.lang.postscript
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!etl.go.jp!handa
From: handa@etlken.etl.go.jp (Kenichi Handa)
Subject: PostScript output by idraw
Message-ID: <HANDA.92Sep30145533@etlken.etl.go.jp>
Sender: news@etl.go.jp (News System)
Nntp-Posting-Host: etlken
Organization: Electrotechnical Lab., Japan.
Distribution: fj
Date: Wed, 30 Sep 1992 05:55:33 GMT
Lines: 82