%!PS-Adobe /mm { 72 mul 25.4 div } def /sin6 0.104528 def /cos6 0.994522 def /tan6 0.105104 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 /sin66 0.913545 def /cos66 0.406737 def /tan66 2.24604 def /a 41.5584 mm def /aby2 a 0.5 mul def /clearance 2.5 mm def /holexspacing 4.15584 mm def /holeyspacing holexspacing tan6 mul def % /centre2vertex aby2 cos30 div def /centre2bend aby2 tan30 mul aby2 sin6 mul add def /dy a -1.1 mul def /dx a 0.85 mul def /awl { newpath 1.5 0 360 arc fill } def /oneside { newpath aby2 -1 mul aby2 tan30 mul -1 mul clearance sub moveto 0 centre2bend -1 mul clearance sub lineto % 0 centre2bend -1 mul clearance sub moveto aby2 aby2 tan30 mul -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 1.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 /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 uptriangle 0 dy translate uptriangle 0 dy translate uptriangle 0 dy translate uptriangle 0 dy translate uptriangle 0 dy translate uptriangle grestore } def /downcolumn { gsave 0 11 mm translate downtriangle 0 dy translate downtriangle 0 dy translate downtriangle 0 dy translate downtriangle 0 dy translate downtriangle 0 dy translate downtriangle grestore } def 31.5 mm 280 mm translate % should print instructions ... 0 -20 mm translate upcolumn dx 0 translate downcolumn dx 0 translate upcolumn dx 0 translate downcolumn dx 0 translate upcolumn showpage