[project @ 2004-01-09 12:36:54 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..c4f173e 100644 (file)
--- 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");