diff --git a/derby/lineup.ps b/derby/lineup.ps new file mode 100644 index 0000000..8335df3 --- /dev/null +++ b/derby/lineup.ps @@ -0,0 +1,87 @@ +%!PS-Adobe-2.0 +%%BoundingBox: 0 0 612 792 + +0.5 setlinewidth + +/boxh 15 def +/numw 35 def +/boxw 15 def +/rows 20 def + +/stake { + /fillp exch def + + gsave + boxh 0 rmoveto + boxh neg boxh neg rlineto + 0 boxh rows neg mul rlineto stroke + grestore + + fillp { + gsave + 0.8 setgray + boxh 0 rmoveto + boxh neg boxh neg rlineto + 0 boxh rows neg mul rlineto + boxw 0 rlineto + 0 boxh rows mul rlineto + boxh boxh rlineto + closepath + fill + grestore + } if +} def + +/lineup { + gsave + translate + + 0 0 moveto + false stake + 1 1 16 { + /i exch def + + i boxw mul numw add 0 moveto + i 2 mod 1 eq stake + } for + + 1 1 21 { + /i exch def + + 0 i boxh mul neg moveto + 16 boxw mul numw add 0 rlineto + stroke + } for + + grestore +} def + +/Times-Roman findfont 12 scalefont setfont + +20 720 moveto +(Team ) show +200 0 rlineto stroke + +350 720 moveto +(Team ) show +200 0 rlineto stroke + + 20 700 lineup +310 700 lineup + + 20 350 lineup +310 350 lineup + +/Times-Roman findfont 11 scalefont setfont + + +/Times-Roman findfont 9 scalefont setfont +200 760 moveto +/copyright glyphshow +(2012 Neale Pickett) show +300 760 moveto +(\(CC\) BY-SA) show +300 750 moveto +(Please copy and share this document) show + +showpage diff --git a/derby/scrimmage.ps b/derby/scrimmage.ps index 474904e..3d22e15 100644 --- a/derby/scrimmage.ps +++ b/derby/scrimmage.ps @@ -1,77 +1,77 @@ %!PS-Adobe-2.0 %%BoundingBox: 0 0 612 792 +0.5 setlinewidth /Courier findfont 9 scalefont setfont /str ( ) def /points { - gsave - translate + gsave + translate - 0 1 1 { - /hunnert exch def - hunnert 1 eq { 0 -110 translate } if + 0 1 1 { + /hunnert exch def + hunnert 1 eq { 0 -110 translate } if - 0 1 9 { - /i exch def + 0 1 9 { + /i exch def - 0 i -11 mul moveto - 0 1 9 { - i 10 mul add /x exch def + 0 i -11 mul moveto + 0 1 9 { + i 10 mul add /x exch def - x 10 lt - { hunnert x add 0 eq - { ( ) show } - { ( ) show - x str cvs show } - ifelse } - { x str cvs show } - ifelse - ( ) show - } for - } for - } for - - grestore + x 10 lt + { hunnert x add 0 eq + { ( ) show } + { ( ) show + x str cvs show } + ifelse } + { x str cvs show } + ifelse + ( ) show + } for + } for + } for + + grestore } def /phi 18 def -/plr 40 def -/maj 120 def -/min 80 def +/plr 60 def +/pen 20 def /penalties { - gsave - translate + gsave + translate - 0 0 moveto - 0 plr maj min add add add 0 rlineto - 0 0 moveto + 0 0 moveto - 1 1 16 { - /i exch def + 1 1 16 { + /i exch def + + 0 i phi mul neg moveto - 0 phi neg rlineto - plr 0 rlineto - 0 phi rlineto - 0 phi neg rmoveto + 0 phi neg rlineto + plr 0 rlineto + 0 phi rlineto + 0 phi neg rmoveto - maj 0 rlineto - 0 phi rlineto 0 phi neg rmoveto + 1 1 7 { + /j exch def + + pen 0 rlineto + 0 phi rlineto 0 phi neg rmoveto + } for - min 0 rlineto - 0 phi rlineto 0 phi neg rmoveto + } for - plr maj min add add neg 0 rmoveto - } for + stroke - stroke - - grestore + grestore } def - 20 700 points +20 700 points 430 700 points /Times-Roman findfont 12 scalefont setfont @@ -83,20 +83,29 @@ 200 490 moveto (T) show 400 490 moveto (T) show + +20 450 moveto +(Team ) show +200 0 rlineto stroke + +350 450 moveto +(Team ) show +200 0 rlineto stroke + 20 440 penalties 350 440 penalties /Times-Roman findfont 11 scalefont setfont /cshow { - gsave - exch show - grestore - gsave - 16 0 rmoveto - show - grestore - 0 -12 rmoveto + gsave + exch show + grestore + gsave + 16 0 rmoveto + show + grestore + 0 -12 rmoveto } def 230 700 moveto