[project @ 2005-01-20 16:15:02 by simonmar]

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

diff --git a/ghc/utils/hp2ps/Curves.c b/ghc/utils/hp2ps/Curves.c
index b7de061..72c8eb2 100644 (file)
--- a/ghc/utils/hp2ps/Curves.c
+++ b/ghc/utils/hp2ps/Curves.c
@@ -16,7 +16,8 @@ static floatish *y;
 static floatish *py;           /* previous y values */
 
 static void Curve PROTO((struct entry *));     /* forward */
-static void ShadeCurve();                      /* forward */
+static void ShadeCurve
+    PROTO((floatish *x, floatish *y, floatish *py, floatish shade));
 
 void
 Curves()
@@ -100,7 +101,7 @@ ShadeCurve(x, y, py, shade)
 
     fprintf(psfp, "gsave\n");
 
-    fprintf(psfp, "%f setgray\n", shade);
+    SetPSColour(shade);
     fprintf(psfp, "fill\n");
 
     fprintf(psfp, "grestore\n");