[project @ 1996-07-25 20:43:49 by partain]

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

diff --git a/ghc/utils/hp2ps/Key.c b/ghc/utils/hp2ps/Key.c
index cafb19e..a8a761d 100644 (file)
--- a/ghc/utils/hp2ps/Key.c
+++ b/ghc/utils/hp2ps/Key.c
@@ -51,7 +51,7 @@ KeyEntry(centreline, name, colour)
     fprintf(psfp, "closepath\n");
 
     fprintf(psfp, "gsave\n"); 
-    fprintf(psfp, "%f setgray\n", colour);
+    SetPSColour(colour);
     fprintf(psfp, "fill\n");
     fprintf(psfp, "grestore\n");
     fprintf(psfp, "stroke\n");