[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debian-users:02598] Re: [BUG REPORT] gs-aladdin de tategaki

初めまして、伊藤です。

僕も同じ症状にはまって、バグレポートしようと思っていた所でした。
いろいろ試してみましたが、gs-aladdin のバグではなく、
tetex-base パッケージの /usr/lib/texmf/dvips/base/tex.pro が、
dvipsj の縦書きに対応していない(?)のが、原因ではないでしょうか？

とりあえずは、Slackware 時代に自前で ptex をコンパイルしたときにできた
tex.pro を /usr/local/lib/texmf/dvips/base/tex.pro にコピーしてやると、
dvipsj がはき出す postscript を gs で表示できるようになりました。
------------------------------------------------------------------------------
*** /usr/lib/texmf/dvips/base/tex.pro	Sat Aug  5 11:56:14 1995
--- /usr/local/lib/texmf/dvips/base/tex.pro	Sat Apr 19 05:35:08 1997
***************
*** 31,47 ****
  /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 /p{show}N /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 rmoveto}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 rmoveto}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 rmoveto}B /y{3 2 roll p
! a}B /bos{/SS save N}B /eos{SS restore}B end
--- 31,50 ----
  /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
------------------------------------------------------------------------------
本当は、dvipsk-ja パッケージあたりに入れてもらえばいいんでしょうけど。

僕もそろそろ年賀状の準備をしようとしていて気が付いたのでした。
ところで、jperl のパッケージはないんですか？
宛名のデータからtex のソースを作るのに必要なのですが。
ではでは

               伊藤 敬介      早稲田大学 理工学部 情報学科
              Keisuke Ito   E-mail: g95p0159@xxxxxxxxxxxxxxx