%!PS-Adobe
/mm {
   72 mul 25.4 div
} def
/sin15 0.258819 def /cos15 0.965926 def /tan15 0.267949 def
/sin30 0.5 def /cos30 0.866025 def /tan30 0.57735 def
/sin60 0.866025 def /cos60 0.5 def /tan60 1.73205 def
/sin75 0.965926 def /cos75 0.258819 def /tan75 3.73205 def
/a 38.43 mm def /aby2 a 0.5 mul def
/clearance 2.5 mm def
/holexspacing a 0.107 mul def
/holeyspacing holexspacing tan15 mul def
/centre2vertex aby2 cos30 div def
/centre2bend aby2 aby2 tan15 mul add def
/dy a 1.43  mul def
/dx a 1.244 mul def
/xinst 58 mm def
/yinst 15 mm def

/awl {
   newpath 1.5 0 360 arc fill
} def
/oneside {
   newpath
   aby2 -1 mul aby2 -1 mul clearance sub moveto
   0 centre2bend -1 mul clearance sub lineto
   0 centre2bend -1 mul clearance sub moveto
   aby2 aby2 -1 mul clearance sub lineto
   stroke
   holexspacing -4.0 mul holeyspacing 4.0 mul centre2bend sub awl
   holexspacing -3.0 mul holeyspacing 3.0 mul centre2bend sub awl
   holexspacing -2.0 mul holeyspacing 2.0 mul centre2bend sub awl
   holexspacing -1.0 mul holeyspacing 1.0 mul centre2bend sub awl
   holexspacing  0.0 mul holeyspacing 0.0 mul centre2bend sub awl
   holexspacing  1.0 mul holeyspacing 1.0 mul centre2bend sub awl
   holexspacing  2.0 mul holeyspacing 2.0 mul centre2bend sub awl
   holexspacing  3.0 mul holeyspacing 3.0 mul centre2bend sub awl
   holexspacing  4.0 mul holeyspacing 4.0 mul centre2bend sub awl
} def
/square {
   gsave oneside 90 rotate oneside 90 rotate oneside 90 rotate oneside grestore
} def
/column4 {
   gsave
   0 0 dy 0.5 mul sub translate square
   0 0 dy sub translate square
   0 0 dy sub translate square
   0 0 dy sub translate square
   grestore
} def
/column5 {
   gsave
   square
   0 0 dy sub translate square
   0 0 dy sub translate square
   0 0 dy sub translate square
   0 0 dy sub translate square
   grestore
} def

% print instructions ...
/Times-Roman findfont 10 scalefont setfont
xinst yinst 12 mm add moveto (Cubic juggling ball) show
xinst yinst  6 mm add moveto (approx 60mm diam, 107 grams) show
xinst yinst           moveto (see http://www.pjb.com.au/jug) show


31.5 mm 258 mm translate column5
dx 0 translate column4
dx 0 translate column5
dx 0 translate column4
showpage