Newsgroups: fj.lang.postscript,fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!ran!horikawa
From: horikawa@kuis.kyoto-u.ac.jp (Kazuo Horikawa)
Subject: dvi2ps-1.7j, gs252j(long)
Message-ID: <HORIKAWA.93Aug6205229@ran.kuis.kyoto-u.ac.jp>
Followup-To: fj.lang.postscript
Originator: horikawa@ran
Sender: news@kuis.kyoto-u.ac.jp
Nntp-Posting-Host: ran.kuis.kyoto-u.ac.jp
Organization: Dept. of Info. Sci., Kyoto Univ., Japan.
Distribution: fj
Date: Fri, 6 Aug 1993 11:52:29 GMT
Lines: 1452
Xref: galaxy.trc.rwcp.or.jp fj.lang.postscript:493 fj.comp.texhax:3864
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=3864&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

 Followup-To: fj.lang.postscript $B$G$9!#(B
 $BKY@n!w5~Bg>pJs$G$9!#(B
 GhostScript $B$r(B gs252j $B$K$7$F$+$i0J2<$N$h$&$JLdBj$,H/@8$7$^$7$?!#(B
 dvi2ps-1.7j $B$+(B gs252j $B$NLdBj$@$H;W$&$N$G$9$,!"$I$&$d$C$F2r7h$7$?$i$h(B
$B$$$N$+65$($F2<$5$$!#(B
 SUN $B$H(B HP $BN>J}$G<B83$7$F$_$^$7$?$,7k2L$OJQ$o$i$J$+$C$?$h$&$G$9!#K\%"!<(B
$B%F%#%/%k$N:G8e$KLdBj$N5/$3$k(B PostScript $B%U%!%$%kA4BN$rE:IU$7$^$9!#(B

----- $BLdBj(B $B$O$8$a(B

(1) $B0J2<$N(B test.tex $B$H$$$&%U%!%$%k$r(B jlatex $B$K$+$1$F(B test.dvi $B$r$D$/$k!#(B

\documentstyle[epsf]{jarticle}
\begin{document}
$BCV(B\\
\epsfile{file=sample.ps}\\
$BL\(B
\end{document}

jlatex $B$O!"(B
This is BigTeX, C Version 2.99 - j1.7j (no format preloaded)
LaTeX version 2.09 <24 May 1989>
epsf.sty $B$O!"(B
EPSF macro package for LaTeX. version 1.2 - Released July 16, 1990
$B$G$9!#(B

(2) dvi2ps test.dvi >test.ps $B$7$FF@$i$l$k(B test.ps $B$r=PNO$9$k$H!"0J2<$N(B
$B$h$&$K$J$j$^$9!#(B

gs252j $B$X=PNO(B      $B!'(BSegmentation Fault
gs241j $B$X=PNO(B      $B!'I=<($G$-$k(B
OKI MICROLINE 801PS$B!'0u:~$G$-$k(B

(3) test.ps $B$O0J2<$N$h$&$K$J$C$F$$$^$9!#(B

----- test.ps $B$O$8$a(B
%!PS-Adobe-2.0
($BN,$7$F$$$^$9(B)
%%Page: 1 1
BP
f40 SF
311 307 p (CV)s
249 317 p 1.000 @beginspecial
($BN,$7$F$$$^$9(B)
@endspecial
249 438 p (L\\)s
f31 SF
917 2789 p (1)s
EP
%%Trailer
%%Pages: 1
END
%%EOF
----- test.ps $B$*$o$j(B

(4) $B$3$3$G!":G8e$NJ}$N(B "@endspecial" $B$H(B "249 438 p (L\\)s" $B$N4V$K(B
"f40 SF"$B$H$$$&9T$rA^F~$9$k$H!"(Bgs252j $B$G$bI=<($G$-$k$h$&$K$J$j$^$7$?!#(B
 $B=$@5$9$kA0$N(B PostScript program $B$,@5$7$/$J$$$N$G$7$g$&$+!)(B
 $B$=$l$H$b(B gs252j $B$N%P%0$J$N$G$7$g$&$+!)(B
 sample.ps $B$O(B InterViews3.0.1 $B$NF|K\8l%P!<%8%g%s$G:n@.$7$?!"%F%-%9%H$r(B
$B4^$`%U%!%$%k$G$9!#>\$7$/$O2<$N(B test.ps $BCf$G$9!#(B
----- $BLdBj$*$o$j(B

----- test.ps $BA4BN(B $B$O$8$a(B
%!PS-Adobe-2.0
%%Creator: dvi2ps
%%Title: test.dvi
%%Pages: (atend)
%%BoundingBox: 0 0 595 842
%%DocumentPaperSizes: A4
%%Orientation: Portrait
%%EndComments
%%BeginFile: /usr/local/lib/dvi2ps/tex.ps
%
systemdict /setpacking known {
/savepacking currentpacking def
true setpacking
} if
/TeXDict 200 dict def
TeXDict begin
/inch {
72 mul
} bind def
/largepaperarray [
/letter /legal /11x17
/b4 /b5 /a5 /a4 /a3
] def
/smallpaperarray [
/note dup where {
pop
}{
pop /lettersmall dup where {
pop
}{
pop /letter
} ifelse
} ifelse
/legal /11x17
/b4 /b5 /a5
/a4small dup where {
pop
}{
pop /note dup where {
pop
}{
pop /a4
} ifelse
} ifelse
/a3
] def
/setpaper {
dup where papertray and {
exch get exec
} if
} bind def
/trayarray [
/lettertray /legaltray /11x17tray
/b4tray /b5tray /a5tray /a4tray /a3tray
] def
/settray {
dup statusdict exch known {
{
statusdict begin load exec end
} stopped {
$error /newerror get {
$error /errorname get /rangecheck eq {
(Tray not found, using default tray.) print flush
/papertray false def
}{
handleerror
} ifelse
$error /newerror false put
} if
} if
}{
pop
} ifelse
} bind def
/papertray true def
/widtharray  [
8.5 inch 8.5 inch 11 inch
9.84 inch 6.93 inch
5.83 inch 8.27 inch 11.69 inch
] def
/heightarray [
11 inch 14 inch 17 inch
13.9 inch 9.84 inch
8.27 inch 11.69 inch 16.54 inch
] def
/xoffset 0 def
/yoffset 0 def
/landscape false def
/pagesetup {
dup widtharray exch get /paperwidth exch def
dup heightarray exch get /paperheight exch def
dup trayarray exch get settray
large {largepaperarray}{smallpaperarray} ifelse
exch get setpaper
} bind def
/@letter {0 pagesetup} def
/@legal {1 pagesetup} def
/@tabloid {2 pagesetup} def
/@b4 {3 pagesetup} def
/@b5 {4 pagesetup} def
/@a5 {5 pagesetup} def
/@a4 {6 pagesetup} def
/@a3 {7 pagesetup} def
/@landscape {/landscape true def} bind def
/@manualfeed {
statusdict /manualfeed known {
statusdict /manualfeed true put
statusdict /manualfeedtimeout 120 put
} if
} bind def
/@large {
/large true def
} bind def
/@small {
/large false def
} bind def
/@envelope {
/xoffset 4.28 inch def
/yoffset 1.5 inch def
@letter
} bind def
/COPIES{
/#copies exch def
} bind def
/NF {
/newname exch def
/fsize exch def
/corr exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [corr 0 0 corr neg 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps fsize array def
/BuildChar /CharBuilder load def
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
end
newname newname load definefont pop
} bind def
/ch-image {ch-data 0 get} bind def
/ch-width {ch-data 1 get} bind def
/ch-height {ch-data 2 get} bind def
/ch-xoff {ch-data 3 get} bind def
/ch-yoff {ch-data 4 get} bind def
/ch-tfmw {ch-data 5 get} bind def
/CharBuilder {
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not {
ch-tfmw 0
ch-xoff neg  ch-yoff neg ch-width ch-xoff sub ch-height ch-yoff sub
setcachedevice
ch-width ch-height true [1 0  0 1  ch-xoff ch-yoff]
{ch-image} imagemask
} if
} bind def
/LWF {
/lw-v exch def
/lw-h exch def
findfont [lw-h 0 0 lw-v 0 0] makefont def
} bind def
/LWFX {
/lw-v exch def
/lw-h exch def
/savecurfont currentfont def
findfont dup setfont
[
( ) stringwidth pop dup lw-h exch div
exch lw-v exch div 0 0 3 -1 roll
0 0
] makefont def
savecurfont setfont
} bind def
/LWJF /LWF load def
/SF /setfont load def
/s3 3 string def
/D {
/ch-code exch def
dup 0 get
length 2 lt {
pop [ <00> 1 1 0 0 8.00 ]
} if
/ch-data exch def
currentfont /BitMaps get ch-code ch-data put
currentfont /Encoding get ch-code
dup s3 cvs cvn
put
} bind def
/BP {
/SaveImage save def
xoffset yoffset translate
72 72
landscape {
exch translate
90 rotate
}{
paperheight exch sub translate
} ifelse
72 Resolution div dup neg scale
0 0 moveto
} bind def
/EP {
showpage 
SaveImage restore
} bind def
/START {
/Resolution exch def
} bind def
/END /end load def
/l /lineto load def
/p /moveto load def
/r {
0 rmoveto
} def
/s /show load def
/ru {
/dy exch neg def
/dx exch def
/x currentpoint /y exch def def
newpath x y moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath fill
x y moveto
} bind def
/@SpecialDefaults {
/hsi paperwidth inch def
/vsi paperheight inch def
/hof 0 def
/vof 0 def
/hsc 1 def
/vsc 1 def
/rotat 0 def
/CLIP false def
/BBOX false def
/EPSF false def
} bind def
/@hsize {/hsi exch def /CLIP true def} bind def
/@vsize {/vsi exch def /CLIP true def} bind def
/@hoffset {/hof exch def} bind def
/@voffset {/vof exch def} bind def
/@hscale {/hsc exch def} bind def
/@vscale {/vsc exch def} bind def
/@rotation {/rotat exch def} bind def
/@bbox {
/ury exch def
/urx exch def
/lly exch def
/llx exch def
/BBOX true def
} bind def
/@epsf {
/hsi 0 def
/vsi 0 def
/EPSF true def
} bind def
/@setclipper {
CLIP {
newpath 0 0 moveto hsi 0 rlineto 0 vsi rlineto hsi neg 0 rlineto
closepath clip
} if
} bind def
/@beginspecial {
/SpecialSave save def
currentpoint transform initgraphics itransform translate
dup scale
landscape {90 rotate} if
@SpecialDefaults
@MacSetUp
} bind def
/@setspecial {
hof vof translate
EPSF BBOX and {
hsi 0 eq {
vsi 0 eq {
hsc vsc
}{
vsi ury lly sub div dup
}ifelse
}{
vsi 0 eq {
hsi urx llx sub div dup
}{
hsi urx llx sub div vsi ury lly sub div
} ifelse
} ifelse
scale
llx neg ury neg translate
newpath
llx lly moveto
urx llx sub 0 rlineto
0 ury lly sub rlineto
llx urx sub 0 rlineto
closepath clip
newpath
}{
@setclipper hsc vsc scale rotat rotate
} ifelse
end
/letter {} def /note {} def /legal {} def /11x17
/b4 {} def /b5 {} def /a5 {} def /a4 {} def /a3 {} def
/showpage {} def /copypage {} def /erasepage {} def
} bind def
/@MacSetUp {
userdict /md known {
userdict /md get type /dicttype eq {
/MacDrwgs true def
md /txpose known {
md /txpose {pxs pys neg scale} put
} if
md /cp known {
md /cp {pop pop pm restore} put
} if
} if
} if
} bind def
/@push {
/SpecialSave save def
currentpoint translate
dup scale
newpath
} bind def
/@pop {
SpecialSave restore
} bind def
/@pn
/setlinewidth load
def
/@pt {
moveto currentpoint currentlinewidth 2 div 0 360 arc fill
} bind def
/@ln {
moveto lineto stroke
} bind def
/@ar {
matrix currentmatrix
7 -2 roll moveto
currentpoint translate
newpath
5 -2 roll scale
0 0 1 6 -2 roll arc
setmatrix
} bind def
/@wh {1 setgray} bind def
/@sh {0.75 setgray} bind def
/@bk {0 setgray} bind def
/@RGB {setrgbcolor} bind def
/@HSB {sethsbcolor} bind def
/@CMYK {setcmykcolor} bind def
end
/@endspecial {
clear
TeXDict begin
SpecialSave restore
} bind def
systemdict /setpacking known {
savepacking setpacking
} if
%%EndFile
%%EndProlog
%%BeginSetup
%%PaperSize: A4
%%Feature: *ManualFeed False
%%Feature: *Resolution 300
TeXDict begin
@large
@a4
%%BeginFile: /usr/local/lib/dvi2ps/ASCII-LW-fix.ps
% This file is included in this dvi2ps (j-version) kit by the courtesy of
% Matsushita Electric Industrial Co., Ltd. You are free to distribute this
% file as a part of this dvi2ps kit, but if you use this file as a part of
% your own program and want to re-distribute the program, you should contact
%miyabe@sy6.isl.mei.co.jp, kakiuchi@sy6.isl.mei.co.jp
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Following procedures are used to define new japanese font which has 
%%% correct metrics.
%%%Added by T.Kakiuchi (kakiuchi@sy6.isl.mei.co.JP) 89/5/19
%%%Copyright (c) Matsushita Electric Industrial Co.,Ltd. 1990
%%%
% If the packed-array facility is available, this program sets the
% array-packing mode.
systemdict /setpacking known {
    /savepacking currentpacking def
    true setpacking
} if
% Procedure to make a new font which has new metrics.

/Set-New-Metrics % [New-FNam][FNam][Metrics-array]
{/Set-Metrics exch def% [New-FNam][FNam]  Set-Metrix=[Metrix-Array]
 findfont % [New-FNam][FDic]
 /OrigCompFont exch def% [New-FNam]  OrigCompFont=[FDic]
 /NewCompFontName exch def% NewCompFontName=[New-FNam]

 % Create new composite font.
 OrigCompFont dup% [FDic][FDic]
 length dict% [FDic][dict]
 /NewCompFont exch def% [FDic]   NewCompFont=[dict]
 {1 index% [FDic][key][value][key]
   /FID ne% [FDic][key][value][T/F]
   2 index /UniqueID ne and     % [FDic][key][value][T/F]
  {NewCompFont 3 1 roll put}% if TRUE   NewCompFont <- {key,value}
  {pop pop}
  ifelse
 } forall% 

 OrigCompFont /FDepVector get% [FDepVector]
 dup length array % [FDepVector][array]
 copy% [array] (=[FDepVector])
 /NewFDepVector exch def% NewFDepVector=[arrray]
 NewCompFont /FDepVector 
 NewFDepVector put% [NewCompFont] <- {/FDepVector, NewFDepVector}
 NewCompFontName NewCompFont 
 definefont pop% Define [NewCompFont] as [NewCompFontName]

 Set-Metrics% [code,NewBaseFontName,Metrics-Array]
 {dup 0 get /Code exch def% set Code
  dup 1 get 
  /NewBaseFontName exch def     % set NewBaseFontName
  2 get /Metric-Array exch def% set Metrics-Array

  % Extract base font and its index to FDepVector.
  /Index
     OrigCompFont 
     /Encoding get 
     Code get def

  /OrigBaseFont NewFDepVector Index get def

  % Set Metric-Dictionary
  Metric-Array length dict
  /Metric-Dict exch def
  Metric-Dict begin Metric-Array {exec def} forall end

  % Create new base font.
  OrigBaseFont dup% [OrgFont][OrgFont] 
  length 2 add % [OrgFont][1+current size]
  dict% [OrgFont][dict]
  /NewBaseFont exch def% [OrgFont]    /NewBaseFont=[dict]
  {1 index                       % [OrgFont][key][value][key]
     /FID ne% [OrgFont][key][value][T/F]
     2 index /UniqueID ne and           % [OrgFont][key][value][T/F]
     {NewBaseFont% [OrgFont][key][value][NewBaseFont]
      3 1 roll% [OrgFont][NewBaseFont][key][value]
      put}% [OrgFont]
     {pop pop}
     ifelse
  } forall
  
  NewBaseFont /Kusumi-Metrics Metric-Dict put

  NewBaseFont% [OrgFont][NewBaseFont]
  /CDevProc
  {currentfont /Kusumi-Metrics get
   exch 2 copy known
    {get% w0x w0y llx lly urx ury w1x w1y vx vy new-llx
     dup% w0x w0y llx lly urx ury w1x w1y vx vy new-llx new-llx
     8 -1 roll% w0x w0y llx lly ury w1x w1y vx vy new-llx new-llx urx
     10 -1 roll% w0x w0y lly ury w1x w1y vx vy new-llx new-llx urx llx
     sub add% w0x w0y lly ury w1x w1y vx vy new-llx new-urx
     7 1 roll% w0x w0y lly new-urx ury w1x w1y vx vy new-llx
     8 1 roll% w0x w0y new-llx lly new-urx ury w1x w1y vx vy
    }
    {pop pop}
   ifelse
  } put

  %  Regist to FDepVector
  NewFDepVector Index NewBaseFontName NewBaseFont definefont put

 } forall
}
bind def


% Definition of new metrics for /Ryumin-Light-H 
/Ryumin-Metrics
[
[33/Ryumin-Light-H-33[
{/c2B 56.3327 }
{/c78 36.5515 }
{/c22 127.507 }
{/c54 52.5065 }
{/c4B 137.007 }
{/c39 35.7169 }
{/c27 105.323 }
{/c42 79.8026 }
{/c30 106.905 }
{/c6B 129.961 }
{/c50 192.016 }
{/c47 101.333 }
{/c59 104.456 }
{/c35 124.507 }
{/c3E 51.8327 }
{/c2C 81.7527 }
{/c23 102.007 }
{/c4E 132.007 }
{/c2A 111.833 }
{/c43 153.333 }
{/c55 52.5065 }
{/c4A 137.007 }
{/c26 106.333 }
{/c51 192.017 }
{/c2D 73.195 }
{/c46 101.833 }
{/c58 104.457 }
{/c6A 53.6868 }
{/c71 162.717 }
{/c68 12.747 }
{/c56 87.0065 }
{/c4D 120.007 }
{/c29 50.4616 }
{/c52 99.5065 }
{/c5B 122.007 }
{/c37 145.717 }
{/c6D 73.5612 }
{/c49 95.824 }
{/c2E 73.1949 }
{/c72 45.6719 }
{/c25 106.833 }
{/c69 33.1968 }
{/c70 147.722 }
{/c57 87.0065 }
{/c33 123.507 }
{/c53 99.5065 }
{/c28 101.333 }
{/c4C 120.007 }
{/c2F 86.4865 }
{/c48 95.6039 }
{/c5A 122.007 }
{/c6C 154.132 }
{/c36 154.717 }
{/c24 103.833 }
{/c4F 131.507 }
]]
[36/Ryumin-Light-H-36[
{/c30 154.133 }
{/c27 97.2168 }
{/c39 76.6303 }
{/c23 76.1769 }
{/c67 149.762 }
{/c43 67.7751 }
{/c6E 77.4092 }
{/c31 105.385 }
{/c63 75.9087 }
{/c26 241.525 }
{/c6A 273.126 }
{/c29 82.2642 }
{/c32 65.1122 }
{/c25 184.155 }
{/c21 83.9483 }
{/c65 90.2671 }
{/c3A 51.3751 }
{/c2F 295.128 }
]]
[37/Ryumin-Light-H-37[
{/c22 140.608 }
{/c6F 163.078 }
{/c30 99.7332 }
{/c27 57.7171 }
{/c42 59.748 }
{/c47 67.1082 }
{/c35 83.0882 }
{/c3E 72.1387 }
{/c23 138.672 }
{/c67 152.293 }
{/c4E 197.608 }
{/c2A 134.608 }
{/c43 117.717 }
{/c6E 126.697 }
{/c31 115.108 }
{/c55 168.068 }
{/c63 80.217 }
{/c4A 116.233 }
{/c26 162.618 }
{/c75 124.712 }
{/c3F 192.108 }
{/c46 123.608 }
{/c6A 239.098 }
{/c5F 258.608 }
{/c44 162.608 }
{/c56 84.1834 }
{/c29 108.717 }
{/c76 83.6869 }
{/c32 61.9606 }
{/c64 109.108 }
{/c49 202.688 }
{/c25 122.757 }
{/c72 193.323 }
{/c40 110.209 }
{/c69 178.108 }
{/c45 91.8148 }
{/c57 89.1683 }
{/c21 107.237 }
{/c65 49.507 }
{/c2F 187.108 }
{/c41 97.8211 }
{/c48 277.108 }
{/c36 51.291 }
{/c61 191.608 }
{/c24 186.108 }
{/c3D 164.236 }
]]
] def

% Definition of new metrics for /GothicBBB-Medium-H 
/Gothic-Metrics
[
[33/GothicBBB-Medium-H-33[
{/c2B 62.8327 }
{/c78 11.5265 }
{/c22 129.507 }
{/c54 58.5065 }
{/c4B 136.007 }
{/c39 14.7171 }
{/c27 104.333 }
{/c42 76.8826 }
{/c30 110.507 }
{/c6B 138.987 }
{/c50 178.072 }
{/c47 104.833 }
{/c59 107.036 }
{/c35 67.0065 }
{/c3E -13.1673 }
{/c2C 78.8429 }
{/c23 98.9866 }
{/c4E 132.507 }
{/c2A 132.288 }
{/c43 149.333 }
{/c55 58.5065 }
{/c4A 136.007 }
{/c26 102.833 }
{/c51 177.982 }
{/c2D 55.8326 }
{/c46 104.333 }
{/c58 107.037 }
{/c6A 43.6568 }
{/c71 130.717 }
{/c68 5.70184 }
{/c56 93.5065 }
{/c4D 120.007 }
{/c29 81.9568 }
{/c52 97.5065 }
{/c5B 121.007 }
{/c37 148.717 }
{/c6D 75.5065 }
{/c49 56.9765 }
{/c2E 55.8327 }
{/c72 101.717 }
{/c25 102.833 }
{/c69 20.1768 }
{/c70 109.182 }
{/c57 94.0065 }
{/c33 76.5065 }
{/c53 97.5065 }
{/c28 104.333 }
{/c4C 120.007 }
{/c2F 102.506 }
{/c48 56.0265 }
{/c5A 121.007 }
{/c6C 157.007 }
{/c36 133.717 }
{/c24 105.833 }
{/c4F 132.507 }
]]
[36/GothicBBB-Medium-H-36[
{/c30 154.608 }
{/c27 97.2418 }
{/c39 93.5732 }
{/c23 58.2168 }
{/c67 106.287 }
{/c43 51.2172 }
{/c6E 71.752 }
{/c31 128.098 }
{/c63 52.2169 }
{/c26 207.583 }
{/c6A 211.098 }
{/c29 51.7468 }
{/c32 69.0981 }
{/c25 155.272 }
{/c21 86.707 }
{/c65 84.167 }
{/c3A 70.6131 }
{/c2F 256.108 }
]]
[37/GothicBBB-Medium-H-37[
{/c22 82.6082 }
{/c6F 135.608 }
{/c30 91.1081 }
{/c27 74.2168 }
{/c42 55.1081 }
{/c47 49.6081 }
{/c35 87.1181 }
{/c3E 83.6081 }
{/c23 102.766 }
{/c67 113.717 }
{/c4E 163.334 }
{/c2A 111.608 }
{/c43 84.5454 }
{/c6E 96.2168 }
{/c31 77.6081 }
{/c55 140.608 }
{/c63 67.7169 }
{/c4A 75.6082 }
{/c26 149.118 }
{/c75 110.257 }
{/c3F 144.608 }
{/c46 96.6082 }
{/c6A 225.578 }
{/c5F 215.108 }
{/c44 117.481 }
{/c56 91.1081 }
{/c29 72.2168 }
{/c76 63.2168 }
{/c32 48.6081 }
{/c64 96.6081 }
{/c49 209.108 }
{/c25 104.207 }
{/c72 165.608 }
{/c40 76.6081 }
{/c69 129.108 }
{/c45 72.1081 }
{/c57 64.6481 }
{/c21 47.2171 }
{/c65 41.7168 }
{/c2F 135.608 }
{/c41 97.6082 }
{/c48 262.608 }
{/c36 52.1181 }
{/c61 188.976 }
{/c24 148.446 }
{/c3D 123.059 }
]]
] def
systemdict /setpacking known {
    savepacking setpacking
} if
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%EndFile
300 START
1.000 50 /f31 NF
f31 SF
[<FFF80F800700070007000700070007000700070007000700070007000700070007000700070007000700070007000700C700
  3F0007000300> 16 28 -4 0 20.755] 49 D
/min /Ryumin-Light-H Ryumin-Metrics Set-New-Metrics
/f40 /min 39.942 -39.942 LWF
%%EndSetup

%%Page: 1 1
BP
f40 SF
311 307 p (CV)s
249 317 p 1.000 @beginspecial
@epsf
182.000000 546.000000 216.000000 560.000000 @bbox
@setspecial
%%BeginDocument: sample.ps
%!PS-Adobe-2.0 EPSF-1.2
%%Creator: idraw
%%DocumentFonts: Times-Italic Ryumin-Light-EUC-H
%%Pages: 1
%%BoundingBox: 182 546 216 560
%%EndComments

%%BeginProcSet: cmpfont.ps 1 2
% composite fonts for ASCII-EUC mixed string
% Version 1.2 1/31/1990
% Author Ken'ichi HANDA (handa@etl.go.jp)
% Anyone can freely copy, modify, distribute this program.
/copyfont {% font-dic extra-entry-count  copyfont  font-dic
1 index maxlength add dict begin
{1 index /FID ne 2 index /UniqueID ne and
{def} {pop pop} ifelse
} forall
currentdict
end
} bind def

/compositefont {% ASCIIFontName EUCFontName  compositefont  font'
    findfont dup /FontType get 0 eq {
12 dict begin
    1 copyfont dup begin
/Encoding Encoding
FMapType dup 2 eq {
    pop 128 128
}{
    5 eq {
256 256
    }{
/compositefont errordict /invalidfont get exec
    } ifelse
} ifelse
getinterval def
    end
    /eucfont exch definefont
    exch
    findfont 1 copyfont dup begin
/FontMatrix FontMatrix [1 0 0 1 0 0.05] matrix concatmatrix def
    end
    /asciifont exch definefont
    exch
    /FDepVector [ 4 2 roll ] def
    /FontType 0 def
    /WMode 0 def
    /FMapType 4 def
    /FontMatrix matrix def
    /Encoding [0 1] def
    /FontBBox {0 0 0 0} def
    currentdict
end
    }{
pop findfont 0 copyfont
    } ifelse
} def

/slantfont {% FontName slant-degree  slantfont  font'
    exch findfont 1 copyfont begin
    [ 1 0 4 -1 roll 1 0 0 ] FontMatrix exch matrix concatmatrix
    /FontMatrix exch def
    currentdict
    end
} def
%%EndProcSet

%%BeginProcSet: idraw 3 0
/IdrawDict 51 dict def
IdrawDict begin

/arrowHeight 10 def
/arrowWidth 5 def

% reencodeISO was modified to deal with a composite font correctly.
% Modifier: Shigeru Chiba (chiba@is.s.u-tokyo.ac.jp)
%           Kazuhiro Kazama (kazama@expert-sun.ntt.jp)
/reencodeISOa {% CompFontName font reencodeISOb font' 
dup length dict begin
{ 1 index /FID ne { def }{ pop pop } ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end definefont
} def

/reencodeISO {% FontName reencodeISO font
    dup dup findfont dup /FontType get 0 ne {
    reencodeISOa
}{
    dup length dict begin {
    1 index dup /FID eq {
pop pop pop
    }{ /FDepVector eq {
dup length array copy
dup dup 0 get 4 index exch reencodeISOa0 exch put def
    }{
def
    } ifelse } ifelse } forall
    currentdict end definefont
} ifelse } def

/ISOLatin1Encoding [
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
/parenleft/parenright/asterisk/plus/comma/minus/period/slash
/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
/guillemotright/onequarter/onehalf/threequarters/questiondown
/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
/yacute/thorn/ydieresis
] def

/none null def
/numGraphicParameters 17 def
/stringLimit 65535 def

/Begin {
save
numGraphicParameters dict begin
} def

/End {
end
restore
} def

/SetB {
dup type /nulltype eq {
pop
false /brushRightArrow idef
false /brushLeftArrow idef
true /brushNone idef
} {
/brushDashOffset idef
/brushDashArray idef
0 ne /brushRightArrow idef
0 ne /brushLeftArrow idef
/brushWidth idef
false /brushNone idef
} ifelse
} def

/SetCFg {
/fgblue idef
/fggreen idef
/fgred idef
} def

/SetCBg {
/bgblue idef
/bggreen idef
/bgred idef
} def

/SetF {
/printSize idef
/printFont idef
} def

/SetP {
dup type /nulltype eq {
pop true /patternNone idef
} {
dup -1 eq {
/patternGrayLevel idef
/patternString idef
} {
/patternGrayLevel idef
} ifelse
false /patternNone idef
} ifelse
} def

/BSpl {
0 begin
storexyn
newpath
n 1 gt {
0 0 0 0 0 0 1 1 true subspline
n 2 gt {
0 0 0 0 1 1 2 2 false subspline
1 1 n 3 sub {
/i exch def
i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
} for
n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
} if
n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
brushNone not { istroke } if
0 0 1 1 leftarrow
n 2 sub dup n 1 sub dup rightarrow
} if
end
} dup 0 4 dict put def

/Circ {
newpath
0 360 arc
patternNone not { ifill } if
brushNone not { istroke } if
} def

/CBSpl {
0 begin
dup 2 gt {
storexyn
newpath
n 1 sub dup 0 0 1 1 2 2 true subspline
1 1 n 3 sub {
/i exch def
i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
} for
n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
patternNone not { ifill } if
brushNone not { istroke } if
} {
Poly
} ifelse
end
} dup 0 4 dict put def

/Elli {
0 begin
newpath
4 2 roll
translate
scale
0 0 1 0 360 arc
patternNone not { ifill } if
brushNone not { istroke } if
end
} dup 0 1 dict put def

/Line {
0 begin
2 storexyn
newpath
x 0 get y 0 get moveto
x 1 get y 1 get lineto
brushNone not { istroke } if
0 0 1 1 leftarrow
0 0 1 1 rightarrow
end
} dup 0 4 dict put def

/MLine {
0 begin
storexyn
newpath
n 1 gt {
x 0 get y 0 get moveto
1 1 n 1 sub {
/i exch def
x i get y i get lineto
} for
patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
brushNone not { istroke } if
0 0 1 1 leftarrow
n 2 sub dup n 1 sub dup rightarrow
} if
end
} dup 0 4 dict put def

/Poly {
3 1 roll
newpath
moveto
-1 add
{ lineto } repeat
closepath
patternNone not { ifill } if
brushNone not { istroke } if
} def

/Rect {
0 begin
/t exch def
/r exch def
/b exch def
/l exch def
newpath
l b moveto
l t lineto
r t lineto
r b lineto
closepath
patternNone not { ifill } if
brushNone not { istroke } if
end
} dup 0 4 dict put def

/Text {
ishow
} def

/idef {
dup where { pop pop pop } { exch def } ifelse
} def

/ifill {
0 begin
gsave
patternGrayLevel -1 ne {
fgred bgred fgred sub patternGrayLevel mul add
fggreen bggreen fggreen sub patternGrayLevel mul add
fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
eofill
} {
eoclip
originalCTM setmatrix
pathbbox /t exch def /r exch def /b exch def /l exch def
/w r l sub ceiling cvi def
/h t b sub ceiling cvi def
/imageByteWidth w 8 div ceiling cvi def
/imageHeight h def
bgred bggreen bgblue setrgbcolor
eofill
fgred fggreen fgblue setrgbcolor
w 0 gt h 0 gt and {
l b translate w h scale
w h true [w 0 0 h neg 0 h] { patternproc } imagemask
} if
} ifelse
grestore
end
} dup 0 8 dict put def

/istroke {
gsave
brushDashOffset -1 eq {
[] 0 setdash
1 setgray
} {
brushDashArray brushDashOffset setdash
fgred fggreen fgblue setrgbcolor
} ifelse
brushWidth setlinewidth
originalCTM setmatrix
stroke
grestore
} def

/ishow {
0 begin
gsave
fgred fggreen fgblue setrgbcolor
/fontDict printFont printSize scalefont dup setfont def
/descender fontDict begin 0 [FontBBox] 1 get FontMatrix end
transform exch pop def
/vertoffset 1 printSize sub descender sub def {
0 vertoffset moveto show
/vertoffset vertoffset printSize sub def
} forall
grestore
end
} dup 0 3 dict put def
/patternproc {
0 begin
/patternByteLength patternString length def
/patternHeight patternByteLength 8 mul sqrt cvi def
/patternWidth patternHeight def
/patternByteWidth patternWidth 8 idiv def
/imageByteMaxLength imageByteWidth imageHeight mul
stringLimit patternByteWidth sub min def
/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
patternHeight mul patternHeight max def
/imageHeight imageHeight imageMaxHeight sub store
/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
0 1 imageMaxHeight 1 sub {
/y exch def
/patternRow y patternByteWidth mul patternByteLength mod def
/patternRowString patternString patternRow patternByteWidth getinterval def
/imageRow y imageByteWidth mul def
0 patternByteWidth imageByteWidth 1 sub {
/x exch def
imageString imageRow x add patternRowString putinterval
} for
} for
imageString
end
} dup 0 12 dict put def

/min {
dup 3 2 roll dup 4 3 roll lt { exch } if pop
} def

/max {
dup 3 2 roll dup 4 3 roll gt { exch } if pop
} def

/midpoint {
0 begin
/y1 exch def
/x1 exch def
/y0 exch def
/x0 exch def
x0 x1 add 2 div
y0 y1 add 2 div
end
} dup 0 4 dict put def

/thirdpoint {
0 begin
/y1 exch def
/x1 exch def
/y0 exch def
/x0 exch def
x0 2 mul x1 add 3 div
y0 2 mul y1 add 3 div
end
} dup 0 4 dict put def

/subspline {
0 begin
/movetoNeeded exch def
y exch get /y3 exch def
x exch get /x3 exch def
y exch get /y2 exch def
x exch get /x2 exch def
y exch get /y1 exch def
x exch get /x1 exch def
y exch get /y0 exch def
x exch get /x0 exch def
x1 y1 x2 y2 thirdpoint
/p1y exch def
/p1x exch def
x2 y2 x1 y1 thirdpoint
/p2y exch def
/p2x exch def
x1 y1 x0 y0 thirdpoint
p1x p1y midpoint
/p0y exch def
/p0x exch def
x2 y2 x3 y3 thirdpoint
p2x p2y midpoint
/p3y exch def
/p3x exch def
movetoNeeded { p0x p0y moveto } if
p1x p1y p2x p2y p3x p3y curveto
end
} dup 0 17 dict put def

/storexyn {
/n exch def
/y n array def
/x n array def
n 1 sub -1 0 {
/i exch def
y i 3 2 roll put
x i 3 2 roll put
} for
} def

/SSten {
fgred fggreen fgblue setrgbcolor
dup true exch 1 0 0 -1 0 6 -1 roll matrix astore
} def

/FSten {
dup 3 -1 roll dup 4 1 roll exch
newpath
0 0 moveto
dup 0 exch lineto
exch dup 3 1 roll exch lineto
0 lineto
closepath
bgred bggreen bgblue setrgbcolor
eofill
SSten
} def

/Rast {
exch dup 3 1 roll 1 0 0 -1 0 6 -1 roll matrix astore
} def

/arrowhead {
0 begin
transform originalCTM itransform
/taily exch def
/tailx exch def
transform originalCTM itransform
/tipy exch def
/tipx exch def
/dy tipy taily sub def
/dx tipx tailx sub def
/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
gsave
originalCTM setmatrix
tipx tipy translate
angle rotate
newpath
arrowHeight neg arrowWidth 2 div moveto
0 0 lineto
arrowHeight neg arrowWidth 2 div neg lineto
patternNone not {
originalCTM setmatrix
/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
arrowWidth div def
/padtail brushWidth 2 div def
tipx tipy translate
angle rotate
padtip 0 translate
arrowHeight padtip add padtail add arrowHeight div dup scale
arrowheadpath
ifill
} if
brushNone not {
originalCTM setmatrix
tipx tipy translate
angle rotate
arrowheadpath
istroke
} if
grestore
end
} dup 0 9 dict put def

/arrowheadpath {
newpath
arrowHeight neg arrowWidth 2 div moveto
0 0 lineto
arrowHeight neg arrowWidth 2 div neg lineto
} def

/leftarrow {
0 begin
y exch get /taily exch def
x exch get /tailx exch def
y exch get /tipy exch def
x exch get /tipx exch def
brushLeftArrow { tipx tipy tailx taily arrowhead } if
end
} dup 0 4 dict put def

/rightarrow {
0 begin
y exch get /tipy exch def
x exch get /tipx exch def
y exch get /taily exch def
x exch get /tailx exch def
brushRightArrow { tipx tipy tailx taily arrowhead } if
end
} dup 0 4 dict put def

end
%%EndProcSet
%%EndProlog

%%BeginSetup
IdrawDict begin

/Ryumin-Light-EUC-H-Slant
    /Ryumin-Light-EUC-H .2 slantfont definefont pop
/Times-Ryumin-Italic
    /Times-Italic /Ryumin-Light-EUC-H-Slant compositefont definefont pop
/Times-Ryumin-Italic reencodeISO def
%%EndSetup

%I Idraw 10 Grid 8 8 

%%Page: 1 1

Begin
%I b u
%I cfg u
%I cbg u
%I f u
%I p u
%I t
[ 0.7906 0 0 0.7906 0 0 ] concat
/originalCTM matrix currentmatrix def

Begin %I Text
%I cfg Black
0 0 0 SetCFg
%I f Times-Ryumin-Italic-14
Times-Ryumin-Italic 14 SetF
%I t
[ 1 0 0 1 232 706 ] concat
%I
[
(sample)
] Text
End

End %I eop

showpage

%%Trailer

end
%%EndDocument
@endspecial
249 438 p (L\\)s
f31 SF
917 2789 p (1)s
EP
%%Trailer
%%Pages: 1
END
%%EOF
----- test.ps $BA4BN(B $B$*$o$j(B
--
            $BKY@nOBM:(B (Kazuo HORIKAWA)      $B5~ETBg3X9)3XIt>pJs9)3X65<<(B
           horikawa@kuis.kyoto-u.ac.jp     $BIYED8&(B($B7W;;5!%7%9%F%`(B)$B#M#2(B
