Re: web737w32.pdf で使われている技術（Re: hyperref.sty を使ってのPDFのFORM環境）

名前: 角藤
日時: 2002-09-18 23:38:21
IPアドレス: 203.165.2.*

>>11052

>これは、確か dvips で作った ps を sed で書き換えて
>いたことだと思います。

dvips ---> distiller (or gs with pdfwrite) の
場合は以下で良いようです。ただし、全部のしおりが
変わります。(前は sed で ps を書き換えていたので、
変えるところを選択できましたが...)
\bkmkface=0 : normal
\bkmaface=1 : italic
\bkmkface=2 : bold
\renewcommand{\bkmkcolor}{0 0 1} : blue, etc.

\makeatletter
\newcount\bkmkface
\def\bkmkcolor{0 0 0}
\define@key{PDF}{C}{\pdf@addtoks{#1}{C}}
\define@key{PDF}{F}{\pdf@addtoks{#1}{F}}
\def\ReadBookmarks{%
  \begingroup
    \escapechar=`\\%
    \let\escapechar\@gobble %
    \def\@@BOOKMARK [##1][##2]##3##4##5{\calc@bm@number{##5}}%
    \InputIfFileExists{\jobname.out}{}{}%
    \ifx\WriteBookmarks\relax
      \global\let\WriteBookmarks\relax
    \fi
    \def\@@BOOKMARK[##1][##2]##3##4##5{%
      \def\Hy@temp{##4}%
      \pdfmark{%
        pdfmark=/OUT,%
        C=[\bkmkcolor],%
        F=\the\bkmkface,%
        Count=##2\check@bm@number{##3},%
        Dest={##3},%
        Title=\expandafter\strip@prefix\meaning\Hy@temp
      }%
   }%
   {%
    \def\WriteBookmarks{0}%
    \InputIfFileExists{\jobname.out}{}{}%
   }%
   %{\escapechar\m@ne\InputIfFileExists{\jobname.out}{}{}}%
   \ifx\WriteBookmarks\relax\else
     \if@filesw\immediate\openout\@outlinefile=\jobname.out
      \ifHy@typexml
       \immediate\write\@outlinefile{<relaxxml>\relax}%
      \fi
     \fi
   \fi
   \endgroup
}
\makeatother
\bkmkface2
\renewcommand{\bkmkcolor}{1 0 0}
...

この書き込みへの返事：