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

diff --git a/ghc/utils/hp2ps/Curves.c b/ghc/utils/hp2ps/Curves.c
index b7de061..c4f173e 100644
--- a/ghc/utils/hp2ps/Curves.c
+++ b/ghc/utils/hp2ps/Curves.c
@@ -100,7 +100,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");