Hello Jay,
this reminds me of the snippet at
<https://github.com/openlilylib/openlilylib/blob/master/input-shorthands/easy-octaves>,
which is easily modified to meet your request by removing lines 50–53
from definitions.ily. The result (with some corresponding changes to the
rest) is attached and may be used in the same way: just include it at
the beginning of the input file.
HTH, Simon
Am 15.09.2014 um 11:27 schrieb Jay Vara:
I'm not top posting.
NoteNames will print the higher (and lower) octave names with
printOctaveNames set to true. It prints them as c', d', c, d, etc.
My question is: Is it possible to have the higher octaves print using a
different character, say C D E F etc rather than c', d', e', f'.
Here is a piece of code that I found that shows how it currently works:
\version "2.18.2"
scale = \relative c' {
a4 b c d
e4 f g,, a
}
\new Staff {
<<
\scale
\context NoteNames {
\set printOctaveNames = ##f
\scale
}
>>
R1
<<
\scale
\context NoteNames {
\set printOctaveNames = ##t
\scale
}
>>
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
\version "2.16.2"
\header {
snippet-title = "Octavate capital note names"
snippet-author = "Simon Albrecht after Tao Cumplido"
snippet-description = \markup {
Easily write octavated notes with capitalized note-names.
Has to be modified for languages other than the default.
}
snippet-dedication = "Thanks to David Kastrup for the idea."
tags = "octavate, capital letters"
status = "ready"
}
%{
Info:
This snippet enables replacing c' by C for standard pitches.
It currently supports only the default
language (dutch) but is easily modified to support other
languages.
To use this snippet simply include it. It is automatically
applied to all the music.
Note:
The snippet won't work with music that needs microtones
with eigth-tone values.
The q shorthand will recognize a capital note name as a chord.
TODO
Is there a way to make q treat a capital note-name like a
regular note?
%}
#(define (octavate music)
(let* ((p (ly:music-property music 'pitch))
(d (ly:music-property music 'duration))
(o (ly:pitch-octave p))
(n (ly:pitch-notename p))
(a (ly:pitch-alteration p))
(alt (ly:music-property music 'articulations)))
(set! music (make-music
'EventChord
'elements
(append
(list
(make-music
'NoteEvent
'duration d
'pitch (ly:make-pitch (+ 1 o) n a)))
alt))))
music)
#(define (check-octaves music)
(if (eq? (ly:music-property music 'name) 'NoteEvent)
(if (not (eq? (ly:music-property music 'pitch #f) #f)) ; skip drum notes
(let* ((p (ly:music-property music 'pitch))
(o (ly:pitch-octave p))
(n (ly:pitch-notename p))
(a (ly:pitch-alteration p)))
(cond ((= (denominator a) 8)
(set! a (- a 1/8))
(ly:music-set-property! music 'pitch (ly:make-pitch o n a))
(set! music (octavate music)))))))
music)
addOctaves =
#(define-music-function (parser location music) (ly:music?)
(music-map (lambda (x) (check-octaves x)) music))
#(set! toplevel-music-functions
(cons (lambda (music parser) #{ \addOctaves #music #})
toplevel-music-functions))
#(define language-add-octaves
(list
`(nl-octaves . ,(append (assoc-get 'nederlands language-pitch-names #f)
`(
(Ceses . ,(ly:make-pitch -1 0 -7/8))
(Ces . ,(ly:make-pitch -1 0 -3/8))
(C . ,(ly:make-pitch -1 0 1/8))
(Cis . ,(ly:make-pitch -1 0 5/8))
(Cisis . ,(ly:make-pitch -1 0 9/8))
(Deses . ,(ly:make-pitch -1 1 -7/8))
(Des . ,(ly:make-pitch -1 1 -3/8))
(D . ,(ly:make-pitch -1 1 1/8))
(Dis . ,(ly:make-pitch -1 1 5/8))
(Disis . ,(ly:make-pitch -1 1 9/8))
(Eses . ,(ly:make-pitch -1 2 -7/8))
(Es . ,(ly:make-pitch -1 2 -3/8))
(E . ,(ly:make-pitch -1 2 1/8))
(Eis . ,(ly:make-pitch -1 2 5/8))
(Eisis . ,(ly:make-pitch -1 2 9/8))
(Feses . ,(ly:make-pitch -1 3 -7/8))
(Fes . ,(ly:make-pitch -1 3 -3/8))
(F . ,(ly:make-pitch -1 3 1/8))
(Fis . ,(ly:make-pitch -1 3 5/8))
(Fisis . ,(ly:make-pitch -1 3 9/8))
(Geses . ,(ly:make-pitch -1 4 -7/8))
(Ges . ,(ly:make-pitch -1 4 -3/8))
(G . ,(ly:make-pitch -1 4 1/8))
(Gis . ,(ly:make-pitch -1 4 5/8))
(Gisis . ,(ly:make-pitch -1 4 9/8))
(Ases . ,(ly:make-pitch -1 5 -7/8))
(As . ,(ly:make-pitch -1 5 -3/8))
(A . ,(ly:make-pitch -1 5 1/8))
(Ais . ,(ly:make-pitch -1 5 5/8))
(Aisis . ,(ly:make-pitch -1 5 9/8))
(Beses . ,(ly:make-pitch -1 6 -7/8))
(Bes . ,(ly:make-pitch -1 6 -3/8))
(B . ,(ly:make-pitch -1 6 1/8))
(Bis . ,(ly:make-pitch -1 6 5/8))
(Bisis . ,(ly:make-pitch -1 6 9/8))
)))))
#(set! language-pitch-names (append language-pitch-names language-add-octaves))
\language "nl-octaves"_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
