/usr/share/texmf-texlive/metapost/bbcard/scorecard.mp is in texlive-metapost 2009-15.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|