Re: Feature Request: Chromatic note names

[address@hidden]

> 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.