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

lineup tracking form

This commit is contained in:
Neale Pickett 2013-06-01 13:42:28 -06:00
parent fc85dc476c
commit ef5155579b
2 changed files with 152 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

29
derby/scrimmage.ps
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
@ -71,7 +71,7 @@
grestore
} def
20 700 points
20 700 points
430 700 points
/Times-Roman findfont 12 scalefont setfont
@ -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