1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
%
% Ball score card
defaultfont:="rptmr";
defaultscale := 1;
prologues := 1;
special "/rptmr /Times-Roman def";
% pen for the outer box
pickup pencircle scaled 1 pt;
fat nib = savepen;
% pen for the cross-lines
pickup pencircle scaled .5 pt;
medium nib = savepen;
% pen for slashes
pickup pencircle scaled .1 pt;
thin nib = savepen;
un = 1 cm;
def urc (expr x,y) =
((x,y)-(.2un,0)){right}..{down}((x,y)-(0,.2un))
enddef;
def lrc (expr x, y) =
((x,y)+(0,.2un)){down}..{left}((x,y)-(.2un,0))
enddef;
def llc (expr x, y) =
((x,y)+(.2un,0)){left}..{up}((x,y)+(0,.2un))
enddef;
def ulc (expr x, y) =
((x,y)-(0,.2un)){up}..{right}((x,y)+(.2un,0))
enddef;
beginfig(-1);
picture pitcherbox, batterbox;
batterbox = image (
% outer frame
pickup fat nib;
draw llc (0,0)---ulc (0,11un)---urc(20un,11un)---lrc (20un,0)---cycle;
% and some frame-like lines
draw (0,1un)---(20un,1un);
draw (0,10un)---(20un,10un);
draw (4un,0)---(4un,11un);
% name separators
pickup medium nib;
for i = 2un step un until 9 un:
draw (0,i)---(20un,i);
endfor;
for i := 5 un step un until 19 un:
draw (i, 0)---(i, 11un);
endfor;
% added by Dave Rebnord
for i := 4 un step un until 14 un:
for j := 1 un step un until 9 un :
draw (i+0.2un,j+0.5un)---(i+0.5un, j+0.8un)---(i+0.8un,j+0.5un)---(i+0.5un,j+0.2un)---cycle withcolor .25[white, black];
endfor;
endfor;
% slashes and other light lines
pickup thin nib;
for i := 4un step un until 15un:
draw (i,0)---(i+un, un);
endfor;
for i := un step un until 9un:
draw (0, i+.5un)---(4un, i+.5un);
draw (15un, i)---(16un, i+un);
draw (19un, i)---(20un, i+un);
endfor;
draw (15un, 0)---(16un, un);
draw (19un, 0)---(20un, un);
draw (15un, 10un)---(16un, 11un);
draw (19un, 10un)---point .5 of (urc (20un,11un));
% labels
for i := 1 upto 11:
label(decimal i, ((3.5+i)*un, 10.5un));
endfor;
label.rt("Totals", (0, .5un));
label.lft("Runs", (4un, 2/3un));
label.lft("Hits", (4un, 1/3un));
label.bot("ab", (15.3un, 11un));
label.top("ap", (15.7un, 10un));
label("r", (16.5un, 10.5un));
label("h", (17.5un, 10.5un));
label("rbi", (18.5un, 10.5un));
label.bot("ob", (19.3un, 11un));
label.top("e", (19.7un, 10un));
);
pitcherbox = image (
% outer frame
pickup fat nib;
ph = 4.5un/5;
draw llc (0,0)---ulc (0, 5ph)---urc (20un,5ph)---lrc (20un,0)---cycle;
% and some frame-like lines
draw urc (10un,5ph)---lrc (10un, 4ph)---llc (0,4ph);
draw urc (10un, 4ph)---(10un,0);
draw (4un,0)..(4un,5ph);
% name separators
pickup medium nib;
draw ulc (10un, 4ph)---(20un,4ph);
draw llc (10un, 4ph);
for i = ph step ph until 3ph:
draw (0,i)---(20un,i);
endfor;
for i := 0 step un until 4un:
draw (5un+i,0)---(5un+i, 5ph);
draw (14un+i,0)---(14un+i, 5ph);
endfor;
draw (19un,0)---(19un, 5ph);
label("Pitchers", (2un, 4.5ph));
label("IP", (4.5un, 4.5ph));
label("H", (5.5un, 4.5ph));
label("R", (6.5un, 4.5ph));
label("ER", (7.5un, 4.5ph));
label("K", (8.5un, 4.5ph));
label("BB", (9.5un, 4.5ph));
);
draw batterbox shifted (.75un, .75un);
draw pitcherbox shifted (.75un, 11.85un);
draw batterbox shifted (.75un, 16.45un);
endfig;
end;
|
