Updated scrimmage form

derby/scrimmage.ps

@@ -11,8 +11,7 @@
 	translate
 
 	0 1 1 {
-		/hunnert exch def
-		hunnert 1 eq { 0 -110 translate } if
+		-110 mul 0 exch translate
 
 		0 1 9 {
 			/i exch def
@@ -22,11 +21,10 @@
 				i 10 mul add /x exch def
 
 				x 10 lt
-					{ hunnert x add 0 eq 
-						{ (  ) show }
-						{ ( ) show 
-						  x str cvs show }
-						ifelse } 
+					{
+						( ) show
+						x str cvs show
+					}
 					{ x str cvs show }
 					ifelse
 				( ) show
@@ -37,6 +35,19 @@
 	grestore
 } def
 
+/timeouts {
+	gsave
+	translate
+	
+	0 0 moveto (OR) show
+	5 30 moveto (T) show
+	5 50 moveto (T) show
+	5 70 moveto (T) show
+	0 100 moveto (OR) show
+	
+	grestore
+} def
+
 /phi 18 def
 /plr 60 def
 /pen 20 def
@@ -71,28 +82,28 @@
 	grestore
 } def
 
+
+0 -50 translate
+
+
 20 700 points
 430 700 points
 
 /Times-Roman findfont 12 scalefont setfont
 
-200 530 moveto (T) show
-400 530 moveto (T) show
-200 510 moveto (T) show
-400 510 moveto (T) show
-200 490 moveto (T) show
-400 490 moveto (T) show
+190 540 timeouts
+400 540 timeouts
 
 
 20 450 moveto
 (Team ) show
-200 0 rlineto stroke
+180 0 rlineto stroke
 
 350 450 moveto
 (Team ) show
-200 0 rlineto stroke
+180 0 rlineto stroke
 
- 20 440 penalties
+20 440 penalties
 350 440 penalties
 
 /Times-Roman findfont 11 scalefont setfont
@@ -108,7 +119,7 @@
 	0 -12 rmoveto
 } def
 
-230 700 moveto
+230 650 moveto
 (A) (High Block / Block To Head) cshow
 (B) (Back Block) cshow
 (E) (Elbows) cshow
@@ -128,7 +139,7 @@
 /Times-Roman findfont 9 scalefont setfont
 200 760 moveto
 /copyright glyphshow
-(2012 Neale Pickett) show
+(2014 Neale Pickett) show
 300 760 moveto
 (\(CC\) BY-SA) show
 300 750 moveto