Vulgar (i like that more than Nice) Fraction again:

So, i need to satisy everyone,

\chardef\vulgarfractionmethod=3

\definehspace[vulgarfraction][.25em] % [.15em]
\definesymbol[vulgarfraction][/]     % [\raise.2ex\hbox{/}]

\def\vulgarfraction#1#2%
   {\dontleavehmode
    \hbox
      {\def\vulgarfraction{vulgarfraction}%
       \ifcase\vulgarfractionmethod
         #1\symbol[\vulgarfraction]#2%
       \or
         \high{\tx#1\kern-\hspaceamount\vulgarfraction}%
         \symbol[\vulgarfraction]%
         \low{\kern-\hspaceamount\vulgarfraction\tx#2}%
       \or
         \high{\tx#1}%
         \hbox to \zeropoint{\hss\symbol[\vulgarfraction]\hss}%
         \low{\tx#2}%
       \or
         \setbox0\hbox{\symbol[\vulgarfraction]}%
         \setbox2\hbox{\txx57}%
         \raise\ht0\hbox{\lower\ht2\hbox{\txx#1}}%
         \hbox to \zeropoint{\hss\symbol[\vulgarfraction]\hss}%
         \lower\dp0\hbox{\raise\dp2\hbox{\txx#2}}%
       \fi}}

\ifx\vfrac\undefined \let\vfrac\vulgarfraction \fi

%D \starttabulate
%D \HL
%D \NC \bf method \NC \bf visualization \NC\NR
%D \HL
%D \NC 0 \NC \chardef\vulgarfractionmethod0\vulgarfraction{1}{2} \NC\NR
%D \NC 1 \NC \chardef\vulgarfractionmethod1\vulgarfraction{1}{2} \NC\NR
%D \NC 2 \NC \chardef\vulgarfractionmethod2\vulgarfraction{1}{2} \NC\NR
%D \NC 3 \NC \chardef\vulgarfractionmethod3\vulgarfraction{1}{2} \NC\NR
%D \HL
%D \stoptabulate

so, it's kind of configurable

Hans
-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | [EMAIL PROTECTED]
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------

Reply via email to