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

This commit is contained in:
Neale Pickett 2013-07-29 23:11:20 -05:00
commit 4849710730
4 changed files with 156 additions and 59 deletions

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

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

View File

@ -1,6 +1,7 @@
%!PS-Adobe-2.0
%%BoundingBox: 0 0 612 792
0.5 setlinewidth
/Courier findfont 9 scalefont setfont
/str ( ) def
@ -37,33 +38,32 @@
} def
/phi 18 def
/plr 40 def
/maj 120 def
/min 80 def
/plr 60 def
/pen 20 def
/penalties {
gsave
translate
0 0 moveto
0 plr maj min add add add 0 rlineto
0 0 moveto
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
maj 0 rlineto
0 phi rlineto 0 phi neg rmoveto
1 1 7 {
/j exch def
min 0 rlineto
pen 0 rlineto
0 phi rlineto 0 phi neg rmoveto
} for
plr maj min add add neg 0 rmoveto
} for
stroke
@ -83,6 +83,15 @@
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