-/* stolen from dvips */
-static Int32 scaled_width(Int32 fix, int scale)
-{
- Int32 al, bl;
-
- if(fix < 0)
- return -scaled_width(-fix, scale);
- if(scale < 0)
- return -scaled_width(fix, -scale);
- al = fix & 32767;
- bl = scale & 32767;
- al >>= 15;
- bl >>= 15;
-
- return (((al*bl / 32768) + fix*bl + al*scale) / 32 +
- fix * scale / 1024);
-}
-