[cstex] znovu o skrtnuti vice znaku

[Tomas Davidek]

Dobry vecer vespolek,
    pred casem jsem se ptal na radu, jak skrtnout sikmou carou (od 
leveho dolniho okraje k pravemu hornimu okraji) skupinu vice znaku. 
Pekne reseni nakonec nabidl pan Zyka, kteremu timto jeste jednou dekuji. 
Lechce modifikovany funkcni zdrojovy kod vypada nasledovne:
--------------------------
\documentclass[a4paper,11pt]{article}
\usepackage[utf8]{inputenc}
\usepackage[czech]{babel}
\usepackage{ifpdf,eso-pic,afterpage}

\input pdf-pos-lt
\def\Skrt#1#2#3{%
   \bgroup
   \setbox0=\hbox{#1}%
   \raise-\dp0\hbox{\posMark{#2}}%
   \copy0
   \raise\ht0\hbox{\posMark{#3}}%
   \egroup%
   \AbsLineFromTwoMarks{#2}{#3}%
}
\begin{document}
Ahoj \Skrt{padouch}{A}{B} a take \Skrt{CP}{C}{D} naruseni.
\afterpage{\ClearShipoutPicture}
\end{document}
-----------------------------------------------

Chtel jsem to jeste vylepsit tak, ze by se znacky A, B atd delaly 
automaticky pomoci citacu, tj:
\newcounter{posA}
\setcounter{posA}{1}
\newcounter{posB}
\setcounter{posB}{2}
\def\Skrt#1{%
   \bgroup
   \setbox0=\hbox{#1}%
   \raise-\dp0\hbox{\posMark{\Alph{posA}}}%
   \copy0
   \raise\ht0\hbox{\posMark{\Alph{posB}}}%
   \egroup%
   \AbsLineFromTwoMarks{\Alph{posA}}{\Alph{posB}}%
   \stepcounter{posA}\stepcounter{posA}%
   \stepcounter{posB}\stepcounter{posB}%
}

Jenze do souboru \jobname.pos se zapise pro vsechny znacky vzdy posledni 
hodnota citacu posA, posB. Predpokladam, ze je potreba LaTeX donutit, 
aby hodnotu citace v danem miste zapsal okamzite do souboru, ale nevim 
jak na to. Nebo je problem s expanzi v makru
\def\posMark#1{%
   \pdfsavepos
   \write\posHandle{%
     \string\posDef\string{#1\string}%
     \string{\the\pdflastxpos\string}\string{\the\pdflastypos\string}}%
}
viz. prilozeny pdf-pos-lt.tex ??

Diky predem za rady,

zdravi
               Tomas Davidek


-------------- next part --------------
A non-text attachment was scrubbed...
Name: pdf-pos-lt.tex
Type: application/x-tex
Size: 2707 bytes
Desc: not available
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20100612/88ea7256/attachment-0002.tex>