[project @ 2005-03-02 11:06:58 by simonmar]

[ghc-hetmet.git] / ghc / utils / hp2ps / Shade.c

diff --git a/ghc/utils/hp2ps/Shade.c b/ghc/utils/hp2ps/Shade.c
index e898027..9e3274b 100644 (file)
--- a/ghc/utils/hp2ps/Shade.c
+++ b/ghc/utils/hp2ps/Shade.c
@@ -1,7 +1,7 @@
+#include "Main.h"
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#include "Main.h"
 #include "Defines.h"
 #include "Error.h"
 #include "Utilities.h"
@@ -121,9 +121,9 @@ SetPSColour(shade)
 {
     if (cflag) {
        fprintf(psfp, "%f %f %f setrgbcolor\n",
-               extract_colour(shade,    100),
-               extract_colour(shade,  10000),
-               extract_colour(shade,1000000));
+               extract_colour(shade, (intish)100),
+               extract_colour(shade, (intish)10000),
+               extract_colour(shade, (intish)1000000));
     } else {
        fprintf(psfp, "%f setgray\n", shade);
     }