X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhp2ps%2FMarks.c;h=8d6f924e17cc057648f977081cdba10ef34ef258;hb=8e14697c6e2cccc0a632233ffe95505765db2eef;hp=f86cff9939e6d0f89f99061e9c89dae6814a7671;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/utils/hp2ps/Marks.c b/ghc/utils/hp2ps/Marks.c
index f86cff9..8d6f924 100644
--- a/ghc/utils/hp2ps/Marks.c
+++ b/ghc/utils/hp2ps/Marks.c
@@ -1,5 +1,5 @@
-#include <stdio.h>
 #include "Main.h"
+#include <stdio.h>
 #include "Curves.h"
 #include "Dimensions.h"
 #include "HpFile.h"
@@ -16,7 +16,7 @@ Marks()
     floatish m;
 
     for (i = 0; i < nmarks; i++) {
-	m = (markmap[i] / xrange) * graphwidth;
+	m = ((markmap[i] - samplemap[0]) / xrange) * graphwidth;
 	Caret(xpage(m), ypage(0.0), 4.0);
     }
 }