[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Lines and Ties and Slurs oh my!
From: |
David Kastrup |
Subject: |
Re: Lines and Ties and Slurs oh my! |
Date: |
Fri, 21 Feb 2014 18:41:30 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
Shane Brandes <address@hidden> 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 { < address@hidden > }
\layout { } } Stem
< address@hidden >address@hidden #})
; 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 address@hidden 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
Re: Lines and Ties and Slurs oh my!, steve, 2014/02/18
Re: Lines and Ties and Slurs oh my!, MING TSANG, 2014/02/21