From 2649e35bab054baf1010ef002650e896f72e85fb Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sun, 22 Mar 2020 10:21:33 +0000
Subject: [PATCH] Parameterize extended sample by pixel size too

---
 extended.ps | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/extended.ps b/extended.ps
index 91852e0..6be0a35 100644
--- a/extended.ps
+++ b/extended.ps
@@ -1,10 +1,11 @@
-<< /HWResolution [ 72 72 ] /PageSize [ 860 120 ] >> setpagedevice
-/Bedstead findfont 40 scalefont setfont
-0 88 moveto (Bedstead) show
+/bpx { 4 mul } bind def
+<< /HWResolution [ 72 72 ] /PageSize [ 215 bpx 30 bpx ] >> setpagedevice
+/Bedstead findfont 10 bpx scalefont setfont
+0 22 bpx moveto (Bedstead) show
 /Bedstead-UltraCondensed findfont 80 scalefont setfont
-0 8 moveto (Ultra Condensed) show
+0 2 bpx moveto (Ultra Condensed) show
 /Bedstead-Extended findfont 40 scalefont setfont
-400 88 moveto (Extended) show
+100 bpx 22 bpx moveto (Extended) show
 /Bedstead-ExtraCondensed findfont 80 scalefont setfont
-400 8 moveto (Extra Condensed) show
+100 bpx 2 bpx moveto (Extra Condensed) show
 showpage
-- 
2.30.2