mirror of https://github.com/nealey/woozle.org.git
lineup tracking form
This commit is contained in:
parent
fc85dc476c
commit
ef5155579b
|
|
@ -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
|
||||||
|
|
@ -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 i phi mul neg moveto
|
||||||
|
|
||||||
0 phi neg rlineto
|
0 phi neg rlineto
|
||||||
plr 0 rlineto
|
plr 0 rlineto
|
||||||
0 phi rlineto
|
0 phi rlineto
|
||||||
0 phi neg rmoveto
|
0 phi neg rmoveto
|
||||||
|
|
||||||
maj 0 rlineto
|
1 1 7 {
|
||||||
0 phi rlineto 0 phi neg rmoveto
|
/j exch def
|
||||||
|
|
||||||
|
pen 0 rlineto
|
||||||
|
0 phi rlineto 0 phi neg rmoveto
|
||||||
|
} for
|
||||||
|
|
||||||
min 0 rlineto
|
} for
|
||||||
0 phi rlineto 0 phi neg rmoveto
|
|
||||||
|
|
||||||
plr maj min add add neg 0 rmoveto
|
stroke
|
||||||
} for
|
|
||||||
|
|
||||||
stroke
|
grestore
|
||||||
|
|
||||||
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
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue