summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/dpicheck.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipsk/dpicheck.c')
-rw-r--r--Build/source/texk/dvipsk/dpicheck.c78
1 files changed, 0 insertions, 78 deletions
diff --git a/Build/source/texk/dvipsk/dpicheck.c b/Build/source/texk/dvipsk/dpicheck.c
deleted file mode 100644
index 19d8b6c92d8..00000000000
--- a/Build/source/texk/dvipsk/dpicheck.c
+++ /dev/null
@@ -1,78 +0,0 @@
-/*
- * dpicheck of dvips.c. Checks the dots per inch to make sure
- * it exists. The fonts which exist are DPI at the appropriate
- * magnifications.
- */
-#include "dvips.h" /* The copyright notice in that file is included too! */
-/*
- * The external declarations:
- */
-#include "protos.h"
-
-static integer existsizes[30] = { 0 , 99999999 };
-static int checkdpi;
-/*
- * This routine adds some sizes to `existsizes'.
- */
-static void
-addsiz(int rhsize)
-{
- register integer *p;
- long t, hsize;
-
- hsize = rhsize;
- for (p=existsizes; *p < hsize; p++);
- if (*p == hsize)
- return;
- do {
- t = *p;
- *p++ = hsize;
- hsize = t;
- } while (hsize);
-}
-static void
-adddpi(int hsize)
-{
- long a, b, c;
- int i;
-
- addsiz(hsize);
- addsiz((int)((hsize * 116161L + 53020L) / 106040L));
- a = hsize;
- b = 0;
- c = 1;
- for (i=0; i<9; i++) {
- b = 6 * b + (a % 5) * c;
- a = a + a / 5;
- c = c * 5;
- if (b > c) {
- b -= c;
- a++;
- }
- if (b + b >= c)
- addsiz((int)(a+1));
- else
- addsiz((int)a);
- }
-}
-/*
- * Finally, the routine that checks a size for match.
- */
-halfword
-dpicheck(halfword dpi)
-{
- integer i;
- integer margin = 1 + dpi / 500;
-
- if (! checkdpi) {
- adddpi(DPI);
- checkdpi = 1;
- }
- for (i=0; existsizes[i] < dpi; i++);
- if (existsizes[i]-dpi <= margin)
- return(existsizes[i]);
- else if (dpi-existsizes[i-1] <= margin)
- return(existsizes[i-1]);
- else
- return(dpi);
-}