🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.postscript
Article #381

Question about dvips.

#381
From: Ryoji WAKABAYASHI
Date: Fri, 28 Feb 1997 00:00
133 lines
7541 bytes
$B<cNS!w9R6u9b@l$H?=$7$^$9!#(B


platex2e $B$N(B dvi $B%U%!%$%k$r(B dvips $B$G(B PostScript $B$KJQ49$7$?(B
$B$b$N$,@5>o$K0u:~$G$-$J$$$GG:$s$G$$$^$9!#(B

cm $B%U%)%s%H$KAjEv$9$kItJ,$O!"@5>o$K0u:~$G$-$k$N$G$9$,!"(B
$B4A;z$NItJ,$O(B cm $B%U%)%s%H$G0u:~$5$l$?$j(B($BEvA3J8;z2=$1$G$9(B)$B!"(B
$B6uGr$K$J$C$?$j$G!"(BTimes-Roman $B$J$I$NItJ,$O(B cm $B%U%)%s%H$G(B
$B0u:~$5$l$F$7$^$$$^$9!#(B

$B;HMQ%W%j%s%?!<$O(B Apple LaserWriter II NTX-J $B$G$9$,!"(BNEC$B$N(B
PR-3000PS $B$K$9$k$H!"4A;z$b4^$a$F@5>o$K0u:~$G$-$^$9!#(B

$B;29M$^$G$K!"(B


	\documentclass[12pt,a4j]{jarticle}
	\begin{document}
	$B$"(B
	\bf{$B$"(B}
	\end{document}


$B$@$1$N(B TeX $B$NJ8=q$r(B dvips $B$G:n@.$7$?(B PostScript $B$N%U%!%$%k$r(B
$BE:IUCW$7$^$9!#0J2<$N(B PS $B$G!"$J$<!"(B PR-3000PS $B$G0u:~$G$-$F!"(B
LaserWriter II NTX-J $B$G0u:~$G$-$J$$$N$+!"65$($FD:$1$l$P9,?S$G$9!#(B
$BE:IU$7$?(B PS $B$,(B LaserWriter II NTX-J $B$G0u:~$G$-$k$h$&$G$7$?$i!"(B
$B$=$N;]!"$*CN$i$;D:$/$@$1$G$b7k9=$G$9!#(B

$B$^$?!"(Bdvips $B$N(B install $B$,$*$+$7$$$h$&$G$7$?$i!"$4;XE&D:$1$l$P(B
$B9,$$$KB8$8$^$9!#$h$m$7$/$*4j$$?=$7>e$2$^$9!#(B



===============================================================================
%!PS (but not EPSF; comments have been disabled)
%DVIPSCommandLine: dvips -f a
%DVIPSParameters: dpi=300, compressed, comments removed
%DVIPSSource:  TeX output 1997.02.27:0756
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
65781.76 div /vsize X 65781.76 div /hsize X}N /dir 0 def /dyy{/dir 0 def
}B /dyt{/dir 1 def}B /dty{/dir 2 def}B /dtt{/dir 3 def}B /p{dir 1 eq{90
rotate show -90 rotate}{dir 2 eq{-90 rotate show 90 rotate}{show}ifelse}
ifelse}B /RM{dir 1 eq{S rmoveto}{dir 3 eq{S rmoveto}{rmoveto}ifelse}
ifelse}B /RMat[1 0 0 -1 0 0]N /BDot 260 string N /rulex 0 N /ruley 0 N
/v{/ruley X /rulex X V}B /V{}B /RV statusdict begin /product where{pop
product dup length 7 ge{0 7 getinterval dup(Display)eq exch 0 4
getinterval(NeXT)eq or}{pop false}ifelse}{false}ifelse end{{gsave TR -.1
.1 TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave
TR -.1 .1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}
ifelse B /QV{gsave newpath transform round exch round exch itransform
moveto rulex 0 rlineto 0 ruley neg rlineto rulex neg 0 rlineto fill
grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 RM}B /M{S p delta
add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}
B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /w{0 RM}B /l{p -4 w}B /m{p -3 w}B
/n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{
0 S RM}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{SS restore}B end
TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
exch def dict begin Encoding{exch dup type /integertype ne{pop pop 1 sub
dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
ifelse}forall Metrics /Metrics currentdict end def[2 index currentdict
end definefont 3 -1 roll makefont /setfont load]cvx def}def
/ObliqueSlant{dup sin S cos div neg}B /SlantFont{4 index mul add}def
/ExtendFont{3 -1 roll mul exch}def /ReEncodeFont{/Encoding exch def}def
end
TeXDict begin 40258431 52099146 1000 300 300 (a.dvi)
@start /Fa 1 50 df<13801203120F12F31203B3A9EA07C0EAFFFE0F217CA018> 49
D E /Fb 256[{ } 0 48.110775 /GothicBBB-Medium-H rf /Fc
256[{ } 0 48.110775 /Ryumin-Light-H rf end
TeXDict begin

1 0 bop Fc 117 35 a<2422>p Fb 117 103 a<2422>p Fa 926
2790 a(1) p eop end
userdict /end-hook known{end-hook}if
===============================================================================



$B0J>e$G$9!#(B



--
      $B<cNS(B  $BNIFs(B 
      $BEl5~ETN)9R6u9)6H9bEy@lLg3X9;(B  $BEE;R9)3X2J(B
       ( http://www.kouku-k.ac.jp )
Technical Details
Message-ID: <WAKA.97Feb28130535@ss10.kouku-k.ac.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,4f43160ad97d6c8e,start
X-Google-Attributes: gidfa2ca,public
From: waka@ss10.kouku-k.ac.jp (Ryoji WAKABAYASHI)
Subject: Question about dvips.
Date: 1997/02/28
Message-ID: <WAKA.97Feb28130535@ss10.kouku-k.ac.jp>
X-Deja-AN: 221989823
Distribution: fj
Organization: Tokyo Metropolitan College of Aeronautical Engineering, Japan
Followup-To: fj.lang.postscript
Newsgroups: fj.lang.postscript