OLD | NEW |
1 % script-init.ly | 1 % script-init.ly |
2 | 2 |
3 \version "2.17.25" | 3 \version "2.17.25" |
4 | 4 |
5 harmonic = #(make-music 'HarmonicEvent) | 5 harmonic = #(make-music 'HarmonicEvent) |
6 | 6 |
7 accent = #(make-articulation "accent" | 7 accent = #(make-articulation "accent" |
8 » 'midi-extra-velocity 20) | 8 'midi-extra-velocity 20) |
9 coda = #(make-articulation "coda") | 9 coda = #(make-articulation "coda") |
10 downbow = #(make-articulation "downbow") | 10 downbow = #(make-articulation "downbow") |
11 downmordent = #(make-articulation "downmordent") | 11 downmordent = #(make-articulation "downmordent") |
12 downprall = #(make-articulation "downprall") | 12 downprall = #(make-articulation "downprall") |
13 espressivo = #(make-articulation "espressivo") | 13 espressivo = #(make-articulation "espressivo") |
14 fermata = #(make-articulation "fermata") | 14 fermata = #(make-articulation "fermata") |
15 flageolet = #(make-articulation "flageolet") | 15 flageolet = #(make-articulation "flageolet") |
16 halfopen = #(make-articulation "halfopen") | 16 halfopen = #(make-articulation "halfopen") |
17 lheel = #(make-articulation "lheel") | 17 lheel = #(make-articulation "lheel") |
18 lineprall = #(make-articulation "lineprall") | 18 lineprall = #(make-articulation "lineprall") |
19 longfermata = #(make-articulation "longfermata") | 19 longfermata = #(make-articulation "longfermata") |
20 ltoe = #(make-articulation "ltoe") | 20 ltoe = #(make-articulation "ltoe") |
21 marcato = #(make-articulation "marcato" | 21 marcato = #(make-articulation "marcato" |
22 » 'midi-extra-velocity 40) | 22 'midi-extra-velocity 40) |
23 mordent = #(make-articulation "mordent") | 23 mordent = #(make-articulation "mordent") |
24 open = #(make-articulation "open") | 24 open = #(make-articulation "open") |
25 | 25 |
26 portato = #(make-articulation "portato" | 26 portato = #(make-articulation "portato" |
27 » 'midi-length | 27 'midi-length |
28 » (lambda (len context) | 28 (lambda (len context) |
29 » (ly:moment-mul len (ly:make-moment 3/4)))) | 29 (ly:moment-mul len (ly:make-moment 3/4)))) |
30 prall = #(make-articulation "prall") | 30 prall = #(make-articulation "prall") |
31 pralldown = #(make-articulation "pralldown") | 31 pralldown = #(make-articulation "pralldown") |
32 prallmordent = #(make-articulation "prallmordent") | 32 prallmordent = #(make-articulation "prallmordent") |
33 prallprall = #(make-articulation "prallprall") | 33 prallprall = #(make-articulation "prallprall") |
34 prallup = #(make-articulation "prallup") | 34 prallup = #(make-articulation "prallup") |
35 reverseturn = #(make-articulation "reverseturn") | 35 reverseturn = #(make-articulation "reverseturn") |
36 rheel = #(make-articulation "rheel") | 36 rheel = #(make-articulation "rheel") |
37 rtoe = #(make-articulation "rtoe") | 37 rtoe = #(make-articulation "rtoe") |
38 segno = #(make-articulation "segno") | 38 segno = #(make-articulation "segno") |
39 shortfermata = #(make-articulation "shortfermata") | 39 shortfermata = #(make-articulation "shortfermata") |
40 signumcongruentiae = #(make-articulation "signumcongruentiae") | 40 signumcongruentiae = #(make-articulation "signumcongruentiae") |
41 snappizzicato = #(make-articulation "snappizzicato") | 41 snappizzicato = #(make-articulation "snappizzicato") |
42 staccatissimo = #(make-articulation "staccatissimo" | 42 staccatissimo = #(make-articulation "staccatissimo" |
43 » » 'midi-length | 43 'midi-length |
44 » » (lambda (len context) | 44 (lambda (len context) |
45 » » (seconds->moment 1/8 context)) | 45 (seconds->moment 1/8 context)) |
46 » » 'midi-extra-velocity 6) | 46 'midi-extra-velocity 6) |
47 staccato = #(make-articulation "staccato" | 47 staccato = #(make-articulation "staccato" |
48 » 'midi-length | 48 'midi-length |
49 » (lambda (len context) | 49 (lambda (len context) |
50 » (moment-min (ly:moment-mul len (ly:make-moment 1/2)) | 50 (moment-min (ly:moment-mul len (ly:make-moment 1/2)) |
51 » » » (seconds->moment 1/2 context))) | 51 (seconds->moment 1/2 context))) |
52 » 'midi-extra-velocity 4) | 52 'midi-extra-velocity 4) |
53 stopped = #(make-articulation "stopped") | 53 stopped = #(make-articulation "stopped") |
54 tenuto = #(make-articulation "tenuto") | 54 tenuto = #(make-articulation "tenuto") |
55 thumb = \finger \markup \scale #(cons (magstep 5) (magstep 5)) | 55 thumb = \finger \markup \scale #(cons (magstep 5) (magstep 5)) |
56 \musicglyph #"scripts.thumb" | 56 \musicglyph #"scripts.thumb" |
57 trill = #(make-articulation "trill") | 57 trill = #(make-articulation "trill") |
58 turn = #(make-articulation "turn") | 58 turn = #(make-articulation "turn") |
59 upbow = #(make-articulation "upbow") | 59 upbow = #(make-articulation "upbow") |
60 upmordent = #(make-articulation "upmordent") | 60 upmordent = #(make-articulation "upmordent") |
61 upprall = #(make-articulation "upprall") | 61 upprall = #(make-articulation "upprall") |
62 varcoda = #(make-articulation "varcoda") | 62 varcoda = #(make-articulation "varcoda") |
63 verylongfermata = #(make-articulation "verylongfermata") | 63 verylongfermata = #(make-articulation "verylongfermata") |
64 | 64 |
65 % code char abbreviations | 65 % code char abbreviations |
66 dashHat = \marcato | 66 dashHat = \marcato |
67 dashPlus = \stopped | 67 dashPlus = \stopped |
68 dashDash = \tenuto | 68 dashDash = \tenuto |
69 dashBang = \staccatissimo | 69 dashBang = \staccatissimo |
70 dashLarger = \accent | 70 dashLarger = \accent |
71 dashDot = \staccato | 71 dashDot = \staccato |
72 dashUnderscore = \portato | 72 dashUnderscore = \portato |
OLD | NEW |