%! /abs { dup 0 lt { neg } { drop } ifelse } def 0 setlinewidth /pad { 2 div /hwidth exch def 2 div /hheight exch def hheight hwidth add 8 div /r exch def newpath 0 hwidth sub 0 moveto 0 hwidth sub hheight 0 hheight r arct 0 hheight lineto hwidth hheight hwidth 0 r arct hwidth 0 lineto hwidth 0 hheight sub dup 0 exch r arct 0 0 hheight sub lineto 0 hwidth sub 0 hheight sub 0 hwidth sub 0 r arct 0 hwidth sub 0 lineto eofill stroke } def /drawpin { gsave /pinwidth exch def /y exch def /x exch def pinwidth setlinewidth newpath x y 1.6875 pinwidth mul 0 360 arc stroke 1.0 1.0 1.0 setrgbcolor newpath x y 1.0625 pinwidth mul 0 360 arc fill stroke grestore } def /screwholes { gsave 1.0 0.0 0.0 setrgbcolor 12 375 7 drawpin 12 426 7 drawpin 12 57 5 drawpin stroke grestore } def /fixedtoslot0 { gsave 1.0 0.0 0.0 setrgbcolor -77 167 2.0 drawpin -152 167 2.0 drawpin -198 167 2.0 drawpin -278 167 2.0 drawpin -324 167 2.0 drawpin -426 167 2.0 drawpin -42 1 2.5 drawpin stroke grestore gsave 1.0 0.0 0.0 setrgbcolor -67 0 translate 0 1 47 { pop 0 -10.5 1.8 drawpin 25 -21 1.8 drawpin 0 -21 translate } for 25 -21 2.5 drawpin stroke grestore } def /fixedtoslotn { gsave 1.0 0.0 0.0 setrgbcolor -51 0 2.5 drawpin stroke grestore gsave 1.0 0.0 0.0 setrgbcolor -25 -11 translate 0 1 47 { pop 0 0 1.8 drawpin -25 -10 1.8 drawpin 0 -21 translate } for -25 -9 2.5 drawpin stroke 1.0 0.0 0.0 setrgbcolor grestore } def /s100 { gsave 1.0 0.0 0.0 setrgbcolor screwholes 0 1 49 { pop 0 0 2.0 drawpin 25 0 2.0 drawpin 0 -21 translate } for 25 21 translate 180 rotate screwholes stroke grestore } def /slots { /art exch def /numslots exch def gsave 100 345 translate art fixedtoslotn 0 1 numslots 1 sub { pop s100 125.5 0 translate } for art fixedtoslot0 grestore } def /evenroute { /art exch def /numslots exch def gsave 0 0 moveto 0 1 numslots 2 sub { pop 18.33 0.00 rlineto 1.11 -3.00 rlineto 31.67 0.00 rlineto 17.78 9.50 rlineto 48.00 0.00 rlineto 8.61 -6.50 rlineto } for 0.0 0.0 0.0 setrgbcolor 18.34 0.00 rlineto 0.55 -2.22 rlineto 12.22 3.89 rlineto 0.00 3.33 rlineto 3.34 5.12 rlineto 15.55 0.00 rlineto 2.22 -4.56 rlineto 0.00 -4.44 rlineto -1.66 -2.34 rlineto -18.34 0.00 rlineto -13.33 -4.44 rlineto -0.00 -4.56 rlineto -5.00 -0.55 rlineto -9.00 0.00 rlineto -5.00 2.33 rlineto 0.00 4.50 rlineto 0.0 0.0 0.0 setrgbcolor 0 1 numslots 2 sub { pop -9.78 7.00 rlineto -44.66 0.00 rlineto -19.45 -10.50 rlineto -31.11 0.00 rlineto -3.33 -3.50 rlineto -13.89 0.00 rlineto -3.89 3.00 rlineto 0.56 4.00 rlineto } for 0.0 0.0 0.0 setrgbcolor -9.11 7.12 rlineto -20.78 0.00 rlineto -2.22 -3.34 rlineto -16.67 0.00 rlineto -3.33 4.56 rlineto 1.67 6.11 rlineto 19.00 0.00 rlineto 1.66 -4.00 rlineto 21.00 0.00 rlineto art 0 eq { 0 0 lineto } { eofill } ifelse stroke grestore } def /oddroute { /art exch def /numslots exch def gsave 0 0 moveto 0 1 numslots 2 sub { pop 1.67 3.89 rlineto 13.33 0.00 rlineto 5.11 -3.89 rlineto 0.00 -4.56 rlineto 8.11 -5.50 rlineto 46.78 0.00 rlineto 19.44 10.06 rlineto 31.06 0.00 rlineto } for 0.0 0.0 0.0 setrgbcolor 1.67 3.89 rlineto 2.22 0.00 rlineto 11.11 0.00 rlineto 6.11 -3.89 rlineto 0.56 -6.00 rlineto 7.22 -4.56 rlineto 16.67 0.00 rlineto 11.11 10.00 rlineto 27.22 0.00 rlineto 2.22 4.45 rlineto 16.11 0.00 rlineto 2.78 -2.78 rlineto 0.00 -5.55 rlineto -2.78 -3.34 rlineto -15.00 0.00 rlineto -2.78 3.89 rlineto -25.55 0.00 rlineto -11.11 -10.55 rlineto -20.00 0.00 rlineto -10.45 7.00 rlineto 0.0 0.0 0.0 setrgbcolor 0 1 numslots 2 sub { pop -15.11 0.00 rlineto -2.77 3.50 rlineto -29.50 0.00 rlineto -18.78 -10.00 rlineto -50.11 0.00 rlineto -9.33 6.50 rlineto } for 0.0 0.0 0.0 setrgbcolor -16.11 0.00 rlineto -1.67 3.78 rlineto -30.55 0.00 rlineto -1.67 -3.78 rlineto -15.55 0.00 rlineto -1.67 3.34 rlineto 0.00 4.44 rlineto 1.11 2.89 rlineto 17.22 0.00 rlineto 1.67 -3.33 rlineto art 0 eq { 0 0 lineto } { eofill } ifelse stroke grestore } def /evenroutes { /art exch def /numslots exch def gsave 115.44 329.54 translate 0 1 47 { pop numslots art evenroute 0 -21 translate } for grestore } def /oddroutes { /art exch def /numslots exch def gsave 89.44 325.88 translate 0 1 47 { pop numslots art oddroute 0 -21 translate } for grestore } def /powerthingies { 0.00 135.55 rlineto -2.77 5.56 rlineto 0.55 5.56 rlineto 3.34 4.44 rlineto 6.66 0.56 rlineto 3.89 -2.23 rlineto 2.22 -5.00 rlineto 0.00 -3.89 rlineto -1.11 -4.44 rlineto -1.66 -1.67 rlineto 0.00 -134.39 rlineto } def /fiftypinside { /art exch def /numslots exch def gsave 518.88 125.5 numslots 4 sub mul add 370.33 moveto 0.00 135.55 rlineto -2.77 5.56 rlineto 0.55 5.56 rlineto 3.34 4.44 rlineto 6.66 0.56 rlineto 3.89 -2.23 rlineto 2.22 -5.00 rlineto 0.00 -3.89 rlineto -1.11 -4.44 rlineto -1.66 -1.67 rlineto 0.00 -128.89 rlineto 22.22 -18.88 rlineto 6.66 2.22 rlineto 5.56 -1.11 rlineto 4.44 -3.33 rlineto 1.67 -3.34 rlineto 0.00 -3.88 rlineto -0.55 -3.34 rlineto -0.56 -2.78 rlineto -0.56 -3.33 rlineto -2.22 -1.67 rlineto -16.11 0.56 rlineto -3.33 3.89 rlineto 0.00 4.44 rlineto -37.22 0.00 rlineto 0.00 -3.89 rlineto -1.12 -3.11 rlineto numslots 1 sub -125.5 mul -41.83 add 0.00 rlineto -2.23 4.45 rlineto -26.66 0.00 rlineto -1.11 -4.45 rlineto -2.78 -3.33 rlineto -19.45 0.00 rlineto -2.77 6.67 rlineto 0.00 7.22 rlineto 3.33 5.00 rlineto 6.11 3.33 rlineto 4.45 -0.55 rlineto 21.66 12.77 rlineto 99.00 125.5 numslots 4 sub mul add 0.00 rlineto powerthingies 90.55 0.00 rlineto powerthingies 35.55 0.00 rlineto powerthingies 68.27 0.00 rlineto powerthingies 34.94 0.00 rlineto powerthingies art 0 eq { 518.88 125.5 numslots 4 sub mul add 370.33 lineto } { eofill } ifelse stroke grestore } def /onepinside { /art exch def /numslots exch def gsave 518.88 125.5 numslots 4 sub mul add -710.50 moveto 11.12 -5.55 rlineto 22.22 18.88 rlineto 6.66 -2.22 rlineto 5.56 1.11 rlineto 4.44 3.33 rlineto 1.67 3.34 rlineto 0.00 3.88 rlineto -0.55 3.34 rlineto -0.56 2.78 rlineto -0.56 3.33 rlineto -2.22 1.67 rlineto -16.11 -0.56 rlineto -3.33 -3.89 rlineto 0.00 -4.44 rlineto -37.22 0.00 rlineto 0.00 3.89 rlineto -1.12 3.11 rlineto numslots 1 sub -125.5 mul -41.83 add 0.00 rlineto -2.23 -4.45 rlineto -26.66 0.00 rlineto -1.11 4.45 rlineto -2.78 3.33 rlineto -19.45 0.00 rlineto -2.77 -6.67 rlineto 0.00 -7.22 rlineto 3.33 -5.00 rlineto 6.11 -3.33 rlineto 4.45 0.55 rlineto 21.66 -12.77 rlineto art 0 eq { 518.88 125.5 numslots 4 sub mul add -710.50 lineto } { eofill } ifelse stroke grestore } def 72 3.5 mul 72 0.0 mul translate 0.428571429 0.428571429 scale 90 rotate /doall { /art exch def /numslots exch def gsave numslots art evenroutes numslots art oddroutes numslots art fiftypinside numslots art onepinside numslots art slots grestore } def 8 0 doall showpage