blob: 758c9f3df18e086e68ca33927697cf5018aef0e0 (
plain)
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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% this is musicbrg.mf
%
% Version 0.99 [August 93] Andreas Egler
% [January] Daniel Taupin
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
transform t;
path p;
pen thin_pen, med_pen, thick_pen;
thin_pen:= pencircle scaled .15pt;
med_pen:= pencircle scaled thin;
thick_pen:= pencircle scaled med;
apog_fact=0.75;
%%%%%%%%%%%%%%
% big braces %
%%%%%%%%%%%%%%
%
% change firstbrace and lastbrace if you need smaller or larger braces
%
firstbrace:=20; % smallest brace is 2*20 pt (\simeq 14mm)
lastbrace:=99; % largest brace is 2*99 pt (\simeq 69mm)
def bigbrace(expr v) =
vwidth:=v*pt;
hwidth:=.2vwidth;
actwidth:=.035vwidth;
x1=hwidth; y1=vwidth;
x2l=.2hwidth; y2=.75vwidth;
x3r=.8hwidth; y3=1/3vwidth;
x4=0; y4=0;
penpos1(thinwidth,-90);
penpos2(1.25med+.8actwidth,40);
penpos3(1.25med+actwidth,45);
penpos4(.5thin+thinwidth,-90);
currentpen:= pencircle;
penstroke z1e..z2e..z3e..{left+sw}z4e;
addto currentpicture also currentpicture reflectedabout (origin, right);
penlabels(1,2,3,4);
enddef;
for v=firstbrace upto lastbrace :
beginchar (v-firstbrace, .2v*pt#, 0, 0);
bigbrace (v);
endchar;
endfor;
|
