oznaceni kapitoly na okraji stranky

[Jirka Kosek]

"Tom Z. Meinlschmidt" wrote:

> resim jeste jednu vec - rad bych udelal 'rychlonavigaci' v knize pres
> bila cisla kapitol v cernem poli na vnejsi okraji prave stranky (v dane kapitole) tak,
> aby se se vzrustajicim cislem postupne posouval dolu.
> 
> Mozna na to uz neco existuje, zel jsem nic nenasel.
> 
> Nevedel byste prosim nekdo, jak to vyresit? posun by byl konstatni, nevyzaduji
> posun o prumer na pocet kapitol/vysku strany.

Kdysi jsem to dělal pro plain, třeba to půjde použít i v LaTeXu:

% Packy po stranách
\newdimen\speedtipht
\speedtipht=12mm
\newdimen\speedtipoffset
\speedtipoffset=-\speedtipht
\newif\ifspeedtip \speedtipfalse

\def\speedtip#1{\speedtiptrue
        \advance\speedtipoffset by\speedtipht
        \ifnum\speedtipoffset>\vsize \speedtipoffset=0pt\fi
        \gdef\speedtiptext{\hbox{\chapfont#1}}}

\def\speedtipright#1{%
       
\pspicture[](-0.5\speedtipht,-0.5\speedtipht)(30mm,0.5\speedtipht)
          \psset{linecolor=lightgray}
          \qdisk(0,0){0.5\speedtipht}
          \psframe[linewidth=0pt,fillstyle=solid,fillcolor=lightgray]
                (0,-0.5\speedtipht)(30mm,0.5\speedtipht)
          \psset{linecolor=black}
          \rput{0}(0,0){#1}
        \endpspicture
        }

\def\speedtipleft#1{%
       
\pspicture[](-30mm,-0.5\speedtipht)(0.5\speedtipht,0.5\speedtipht)
          \psset{linecolor=lightgray}
          \qdisk(0,0){0.5\speedtipht}
          \psframe[linewidth=0pt,fillstyle=solid,fillcolor=lightgray]
                (-30mm,-0.5\speedtipht)(0mm,0.5\speedtipht)
          \psset{linecolor=black}
          \rput{0}(0,0){#1}
        \endpspicture
        }

\def\plainoutput{\shipout\vbox{\makeheadline
  \ifspeedtip
     \vbox to0pt{%
     \ifodd\pageno
        \vskip\speedtipoffset
        \hbox
to\hsize{\hfil\rlap{\hskip1mm\speedtipright{\speedtiptext}}}
     \else
        \vskip\speedtipoffset
        \hbox{\llap{\speedtipleft{\speedtiptext}\hskip1mm}}
     \fi
     \vss}
  \fi
  \pagebody\makefootline}%
  \advancepageno
  \ifnum\outputpenalty>-20000 \else\dosupereject\fi}

Na začátku každé kapitoly pak zavoláte \speedtip{číslo kapitoly}.

-- 
-----------------------------------------------------------------
  Jirka Kosek  	                     
  e-mail: jirka at kosek.cz
  http://www.kosek.cz