From 811f9c8f82016583c8144ada0fc51936628cacc8 Mon Sep 17 00:00:00 2001 From: Neale Pickett Date: Sat, 14 Jun 2014 10:04:01 -0600 Subject: [PATCH] Updated scrimmage form --- derby/scrimmage.ps | 47 ++++++++++++++++++++++++++++------------------ 1 file changed, 29 insertions(+), 18 deletions(-) diff --git a/derby/scrimmage.ps b/derby/scrimmage.ps index 72e9104..15a519f 100644 --- a/derby/scrimmage.ps +++ b/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