-\version "2.14.0"
+\version "2.19.22"
#(define (filter-instrument instrument-name tuning-alist)
(filter (lambda (entry)
'text (symbol->string tuning-symbol))
(map (lambda (pitch)
(make-music 'NoteEvent
- 'duration (ly:make-duration 0 0 1 1)
+ 'duration (ly:make-duration 0 0 1/1)
'pitch pitch))
pitches)))))
displayInstrumentDefaultTunings =
-#(define-music-function (parser location instrument) (string?)
+#(define-music-function (instrument) (string?)
(let* ((filtered-instruments (filter-instrument instrument defaultStringTunings))
(display-elements (map chord-display filtered-instruments)))
(make-music 'SequentialMusic 'elements display-elements)))
{
\new Staff {
\textLengthOn
- \override Score.RehearsalMark #'self-alignment-X = #LEFT
+ \override Score.RehearsalMark.self-alignment-X = #LEFT
\mark \markup {\left-align "Guitar tunings"}
\clef "treble_8"