From ef5155579b79d81e1d89f2941b55cc601edc5500 Mon Sep 17 00:00:00 2001 From: Neale Pickett Date: Sat, 1 Jun 2013 13:42:28 -0600 Subject: [PATCH 1/3] lineup tracking form --- derby/lineup.ps | 87 ++++++++++++++++++++++++++++++++ derby/scrimmage.ps | 121 ++++++++++++++++++++++++--------------------- 2 files changed, 152 insertions(+), 56 deletions(-) create mode 100644 derby/lineup.ps 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 From 9af24177439c2fd070ebafc72dfd5a06603b7c1f Mon Sep 17 00:00:00 2001 From: Neale Pickett Date: Mon, 29 Jul 2013 22:10:31 -0600 Subject: [PATCH 2/3] link to lineup form --- derby/index.mdwn | 1 + derby/lineup.ps | 2 +- derby/scrimmage.ps | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/derby/index.mdwn b/derby/index.mdwn index 45cde85..f9dde5c 100644 --- a/derby/index.mdwn +++ b/derby/index.mdwn @@ -21,6 +21,7 @@ Forms ----- * [Multi-NSO scrimmage form](scrimmage.pdf) for tracking points and penalties +* [Lineup tracking form](lineup.pdf) Articles -------- diff --git a/derby/lineup.ps b/derby/lineup.ps index 8335df3..6752ad5 100644 --- a/derby/lineup.ps +++ b/derby/lineup.ps @@ -19,7 +19,7 @@ fillp { gsave - 0.8 setgray + 0.9 setgray boxh 0 rmoveto boxh neg boxh neg rlineto 0 boxh rows neg mul rlineto diff --git a/derby/scrimmage.ps b/derby/scrimmage.ps index 3d22e15..72e9104 100644 --- a/derby/scrimmage.ps +++ b/derby/scrimmage.ps @@ -108,7 +108,7 @@ 0 -12 rmoveto } def -230 700 moveto +230 700 moveto (A) (High Block / Block To Head) cshow (B) (Back Block) cshow (E) (Elbows) cshow From 0bb60bf636b578a565d85d8998cd097f7e962d7a Mon Sep 17 00:00:00 2001 From: Neale Pickett Date: Mon, 29 Jul 2013 22:11:15 -0600 Subject: [PATCH 3/3] make pdf --- derby/derby.mk | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/derby/derby.mk b/derby/derby.mk index 423692e..6b06ecd 100644 --- a/derby/derby.mk +++ b/derby/derby.mk @@ -1,5 +1,5 @@ PLAIN += derby -COPY += derby/scrimmage.pdf +COPY += derby/scrimmage.pdf derby/lineup.pdf -$(DESTDIR)/derby/scrimmage.pdf: derby/scrimmage.ps +$(DESTDIR)/derby/%.pdf: derby/%.ps ps2pdf $< $@