neale
/
woozle.org
mirror of https://github.com/nealey/woozle.org.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of /home/neale/projects/woozle

This commit is contained in:
Neale Pickett 2013-07-29 23:11:20 -05:00
parent a9b473508f 0bb60bf636
commit 4849710730
4 changed files with 156 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
derby/derby.mk
View File

@ -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 $< $@

1
derby/index.mdwn
View File

@ -21,6 +21,7 @@ Forms
-----
* [Multi-NSO scrimmage form](scrimmage.pdf) for tracking points and penalties
* [Lineup tracking form](lineup.pdf)
Articles
--------

87
derby/lineup.ps Normal file
View File

@ -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.9 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

123
derby/scrimmage.ps
View File

@ -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,23 +83,32 @@
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
230 700 moveto
(A) (High Block / Block To Head) cshow
(B) (Back Block) cshow
(E) (Elbows) cshow