Shane Brandes <[email protected]> writes:
> So while I find the pursuit of perfection somehow attractive there
> is definitely a downside to this endeavor and maybe the time would be
> more worthwhile spent working on other areas of the program that
> could, in fact, use more attention for improvement.
\version "2.17.7"
\header { tagline = ##f title = "Conny rates Jazz" }
\score
{
{ $@(map!
(lambda (p d) #{ \footnote #'(1 . 2)
% This is the simplest way to make a chord name markup? Ugh.
\markup \score { \new ChordNames { < $@p > }
\layout { } } Stem
< $@p >$@d #})
; this $@ produces elements for a sequential music list via map!. Each
; element is constructed from p, a list of pitches making up a chord,
; and from d, which is a list first containing a duration followed by
; _optional_ articulations, so $@d actually can return several tokens of
; _different_ type.
;
; The following form constructs the list of pitch lists for use in p
(map!
(lambda (i)
(map!
(lambda (i)
(ly:make-pitch 2 (+ 1 (* 9 (quotient i 5)) (* i -2)) 0))
(iota 5 i)))
(append! (iota 34) (list 32)))
; The following form constructs an (end-less) list of lists containing
; a duration and maybe articulations.
(apply
circular-list
(map!
(lambda (m) (cons (ly:music-property m 'duration)
(ly:music-property m 'articulations)))
(extract-typed-music
#{ s4.~ s~ s4~ s2~ s2 #}
'skip-event))))
<c' e' g' a' c''>1 \bar "|."
}
\midi { \tempo 4 = 220
\set Staff.midiInstrument = "acoustic grand"
}
\layout { }
}
--
David Kastrup
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
