%!PS-Adobe
/mm { 72 mul 25.4 div } def
/sin10 0.173648 def /cos10 0.984808 def /tan10 0.176327 def
/sin15 0.258819 def /cos15 0.965926 def /tan15 0.267949 def
/sin18 0.309017 def /cos18 0.951057 def /tan18 0.32492  def
/sin20 0.34202  def /cos20 0.939693 def /tan20 0.36397  def
/sin30 0.5      def /cos30 0.866025 def /tan30 0.57735  def
/sin36 0.587785 def /cos36 0.809017 def /tan36 0.726543 def
/sin60 0.866025 def /cos60 0.5      def /tan60 1.73205 def

/a 64.64 mm def /aby2 a 0.5 mul def /aby4 a 0.25 mul def
/clearance 2.5 mm def
/holespacing 4.1 mm def
/theta 3.93 def
/centre2bend aby2 tan30 mul -1 mul aby4 tan30 tan10 add mul sub def
/dy a -1.18 mul def
/dx a   .95 mul def
/xinst 87 mm def
/yinst 10 mm def

/awl {
   newpath 1.5 0 360 arc fill
} def
/oneside {
   gsave
   0 a cos30 mul aby2 tan30 mul sub translate
   newpath 0 0 a clearance add 240 300 arc stroke
   0 a -1 mul awl
   gsave
   theta rotate 0 a -1 mul awl theta rotate 0 a -1 mul awl
   theta rotate 0 a -1 mul awl theta rotate 0 a -1 mul awl
   theta rotate 0 a -1 mul awl theta rotate 0 a -1 mul awl
   theta rotate 0 a -1 mul awl
   grestore
   gsave
   theta -1 mul rotate 0 a -1 mul awl theta -1 mul rotate 0 a -1 mul awl
   theta -1 mul rotate 0 a -1 mul awl theta -1 mul rotate 0 a -1 mul awl
   theta -1 mul rotate 0 a -1 mul awl theta -1 mul rotate 0 a -1 mul awl
   theta -1 mul rotate 0 a -1 mul awl
   grestore
   grestore
} def
/uptriangle {
   gsave oneside 120 rotate oneside 120 rotate oneside grestore
} def
/downtriangle {
   gsave 180 rotate oneside 120 rotate oneside 120 rotate oneside grestore
} def
/upcolumn {
   gsave
   0 dy 0.2 mul translate uptriangle 0 dy translate uptriangle
   0 dy translate uptriangle
   % 0 dy translate uptriangle
   grestore
} def
/downcolumn {
   gsave 0 13 mm translate
   downtriangle 0 dy translate downtriangle
   0 dy translate downtriangle
   % 0 dy translate downtriangle
   grestore
} def

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

dx 0.7 mul 220 mm translate
upcolumn dx  0 translate downcolumn dx 0 translate upcolumn
showpage