home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0500 / CCE_0538.ZIP / CCE_0538.PD / FORMAT.STY < prev    next >
Text File  |  1993-05-14  |  1KB  |  29 lines
  1. % Written by Charles Karney (Karney%PPC.MFENET@NMFECC.ARPA) 1986/04/29.
  2. % Format is a style option which allows the printing of floating point
  3. % numbers in fixed format.  The argument is the counter to use.  The
  4. % optional first argument if the power of ten to multiply counter by.  The
  5. % default is 0.  An integer is produced if power is nonnegative.
  6. % Otherwise, at least one digit appears before decimal point and exactly
  7. % -power digits after decimal point.  Restriction: abs(power)<=6.
  8. % 
  9. % Example: label an axis with -1.0, -0.8, -0.6, ... 1.0
  10. %     \newcounter{axis} \setcounter{axis}{-10}
  11. %     \multiput(...)(...){11}{\format[-1]{axis}\addtocounter{axis}{2}}
  12.  
  13. \def\format{\@ifnextchar[{\format@}{\format@[0]}}
  14. \def\format@[#1]#2{\@tempcnta#1 \@format{\@nameuse{c@#2}}}
  15. \def\@format#1{\hbox{$
  16.     \ifnum #1<0 - #1-#1\fi % Here's where to insert a +
  17.     \ifnum\@tempcnta<0
  18.         \@tempcnta-\@tempcnta
  19.         \@tempcnta\ifcase\@tempcnta\or 10 \or 100 \or 1000 \or
  20.                                     10000 \or 100000 \else 1000000 \fi
  21.         \@tempcntb#1 \divide\@tempcntb \@tempcnta
  22.         \number\@tempcntb . \multiply\@tempcntb \@tempcnta
  23.         \advance\@tempcntb -#1 \advance\@tempcnta -\@tempcntb
  24.         \expandafter\@gobble\number\@tempcnta
  25.     \else
  26.         \number #1
  27.         \ifcase\@tempcnta\or 0\or 00\or 000\or
  28.                          0000\or 00000\else 000000\fi\fi$}}
  29.