🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.postscript
Article #434

printer font -> file

#434
From: nagumo
Date: Wed, 12 Mar 1997 00:00
224 lines
5864 bytes
$BFn1@$H8@$$$^$9!#(J

PS$B%W%j%s%?$KFbB"$5$l$F$$$k%U%)%s%H%j%9%H$r%U%!%$%k$K=PNO$9$k$K$O(J
$B$I$&$9$l$P$$$$$N$G$7$g$&$+!)(J

$B#M#a#c$+$i#U#N#I#X$N%W%j%s%?$rMxMQ=PMh$k#C#A#P$H$$$&%=%U%H$K!"(J
$B=PNO$9$k#P#S%W%j%s%?$KFbB"$7$F$$$k%U%)%s%H%j%9%H$r5-=R$9$k(J$B%U%!%$%k$,$"(J
$B$j$^$7$?!#(J

$B%W%j%s%?$KFbB"$5$l$F$$$k%U%)%s%H$r0u:~$9$k$?$a$N(J
$B!V(Jquery.ps$B!W$H$$$&%U%!%$%k$,$"$j$^$7$?$,!"(J
$B$3$l$r!"!V(Jlp query.ps $B!W$G<B9T$9$k$H%U%)%s%H%j%9%H$,(J
$B#A#4$G#7!"#8Kg$/$i$$0u:~$5$l$^$7$?!#(J

$B$3$l$r%U%!%$%k$K5-=R$7$?$$$N$G$9$,!"(J
$B$"$^$j$K?t$,B?$$$N$G0u:~$G$O$J$/%U%!%$%k$K=PNO=PMh$J$$$+$H;W$$(J
$BEj9F$5$;$F$$$?$@$-$^$7$?!#(J

$B$I$J$?$+$r%U%!%$%k$K=PNO$9$kJ}K!$r$4B8$8$G$7$?$i65$($F2<$5$$!#(J
$B!V(Jquery.ps$B!W$H$$$&%U%!%$%k$NCfL#$O0J2<$N$h$&$K$J$C$F$^$9!#(J

%!
/D 6 dict def
D begin
/in {72 mul} def
/top 10.5 in def
/bottom .5 in def
/left 1 in def
/ypos top def
/lf 10 def
end
/Courier findfont 9 scalefont setfont
/Str 256 string def
/flush {showpage} def
/INITGRAPHICS {initgraphics} bind def
/initgraphics {currentpoint INITGRAPHICS moveto} def
/RESTORE {restore} bind def
/restore {D begin ypos end currentpoint 4 -1 roll RESTORE
        moveto D begin /ypos exch def end} def
/newline {D begin /ypos ypos lf sub dup bottom lt {pop showpage top}if 
def
        left ypos moveto end} def
D begin left ypos moveto end
/= {Str cvs show newline} def
/== {Str cvs show newline} def
/print {Str cvs (\n) search {show pop newline}if show} def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%
%!PS-Adobe-3.0 Query
%%?BeginFeatureQuery: *LanguageLevel
(==>FeatureQuery *LanguageLevel) =
/languagelevel where
{
pop languagelevel dup 2 ge{(")print 3 string cvs print("\n)}{pop
("1"\n)}ifelse
}{
("1"\n)
}ifelse
print
%%?EndFeatureQuery: Unknown
%%?BeginFeatureQuery: *PSVersion
(==>FeatureQuery *PSVersion) =
statusdict begin
("\()print version print(\) )print revision 40 string cvs print
("\n)print
end
%%?EndFeatureQuery: Unknown
%%?BeginQuery: ADOSpooler
(==>Query ADOSpooler) =
(spooler) ==
%%?EndQuery: spooler
%%?BeginFeatureQuery: *?Resolution
(==>FeatureQuery *?Resolution) =
/mstr 40 string def
initgraphics
72 0 dtransform
dup mul exch dup mul add sqrt .25 add round
cvi
0 72 dtransform
dup mul exch dup mul add sqrt .25 add round
cvi 2 copy eq
{
pop
mstr cvs print
}{
exch
mstr cvs print(x)print
mstr cvs print
}ifelse
(dpi\n)print
%%?EndFeatureQuery: Unknown
%%?BeginQuery: ADOIsBinaryOK?
(==>Query ADOIsBinaryOK?) =
(True\n)
/currentdevparams where
{
pop
[
{
currentsystemparams/CurInputDevice get
currentdevparams
}stopped
{
cleartomark 0 dict
}{
exch pop
}ifelse
dup/Filtering known
{
/Filtering get
/None ne
{pop(False\n)}if
}{
pop
}ifelse
}if
print
%%?EndQuery: Unknown
%%?BeginFeatureQuery: *FreeVM
(==>FeatureQuery *FreeVM) =
(")print vmstatus exch sub 40 string cvs print("\n)print pop
%%?EndFeatureQuery: Unknown
%%?BeginFeatureQuery: *TTRasterizer
(==>FeatureQuery *TTRasterizer) =
save
true
{
systemdict/resourcestatus known{
42/FontType resourcestatus{pop pop false(Type42)=}{true}ifelse
}{true}ifelse
}{false}ifelse
{
statusdict begin product end dup(LaserWriter)ne exch(LaserWriter 
Plus)ne and
systemdict/eexec known and
systemdict/cexec known and{
countdictstack mark
false
<
1861AEDAE118A9F95F1629C0137F8FE656811DD93DFBEA65E947502E78BA12284B8A58
EF0A3
2E272778DAA2ABEC72A84102D591E11D96BA61F57877B895A752D9BEAAC3DFD7D3220E
2BDE7
C036467464E0E836748F1DE7AB6216866F130CE7CFCEC8CE050B870C11881EE3E9D709
19>
{eexec}stopped{
cleartomark
countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse
false
}{
{cleartomark pop true}{cleartomark pop false}ifelse
}ifelse
}{false}ifelse{
false
(Accept68K)=
}{true}ifelse
}{false}ifelse
{
(None)=
}if
restore
%%?EndFeatureQuery: Unknown
%%?BeginFeatureQuery: *Product
(==>FeatureQuery *Product) =
statusdict begin
("\()print product print(\)"\n)print
end
%%?EndFeatureQuery: Unknown
%%?BeginFeatureQuery: *ColorDevice
(==>FeatureQuery *ColorDevice) =
systemdict/colorimage known
{
statusdict begin
/processcolors where
{
pop processcolors 1 eq
{
(Unknown)
}{
(True)
}ifelse
}{
(Unknown)
}ifelse
end
}{
(False)
}ifelse
print(\n)print
%%?EndFeatureQuery: Unknown
%%?BeginQuery: ADORamSize
(==>Query ADORamSize) =
/languagelevel where{pop languagelevel}{1}ifelse 2 ge{
currentsystemparams dup/RamSize known{/RamSize get}{pop -1}ifelse
}{
statusdict/ramsize known{statusdict begin ramsize end}{-1}ifelse
}ifelse dup 0 le{
pop vmstatus exch pop exch pop
gsave newpath matrix setmatrix clippath pathbbox grestore
mul 8 div cvi
statusdict/processcolors known{statusdict/processcolors get exec 
mul}if
exch pop exch pop add
cachestatus pop exch pop add exch pop add exch pop add
524288 div ceiling cvi 524288 mul
}if(")print 40 string cvs print("\n)print
%%?EndQuery: Unknown
%%?BeginFeatureQuery: *FaxSupport
(==>FeatureQuery *FaxSupport) =
(None)/resourcestatus where{pop
/HWOptions/Category resourcestatus{pop pop
/Fax/HWOptions resourcestatus{pop pop pop(Base)}if
}if
}if print(\n)print
%%?EndFeatureQuery: Unknown
%%?BeginFontListQuery
(==>FontListQuery) =
save/scratch 100 string def FontDirectory{pop =}forall systemdict/
filenameforall known{(fonts/*){(.)search {pop pop pop}{dup length 6 
sub 6 exch getinterval =}
%%?EndFontListQuery: *
flush
%%EOF
Technical Details
Message-ID: <332610EB.23A@mars.dtinet.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: fa2ca,70d7f48d277b916c,start
X-Google-Attributes: gidfa2ca,public
From: nagumo <nagumo@mars.dtinet.or.jp>
Subject: printer font -> file
Date: 1997/03/12
Message-ID: <332610EB.23A@mars.dtinet.or.jp>
X-Deja-AN: 224714196
Organization: Dream Train Internet
Newsgroups: fj.lang.postscript