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

View File

@ -21,6 +21,7 @@ Forms
----- -----
* [Multi-NSO scrimmage form](scrimmage.pdf) for tracking points and penalties * [Multi-NSO scrimmage form](scrimmage.pdf) for tracking points and penalties
* [Lineup tracking form](lineup.pdf)
Articles 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,77 +1,77 @@
%!PS-Adobe-2.0 %!PS-Adobe-2.0
%%BoundingBox: 0 0 612 792 %%BoundingBox: 0 0 612 792
0.5 setlinewidth
/Courier findfont 9 scalefont setfont /Courier findfont 9 scalefont setfont
/str ( ) def /str ( ) def
/points { /points {
gsave gsave
translate translate
0 1 1 { 0 1 1 {
/hunnert exch def /hunnert exch def
hunnert 1 eq { 0 -110 translate } if hunnert 1 eq { 0 -110 translate } if
0 1 9 { 0 1 9 {
/i exch def /i exch def
0 i -11 mul moveto 0 i -11 mul moveto
0 1 9 { 0 1 9 {
i 10 mul add /x exch def i 10 mul add /x exch def
x 10 lt x 10 lt
{ hunnert x add 0 eq { hunnert x add 0 eq
{ ( ) show } { ( ) show }
{ ( ) show { ( ) show
x str cvs show } x str cvs show }
ifelse } ifelse }
{ x str cvs show } { x str cvs show }
ifelse ifelse
( ) show ( ) show
} for } for
} for } for
} for } for
grestore grestore
} def } def
/phi 18 def /phi 18 def
/plr 40 def /plr 60 def
/maj 120 def /pen 20 def
/min 80 def
/penalties { /penalties {
gsave gsave
translate translate
0 0 moveto 0 0 moveto
0 plr maj min add add add 0 rlineto
0 0 moveto
1 1 16 { 1 1 16 {
/i exch def /i exch def
0 phi neg rlineto 0 i phi mul neg moveto
plr 0 rlineto
0 phi rlineto
0 phi neg rmoveto
maj 0 rlineto 0 phi neg rlineto
0 phi rlineto 0 phi neg rmoveto plr 0 rlineto
0 phi rlineto
0 phi neg rmoveto
min 0 rlineto 1 1 7 {
0 phi rlineto 0 phi neg rmoveto /j exch def
plr maj min add add neg 0 rmoveto pen 0 rlineto
} for 0 phi rlineto 0 phi neg rmoveto
} for
stroke } for
grestore stroke
grestore
} def } def
20 700 points 20 700 points
430 700 points 430 700 points
/Times-Roman findfont 12 scalefont setfont /Times-Roman findfont 12 scalefont setfont
@ -83,20 +83,29 @@
200 490 moveto (T) show 200 490 moveto (T) show
400 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 20 440 penalties
350 440 penalties 350 440 penalties
/Times-Roman findfont 11 scalefont setfont /Times-Roman findfont 11 scalefont setfont
/cshow { /cshow {
gsave gsave
exch show exch show
grestore grestore
gsave gsave
16 0 rmoveto 16 0 rmoveto
show show
grestore grestore
0 -12 rmoveto 0 -12 rmoveto
} def } def
230 700 moveto 230 700 moveto