parameterise

diff --git a/layout/layout b/layout/layout
index 6b502555c741a2f819a0a885cb6eef9d821bb8fa..3730337b6757714427eb59631ac146bb10a252f1 100755 (executable)
--- 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 $!;