1 | \version "2.12.1" |
---|
2 | |
---|
3 | \header { |
---|
4 | title = "ÐÐ²Ð°Ð¶ÐŽÑ Ð³Ð°ÑЌПМОÑеÑкОй a-moll" |
---|
5 | } |
---|
6 | |
---|
7 | % European system (A B H C D E F G) |
---|
8 | \include "deutsch.ly" |
---|
9 | |
---|
10 | % Ajust size |
---|
11 | #(set-global-staff-size 30) |
---|
12 | |
---|
13 | % Some magic here (for spanning string numbers) |
---|
14 | stringNumberSpanner = |
---|
15 | #(define-music-function (parser location StringNumber) (string?) |
---|
16 | #{ |
---|
17 | \override TextSpanner #'style = #'dashed-line |
---|
18 | \override TextSpanner #'dash-period = #1 |
---|
19 | \override TextSpanner #'font-size = #-5 |
---|
20 | \override TextSpanner #'(bound-details left stencil-align-dir-y) = #CENTER |
---|
21 | \override TextSpanner #'(bound-details left text) = \markup { \circle \number $StringNumber } |
---|
22 | #}) |
---|
23 | |
---|
24 | global = { |
---|
25 | \key a \minor |
---|
26 | } |
---|
27 | |
---|
28 | \score { |
---|
29 | \new Staff |
---|
30 | \relative c' { |
---|
31 | \override Staff.BarLine #'break-visibility = #'#(#t #f #t) |
---|
32 | a h c dis e f gis a gis f e dis c h a2 |
---|
33 | } |
---|
34 | \layout{ |
---|
35 | \context{ |
---|
36 | \Staff |
---|
37 | \remove Time_signature_engraver |
---|
38 | } |
---|
39 | } |
---|
40 | \midi{} |
---|
41 | } |
---|