[project @ 2005-02-23 11:03:42 by simonmar]

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

diff --git a/ghc/utils/hp2ps/Key.c b/ghc/utils/hp2ps/Key.c
index cafb19e..8c63721 100644 (file)
--- a/ghc/utils/hp2ps/Key.c
+++ b/ghc/utils/hp2ps/Key.c
@@ -1,6 +1,6 @@
+#include "Main.h"
 #include <stdio.h>
 #include <math.h>
-#include "Main.h"
 #include "Defines.h"
 #include "Dimensions.h"
 #include "HpFile.h"
@@ -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");