From 176a7f8ccb8c8c42f792e793daedcc71bac4d436 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 13 Jun 2004 20:25:25 +0000
Subject: [PATCH] parameterise

---
 layout/layout | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/layout/layout b/layout/layout
index 6b50255..3730337 100755
--- a/layout/layout
+++ b/layout/layout
@@ -11,6 +11,10 @@ our $quiet=0;
 our $debug=0;
 our $output_layer= '*';
 
+our $ps_page_shift= 615;
+our $ps_page_xmul= 765.4;
+our $ps_page_ymul= 538.6;
+
 our @eopts;
 
 our $drawers= 'arsclmno';
@@ -1281,8 +1285,8 @@ sub cmd__one {
 print
     "%!\n".
     "  /lf /Courier-New findfont $lmu_marktpt scalefont def\n".
-    "  615 0 translate 90 rotate\n".
-    "  -709 $page_x mul  -566 $page_y mul  translate\n".
+    "  $ps_page_shift 0 translate 90 rotate\n".
+    "  -$ps_page_xmul $page_x mul  -$ps_page_ymul $page_y mul  translate\n".
     "  $ptscale $ptscale scale\n"
     or die $!;
 
-- 
2.30.2