> 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
