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
|
unfinished
nocheck
notime
notespacing *1.5
draw box
-2 headleft sub accleft sub stembottom 1.3 sub moveto
stemtop stembottom sub 2.6 add dup 0 exch rlineto
headleft headright add 4 add accleft add dup 0 rlineto exch
0 exch neg rlineto
neg 0 rlineto
stroke
enddraw
draw bra
-2 headleft sub accleft sub headbottom linebottom add moveto
-2 0 rlineto
-4 headleft sub accleft sub headtop linetop sub lineto
2 0 rlineto
stroke
enddraw
[stave 1 treble 1]
[draw box] $a
[draw box] f'
[draw box] (fg)
[space 10]
[draw box] (f'g')
[space 6]
[draw bra] (#fc')
[draw bra] (g#d')
|
