[project @ 2005-03-10 14:03:28 by simonmar]

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

diff --git a/ghc/utils/hp2ps/Marks.c b/ghc/utils/hp2ps/Marks.c
index f86cff9..8d6f924 100644 (file)
--- 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);
     }
 }