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

名前: 角藤
日時: 2002-09-18 18:42:34
IPアドレス: 203.165.2.*

>>11039

昔のことで忘れていましたが、ソースをみてみました:

注釈のアイコンの色(デフォルトは黄色) は /C [r g b]
で決められるようです:

\special{pdf:ann width 7cm height 5cm
<< /Type /Annot /Subtype /Text /Open false /C [0 1 1]
/Contents (テキスト) >>}

しおりの色は次のようにしていました:

%
% colored bookmark
%
\makeatletter
\newcount\bkmkface
\def\bkmkcolor{1 0 0}
\def\BOOKMARK{\@ifnextchar[{\@BOOKMARK}{\@@BOOKMARK[1][-]}}
\def\@BOOKMARK[#1]{\@ifnextchar[{\@@BOOKMARK[#1]}{\@@BOOKMARK[#1][-]}}
\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}%
      \@pdfm@mark{%
        outline ##1 <<
          /C [\bkmkcolor]
          /F \the\bkmkface
          /Title (\expandafter\strip@prefix\meaning\Hy@temp)
          /A <<
            /S /GoTo
            /D (##3)
          >>
        >>
      }%
   }%
   {%
    \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}{0 .7 1}

この書き込みへの返事：