| 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 | } |
|---|