An example of a Pocketmod booklet written in PostScript

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