From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sun, 22 Mar 2020 10:15:03 +0000 (+0000)
Subject: Parameterize sample.ps by the font size
X-Git-Tag: bedstead-002.001~26
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=0e5c32bfb425130471299f5c0c9425607f3660ae;p=bedstead.git

Parameterize sample.ps by the font size

I want to change the font size and I don't want to change a lot of
numbers.
---

diff --git a/sample.ps b/sample.ps
index 0608339..05dfbc2 100644
--- a/sample.ps
+++ b/sample.ps
@@ -1,14 +1,15 @@
-<< /HWResolution [ 72 72 ] /PageSize [ 772 404 ] >> setpagedevice
-/Bedstead findfont 40 scalefont setfont
+/bpx { 4 mul } bind def
+<< /HWResolution [ 72 72 ] /PageSize [ 193 bpx 101 bpx ] >> setpagedevice
+/Bedstead findfont 10 bpx scalefont setfont
 /row { %def
     0 0 moveto
-    dup length 32 exch sub 12 mul 0 rmoveto
+    dup length 32 exch sub 3 bpx mul 0 rmoveto
     { %forall
 	glyphshow
     } forall
-    0 -40 translate
+    0 -10 bpx translate
 } def
-0 373 translate
+0 93.25 bpx translate
 [ /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z ] row
 [ /a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z ] row
 [ /a.sc/b.sc/c.sc/d.sc/e.sc/f.sc/g.sc/h.sc/i.sc/j.sc/k.sc/l.sc/m.sc