-
Notifications
You must be signed in to change notification settings - Fork 0
/
graphics.mp
executable file
·100 lines (74 loc) · 1.82 KB
/
graphics.mp
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
%% graphics.mp
%% * Copyright and License.
%% This file is part of Songlist, a package for keeping track of songs.
%% Copyright (C) 2021, 2022, 2023 Laurence D. Finston
%% songlist is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; either version 3 of the License, or
%% (at your option) any later version.
%% songlist is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%% You should have received a copy of the GNU General Public License
%% along with songlist; if not, write to the Free Software
%% Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
%% Please send bug reports to [email protected]
input boxes
verbatimtex
\font\large=cmr12
\font\largebx=cmbx12
etex
pickup pencircle scaled 1pt;
picture v[];
v1 = thelabel(btex \largebx Vol.~1 etex, (0, 0));
v2 = thelabel(btex \largebx Vol.~2 etex, (0, 0));
beginfig(1);
boxit.a(v1);
drawboxed(a);
endfig;
beginfig(2);
boxit.a(v1);
draw(v1);
draw bpath a withcolor white;
endfig;
beginfig(3);
boxit.b(v2);
drawboxed(b);
endfig;
beginfig(4);
boxit.b(v2);
draw(v2);
draw bpath b withcolor white;
endfig;
beginfig(5);
circleit.a(v1);
a.dy = 6pt;
a.dx = 4pt;
drawboxed(a);
endfig;
beginfig(6);
circleit.a(v1);
a.dy = 6pt;
a.dx = 4pt;
draw(v1);
draw bpath a withcolor white;
endfig;
beginfig(7);
circleit.b(v2);
b.dy = 6pt;
b.dx = 4pt;
drawboxed(b);
endfig;
beginfig(8);
circleit.b(v2);
b.dy = 6pt;
b.dx = 4pt;
draw(v2);
draw bpath b withcolor white;
endfig;
end;
%% Local Variables:
%% mode:Text
%% mode:show-paren
%% End: