mirror of
https://bjh21.me.uk/bedstead/.git
synced 2026-07-09 05:23:06 -04:00
13 lines
413 B
PostScript
13 lines
413 B
PostScript
%!
|
|
% SPDX-License-Identifier: CC0-1.0
|
|
/bpy { size 8 div mul } bind def
|
|
/bpx { bpy 1.25 mul } bind def
|
|
<< /HWResolution [ 72 72 ] /PageSize [ size size ] >> setpagedevice
|
|
3 255 div 17 255 div 9 255 div setrgbcolor 0 0 size size rectfill
|
|
51 255 div 255 255 div 136 255 div setrgbcolor
|
|
/Bedstead-Extended findfont 10 bpy scalefont setfont
|
|
size 5 bpx sub 2 div 1 bpx sub
|
|
size 7 bpy sub 2 div
|
|
moveto (B) show
|
|
showpage
|