From c18c60a77522e75ea43ab1144a17c461fe85a9a4 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Fri, 1 Jan 2021 22:28:06 -0300 Subject: Move FIXME tags from music/dengoso.ly to TODOs.org --- music/dengoso.ly | 28 +++++++++++----------------- 1 file changed, 11 insertions(+), 17 deletions(-) (limited to 'music/dengoso.ly') diff --git a/music/dengoso.ly b/music/dengoso.ly index 158d05b..d949604 100644 --- a/music/dengoso.ly +++ b/music/dengoso.ly @@ -3,7 +3,7 @@ \header { title = "Dengoso" composer = "João Pernambuco" - meter = "Andante moderato" % FIXME + meter = "Andante moderato" copyright = \markup { \with-url #"https://creativecommons.org/licenses/by-sa/4.0/" \line { CC BY-SA 4.0 @@ -16,15 +16,11 @@ } } -% \include "pestana.ly" -% FIXME: turn into a function cWithSlash = \markup { - \fontsize #-2 + \fontsize #-2 \combine \roman C \translate #'(0.6 . -0.4) \draw-line #'(0 . 2.0) } -% FIXME -% str -> fret-number pestana = #(define-music-function (barre location str music) (string? ly:music?) (let ((elts (extract-named-music music '(NoteEvent EventChord)))) @@ -84,20 +80,19 @@ upper = \relative c { } 16 8 16^\markup { \cWithSlash \fontsize #-2 II } 8 a | 16 8 16 \pestana #"II" { cis'8 } | - + 16 8 16 8 | 16 8 16 r16 | 16 8 16 8 | 16 8 16 8 | - - % FIXME: map previous notes, removing fingering notation + \pestana #"V" { a'16 8 16 r16 8 16 | a16 8 16 r16 | } 16 8 16^\markup { \cWithSlash \fontsize #-2 II } 8 a | 16 8 16 \pestana #"II" { cis'8 } | - + d'16 8 16 dis'8 | 8 16 ( ) | @@ -112,7 +107,6 @@ upper = \relative c { lower = \relative c { \globals - % FIXME: \6 to D r2 | r8 a r a | r8 a r a | @@ -127,29 +121,29 @@ lower = \relative c { a a8 b16 cis b8 a16 d,4. a''16 a,~ | a a8 b16 cis b8 a16 | - + \repeat volta 2 { d,4 dis' | g, | 16 fis8 fis16 fis8 fis | e,4 cis' | - + d, dis | | e' e | a, r4 | - + d, | e g, | fis'16 fis8 fis16 fis8 fis | e,4 cis' | - + d, fis | 8 r8 r4 | fis'8. fis16 e8. e16 | } \alternative { - { d,2 | } + { d,2 | } { d8 a' d4 | } } } @@ -159,7 +153,7 @@ staff = \new Staff << \\ \lower >> - + \score { \staff \layout { } -- cgit v1.2.3