On 24-5-2010 6:32, Aditya Mahajan wrote:
\def\dointkern
{\mkern-6mu\mathchoice{\mkern-3mu}{}{}{}}
For asana, change -6mu to -16mu.
\def\fakerepeatintegral#1%
{\scratchtoks\emptytoks
\dorecurse{#1}{\appendtoks \integralrepeatsymbol \dointkern \to
\scratchtoks}%
\appendtoks \intop \dointlimits \dodointlimits \to \scratchtoks
\edef\dodorepeatintegral{\the\scratchtoks}}
\def\repeatintegral#1#2#3%
{\let\dointlimits\donothing
\let\dodointlimits\intlimits
\iffontchar\textfont\zerocount#1\relax
%\edef\dodorepeatintegral{\utfchar{#1}}%
\let\dodorepeatintegral#2%
\else
\fakerepeatintegral{#3}%
\fi
\futurelet\next\dorepeatintegral}
% This is a temporary solution, as we will make a virtual glyph in lm.
\definemathcommand [iint] {\repeatintegral{"222B}\normaliint \plusone }
\definemathcommand [iiint] {\repeatintegral{"222C}\normaliiint \plustwo }
\definemathcommand [iiiint] {\repeatintegral{"222D}\normaliiiint\plusthree}
--
-----------------------------------------------------------------
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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
