Re: [NTG-context] Latex to ConTeXt

16 Nov 2012


      On 11/15/2012 9:20 AM, Procházka Lukáš Ing. - Pontex s. r. o. wrote:
...
On Thu, 15 Nov 2012 09:07:55 +0100, MANUEL GONZALEZ SUAREZ
 wrote:
...
Hello.
I wish someone would help me "translate" this code LaTeX to ConTeXt.
It is a
command to do word by word translations, so that a word appears under
another.
Here's the code:
\newcommand\dos[2]{\begin{tabular}{@{}c}{\textDidot{\footnotesize#1}}\\{\scriptsize\em#2}\end{tabular}}
A picture of the result would be nice - we probably won't know what to
reach.
...
Thanks
Something like this?
----
%
\newcommand\dos[2]{\begin{tabular}{@{}c}{\textDidot{\footnotesize#1}}\\{\scriptsize\em#2}\end{tabular}}
\define[2]\dos{%
   \bTABLE
     \setupTABLE[align=middle]
     \setupTABLE[r][1][style=\small]
     \setupTABLE[r][2][style={\small\small\em}]
     \bTR\bTD#1\eTD\eTR
     \bTR\bTD#2\eTD\eTR
   \eTABLE
}
\starttext
   Some text \dos{Abc}{Def}
\stoptext
more efficient:

\unexpanded\def\dos#1#2%
   {\dontleavehmode
    \begingroup
    \setbox0\struttedbox{#1}%
    \setbox2\struttedbox{#2}%
    \ifdim\wd0>\wd2
      \setbox2\hbox to \wd0{\hss\box2\hss}%
    \else
      \setbox0\hbox to \wd2{\hss\box0\hss}%
    \fi
    \box0
    \kern-\wd2
    \raise\lineheight\box2
    \endgroup}


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------