Parameterize extended sample by pixel size too

diff --git a/extended.ps b/extended.ps
index 91852e07f2a72ce66d6b119c378ab718ec72e23f..6be0a356579d24ee50cb7d7a9150e56ea4690c15 100644 (file)
--- 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