Parameterize extended sample by pixel size too

This commit is contained in:
Ben Harris 2020-03-22 10:21:33 +00:00
parent dfb86e3fc5
commit 2649e35bab

View File

@ -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