From: ian <ian>
Date: Sun, 13 Jun 2004 20:25:25 +0000 (+0000)
Subject: parameterise
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=176a7f8ccb8c8c42f792e793daedcc71bac4d436;p=trains.git

parameterise
---

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 $!;