Skip to content

Instantly share code, notes, and snippets.

@madphilosopher

madphilosopher/pocketmod-example.ps

Created December 23, 2021 18:50
Show Gist options
  • Save madphilosopher/c71dac84a096533d335bfa56612e0516 to your computer and use it in GitHub Desktop.
Save madphilosopher/c71dac84a096533d335bfa56612e0516 to your computer and use it in GitHub Desktop.
Download ZIP
An example of a Pocketmod booklet written in PostScript
Raw
pocketmod-example.ps
%!PS-Adobe-3.0
%%BoundingBox: 36 36 756 576
%%Title: DPG PocketMod
%%Reference: See https://pocketmod.com/howto for folding instructions
%%CreationDate: 2020-02-02
%%DocumentMedia: letter 612 792 0 ( ) ( )
%%Orientation: Landscape
%%Pages: 1
%%EndComments
%%BeginSetup
<< /PageSize [ 612 792 ] >> setpagedevice
612 0 translate 90 rotate
%%EndSetup
1 dict begin
%%Page: 1 1
/pgsave save def
% outer square
%1 1 moveto
%790 1 lineto
%790 610 lineto
%1 610 lineto
%closepath
%stroke
% x y moveto x y lineto stroke
% title
/Times findfont 12 scalefont setfont
198 65 add 306 20 sub moveto (2021 Dec 5) show
% calendar on back page
/Courier-Bold findfont 9 scalefont setfont
0 35 add 306 20 sub 0 sub moveto ( December 2021) show
0 35 add 306 20 sub 10 sub moveto (Su Mo Tu We Th Fr Sa) show
0 35 add 306 20 sub 20 sub moveto ( 1 2 3 4) show
0 35 add 306 20 sub 30 sub moveto ( 5 6 7 8 9 10 11) show
0 35 add 306 20 sub 40 sub moveto (12 13 14 15 16 17 18) show
0 35 add 306 20 sub 50 sub moveto (19 20 21 22 23 24 25) show
0 35 add 306 20 sub 60 sub moveto (26 27 28 29 30 31) show
0 35 add 306 20 sub 70 sub moveto () show
0 35 add 306 90 sub 20 sub 0 sub moveto ( January 2022) show
0 35 add 306 90 sub 20 sub 10 sub moveto (Su Mo Tu We Th Fr Sa) show
0 35 add 306 90 sub 20 sub 20 sub moveto ( 1) show
0 35 add 306 90 sub 20 sub 30 sub moveto ( 2 3 4 5 6 7 8) show
0 35 add 306 90 sub 20 sub 40 sub moveto ( 9 10 11 12 13 14 15) show
0 35 add 306 90 sub 20 sub 50 sub moveto (16 17 18 19 20 21 22) show
0 35 add 306 90 sub 20 sub 60 sub moveto (23 24 25 26 27 28 29) show
0 35 add 306 90 sub 20 sub 70 sub moveto (30 31) show
0 35 add 306 90 sub 20 sub 80 sub moveto () show
0 35 add 306 180 sub 20 sub 0 sub moveto ( February 2022) show
0 35 add 306 180 sub 20 sub 10 sub moveto (Su Mo Tu We Th Fr Sa) show
0 35 add 306 180 sub 20 sub 20 sub moveto ( 1 2 3 4 5) show
0 35 add 306 180 sub 20 sub 30 sub moveto ( 6 7 8 9 10 11 12) show
0 35 add 306 180 sub 20 sub 40 sub moveto (13 14 15 16 17 18 19) show
0 35 add 306 180 sub 20 sub 50 sub moveto (20 21 22 23 24 25 26) show
0 35 add 306 180 sub 20 sub 60 sub moveto (27 28) show
0 35 add 306 180 sub 20 sub 70 sub moveto () show
% page numbers
/Times findfont 8 scalefont setfont
594 15 sub 10 moveto (M) show
792 20 sub 10 moveto (T) show
% upside down page numbers
gsave
792 612 translate
180 rotate
198 15 sub 15 moveto (W) show
396 15 sub 15 moveto (R) show
594 15 sub 15 moveto (F) show
792 20 sub 15 moveto (S) show
grestore
%% three vertical dividers
%0.5 setgray
%1 setlinewidth
%198 0 moveto 198 612 lineto stroke
%396 0 moveto 396 612 lineto stroke
%594 0 moveto 594 612 lineto stroke
%% horizontal divider
%% grey line to cut
%gsave
%0.8 setgray
%198 306 moveto 594 306 lineto stroke
%grestore
%% black lines to fold
%0 306 moveto 198 306 lineto stroke
%594 306 moveto 792 306 lineto stroke
% page 1 divider for priority
0 setgray
396 33 add 0 moveto 396 33 add 612 2 div lineto stroke
% page 2 divider for priority
594 33 add 0 moveto 594 33 add 612 2 div lineto stroke
% page 3 divider for priority
792 42 sub 306 moveto 792 42 sub 612 lineto stroke
% page 4 divider for priority
594 33 sub 306 moveto 594 33 sub 612 lineto stroke
% page 5 divider for priority
396 33 sub 306 moveto 396 33 sub 612 lineto stroke
% page 6 divider for priority
% 198 33 sub 306 moveto 198 33 sub 612 lineto stroke
pgsave restore
showpage
%%BeginTrailer
end
%%EOF
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment