Sbírka vyřešených TeXových problémů a tipů

Náhodně vybrané téma

4. Navigace v knize -- značky na okrajích listů

% 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 dot cz
Stav: OK.

Komentáře, připomínky k tomuto tématu

Přidání nového komentáře k tématu

Tyto "rozumy" vycházejí převážně z mých vlastních zkušeností, často nabytých z konference cstex@felk..., z literatury (nejčastěji TeXbook naruby od Petra Olšáka). Kde to vím, uvádím zdroj u jednotlivého příspěvku, kde je řešení obecné nebo už si nepamatuji, jak jsem k němu přišel, nepátrám po původu a ponechávám je jako anonymní.

Požadavky a náměty na další témata můžete přidávat pomocí formuláře níže:

Připomínka