> Well, it is not a big problem anymore, i actually found a way to get both > chromatic and traditional notations in the same file with the dodecapitch. > It would just make thing easier. > > [...] > > its like starting a new file in the same page.. So when I click engrave, > it displays both. This way the empty variables also work in the second > part! > > > Can you post your file? I'm curious to see how this is working.
Sorry for the delay, here's the file i had been doing some testing. You can just erase the "first exemple" part, or ill post the language files alteration later. But it is irrelevant. I am also using frescobaldi. This weekend i'll resume the work on note names and ledger line things. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%% first exemple %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \version "2.16.2" \include "MNP-scripts.ly" \language chromatic %Modified language files (chromatic) % Modified MNP-scripts.ly (thumline staff added) % set the nominals to be 12-equal #(ly:set-default-scale (ly:make-scale '#(0 1/2 1 3/2 2 5/2 3 7/2 4 9/2 5 11/2))) % Set the pitches to 12-equal with enharmonic equivalences % keep the original pitch names. % all tritones go downwards on \relative, unless specified otherwise. % Preserves quartertones as half-sharps. dodecaPitchNames = #(map (lambda (pitchname) (let* ( (pitch (cdr pitchname)) (nominal-steps (vector-ref '#(0 2 4 5 7 9 11) (ly:pitch-notename pitch))) (fractional-steps (+ nominal-steps (* 2 (ly:pitch-alteration pitch)))) (steps (inexact->exact (floor fractional-steps))) ) (cons (car pitchname) (ly:make-pitch (ly:pitch-octave pitch) steps (/ (- fractional-steps steps) 2))))) pitchnames) #(ly:parser-set-note-names parser dodecaPitchNames) theMusic = { \relative do' { % C clef for middle do. if nothing is done, treble clef is shown, but works the same \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 so''^"First Exemple" di so fi | mi fa fi so | lu la se si | do re mi fa | so la si do | \time 2/4 <do,, mi so>4 \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 %12semitones (octave) clef. pitches sound 12 semitones lower \set Staff.clefOctavation = #-23 \set Staff.middleCPosition = #18 %add top dashed line \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 24 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f #t ) <do mi so>4 % returns to normal staff \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f ) \set Staff.clefGlyph = #"clefs.C" \set Staff.clefOctavation = #-11 \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #6 <do mi so>4 } } \new StaffThumlineTwo { \theMusic } % Not using \theMusic again because staff lines are modified in the middle of \theMusic % \new StaffThumlineOne { \relative do' { \time 4/4 \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t ) \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 so'' \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f ) di so fi | mi fa fi so | lu la se si | do re mi \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t ) fa | so la \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f ) si do | \time 2/4 \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f ) <do,, mi so>4 \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 24 ) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f #t ) \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.clefOctavation = #-23 %clef number 12 is far away downwards, should be with the clef \set Staff.middleCPosition = #18 <do mi so>4 \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12) \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t ) \set Staff.clefGlyph = #"clefs.C" \set Staff.clefOctavation = #-11 \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #6 <do mi so>4 } } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%% second exemple %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \version "2.16.2" \language english % Does not need MNP-scripts.ly % Unmodified language files % set the nominals to be 12-equal #(ly:set-default-scale (ly:make-scale '#(0 1/2 1 3/2 2 5/2 3 7/2 4 9/2 5 11/2))) % Set the pitches to 12-equal with enharmonic equivalences % keep the original pitch names. % all tritones go downwards on \relative, unless specified otherwise. % Preserves quartertones as half-sharps. dodecaPitchNames = #(map (lambda (pitchname) (let* ( (pitch (cdr pitchname)) (nominal-steps (vector-ref '#(0 2 4 5 7 9 11) (ly:pitch-notename pitch))) (fractional-steps (+ nominal-steps (* 2 (ly:pitch-alteration pitch)))) (steps (inexact->exact (floor fractional-steps))) ) (cons (car pitchname) (ly:make-pitch (ly:pitch-octave pitch) steps (/ (- fractional-steps steps) 2))))) pitchnames) #(ly:parser-set-note-names parser dodecaPitchNames) % Staffs used: thumlineOne = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f ) } thumlineOneTritoneUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t ) } thumlineTwoUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f ) } thumlineTwoTritoneUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 24 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f #t ) } % Ledger lines configs used: ledgerMe = { \stopStaff \startStaff \override Staff.StaffSymbol #'ledger-positions = #'( -6 (-4 -2) 0 (2 4) 6 ) } ledgerReMi = { \stopStaff \startStaff \override Staff.StaffSymbol #'ledger-positions = #'( -6 -4 -2 0 2 4 6 ) } % Clefs used: cClefOne = { \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 } cClefTwo = { \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #6 \set Staff.middleCPosition = #6 } cClefThree = { \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 } %the notes written, staff changes within, still compatible with traditional staff, all tritones go down. theMusic = { \relative c' { \thumlineOne \cClefOne d^"Second Exemple, corrected ledger lines" e \ledgerMe ef \ledgerReMi gs | \ledgerMe a \ledgerReMi as d ds | e \thumlineOneTritoneUp f a as | \thumlineTwoUp b <fs as cs> \ledgerMe \thumlineTwoTritoneUp <fs a cs fs> \thumlineOneTritoneUp g | f \thumlineOne \ledgerReMi e d c | \cClefTwo \thumlineOneTritoneUp fs2 c } } \new Staff { \theMusic } \version "2.16.2" \language english %the notes written, staff changes within, still compatible with traditional staff. %tritones DO NOT go always down, last bar modifyed. thumlineOne = { } thumlineOneTritoneUp = { } thumlineTwoUp = { } thumlineTwoTritoneUp = { } ledgerMe = { } ledgerReMi = { } cClefOne = { } cClefTwo = { \clef alto } cClefThree = { } theMusic = { \relative c' { \thumlineOne \cClefOne d4^"Second Exemple, traditional notation, tritone in last bar corrected" e \ledgerMe ef \ledgerReMi gs | \ledgerMe a \ledgerReMi as d ds | e \thumlineOneTritoneUp f a as | \thumlineTwoUp b <fs as cs> \ledgerMe \thumlineTwoTritoneUp <fs a cs fs> \thumlineOneTritoneUp g | f \thumlineOne \ledgerReMi e d c | \cClefTwo \thumlineOneTritoneUp fs,2 c } } \new Staff { \theMusic } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% woodwind diagrams %%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \version "2.16.2" \language english % Prints all key possibilities in the Log. erase the % % #(print-keys-verbose 'flute ) % Does not need MNP-scripts.ly % Unmodified language files % set the nominals to be 12-equal #(ly:set-default-scale (ly:make-scale '#(0 1/2 1 3/2 2 5/2 3 7/2 4 9/2 5 11/2))) % Set the pitches to 12-equal with enharmonic equivalences % keep the original pitch names. % all tritones go downwards on \relative, unless specified otherwise. % Preserves quartertones as half-sharps. dodecaPitchNames = #(map (lambda (pitchname) (let* ( (pitch (cdr pitchname)) (nominal-steps (vector-ref '#(0 2 4 5 7 9 11) (ly:pitch-notename pitch))) (fractional-steps (+ nominal-steps (* 2 (ly:pitch-alteration pitch)))) (steps (inexact->exact (floor fractional-steps))) ) (cons (car pitchname) (ly:make-pitch (ly:pitch-octave pitch) steps (/ (- fractional-steps steps) 2))))) pitchnames) #(ly:parser-set-note-names parser dodecaPitchNames) % Staffs used: thumlineOne = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f ) } thumlineOneTritoneUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t ) } thumlineTwoUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f ) } thumlineTwoTritoneUp = { \stopStaff \startStaff \override Staff.StaffSymbol #'line-positions = #'( -6 0 6 12 18 24 ) \override Stem #'no-stem-extend = ##t \dashedStaffSymbolLines #'(0.5 . 0.7) #'( #f #t #f #t #f #t ) } % Ledger lines configs used: ledgerMe = { \stopStaff \startStaff \override Staff.StaffSymbol #'ledger-positions = #'( -6 (-4 -2) 0 (2 4) 6 ) } ledgerReMi = { \stopStaff \startStaff \override Staff.StaffSymbol #'ledger-positions = #'( -6 -4 -2 0 2 4 6 ) } % Clefs used: cClefOne = { \set Staff.clefGlyph = #"clefs.C" \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #-6 } cClefTwo = { \set Staff.clefGlyph = #"clefs.C" \set Staff.clefOctavation = #+11 \set Staff.clefPosition = #-6 \set Staff.middleCPosition = #6 } \new Staff { \thumlineOne \cClefOne \relative c' { bf8^\markup { \center-column { 'saxophone \woodwind-diagram #'saxophone #'( (cc . (one two three four five six )) (lh . (low-besT cisT bes)) (rh . (low-c)) ) } } cs bf cs bf16^\markup \woodwind-diagram #'saxophone #'((cc . (one two three four five six )) (lh . (bes low-besT cisT)) (rh . (low-c))) cs bf cs bf^\markup \woodwind-diagram #'saxophone #'() cs bf cs } } \new Staff { \thumlineOne \cClefOne \relative c' { \textLengthOn af'1^\markup \woodwind-diagram #'flute #'((cc . (one two three)) (lh . (gis)) (rh . (ees))) af^\markup % side key names does not seem to work for saxophone... \override #'(graphical . #f) { \woodwind-diagram #'flute #'((cc . (one two three)) (lh . (gis)) (rh . (ees))) } r^\markup \woodwind-diagram #'flute #'() \textLengthOn r^\markup \woodwind-diagram #'flute #'((cc . ()) (lh . ()) (rh . (ees))) r^\markup \override #'(size . 1.5) { \woodwind-diagram #'flute #'((cc . ()) (lh . ()) (rh . (ees))) } r^\markup \override #'(thickness . 0.30) { \woodwind-diagram #'flute #'((cc . ()) (lh . ()) (rh . (ees))) } } } -- View this message in context: http://lilypond.1069038.n5.nabble.com/Feature-Request-Chromatic-note-names-tp145984p146256.html Sent from the User mailing list archive at Nabble.com. _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user