lineup tracking form

derby/lineup.ps

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

derby/scrimmage.ps

@@ -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
+/plr 60 def
-/maj 120 def
+/pen 20 def
-/min 80 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
+		1 1 7 {
-        0 phi rlineto  0 phi neg rmoveto
+			/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