home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-src.tgz / tar.out / contrib / unixtex / dvipsk / scalewidth.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-28  |  1.1 KB  |  34 lines
  1. /*
  2.  *   Code to scale dimensions.  Takes two thirty-two bit integers, multiplies
  3.  *   them, divides them by 2^20, and returns the thirty-two bit result.
  4.  *   The first integer, the width in FIXes, can lie between -2^24 and 2^24-1.
  5.  *   The second integer, the scale factor, can lie between 0 and 2^27-1.
  6.  *
  7.  *   Here, unlike in TeX, we do the arithmetic exactly.  Since the error
  8.  *   in the TeX arithmetic is parts per million, and since dvips makes no
  9.  *   layout decisions, this has no effect.  (TeX stipulates that any
  10.  *   implementation of *TeX* needs to do the arithmetic exactly as
  11.  *   specified in TeX, but drivers need not.)
  12.  *
  13.  *   Since this math is special, we put it in its own file.  It is the only
  14.  *   place in the program where such accuracy is required.
  15.  */
  16. #include "dvips.h" /* The copyright notice in that file is included too! */
  17.  
  18. integer
  19. scalewidth(a, b)
  20.         register integer a, b ;
  21. {
  22.   register integer al, bl ;
  23.  
  24.   if (a < 0)
  25.      return -scalewidth(-a, b) ;
  26.   if (b < 0)
  27.      return -scalewidth(a, -b) ;
  28.   al = a & 32767 ;
  29.   bl = b & 32767 ;
  30.   a >>= 15 ;
  31.   b >>= 15 ;
  32.   return ( ((al*bl/32768) + a*bl+al*b)/32 + a*b*1024) ;
  33. }
  34.