X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhp2ps%2FCurves.c;h=72c8eb2d6f4dbe8bd69fd681b42e1e04e18333a4;hb=f6072cc4e89e50de957607e82bea904659014548;hp=b7de061a84cd5c19ec56ec4b8b4d72db31ea07a8;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/utils/hp2ps/Curves.c b/ghc/utils/hp2ps/Curves.c
index b7de061..72c8eb2 100644
--- 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");