Re: ly:pitch and string
Simon Albrecht-2 wrote > Thanks for your help in improving the helper functions; however, > ‘inverting’ string-append and cond seems to be based on a > misunderstanding. It needs to be Ah, I see now... I was "missing the forest for the trees." Cheers, -Paul -- View this message in context: http://lilypond.1069038.n5.nabble.com/ly-pitch-and-string-tp167397p167491.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
Re: ly:pitch and string
Hello Paul,
Thanks for your help in improving the helper functions; however,
‘inverting’ string-append and cond seems to be based on a
misunderstanding. It needs to be
%%
\version "2.19.12"
\language "deutsch"
pitch-to-key-string-german =
#(define-scheme-function
(parser location p mode)
(ly:pitch? string?)
(let*
((major? (equal? mode "major"))
(nn (ly:pitch-notename p))
(nn-string (if major?
(list-ref '("C" "D" "E" "F" "G" "A" "H") nn)
(list-ref '("c" "d" "e" "f" "g" "a" "h") nn)))
(alt (ly:pitch-alteration p))
(alt-num (+ 2 (* 2 (ly:pitch-alteration p
(alt-string (list-ref '("eses" "es" "" "is" "isis") alt-num))
;pitch without octave
(na (cons nn alt))
;helper functions for exceptions in german note naming
(test (lambda (n a) (equal? na (cons n a
(exc (lambda (ma mi) (if major? ma mi
(string-append nn-string
(cond
((test 2 -1) (exc "Eses" "eses"))
((test 2 -1/2) (exc "Es" "es"))
((test 5 -1) (exc "Asas" "asas"))
((test 5 -1/2) (exc "As" "as"))
((test 6 -1/2) (exc "B" "b"))
(else alt-string)
(cond
((test 2 -1) (exc "Eses" "eses"))
((test 2 -1/2) (exc "Es" "es"))
((test 5 -1) (exc "Asas" "asas"))
((test 5 -1/2) (exc "As" "as"))
((test 6 -1/2) (exc "B" "b"))
(else (string-append nn-string alt-string)
newTonic = disis'
newTonicString = \pitch-to-key-string-german \newTonic "major"
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
and then it works very well.
Yours, Simon
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
Re: ly:pitch and string
Simon Albrecht-2 wrote
> well, now I did try and make a function for german note names, which
> discerns major and minor also. Actually it works – the transposition is
> applied correctly and there are no unexpected messages – but at testing
> there seemed to be a memory problem: from some point onwards, the
> newTonicString was always "eses" regardless of the input. Perhaps the
> computer and I ought to go to sleep. (what a mad sentence that is…)
> And thanks again for your input, Paul.
Hi Simon, I see David has showed a better way. In the meantime, with a few
edits, I got your function working, so just for good measure, here it is.
Cheers,
-Paul
%%
\version "2.19.12"
\language "deutsch"
pitch-to-key-string-german =
#(define-scheme-function
(parser location p mode)
(ly:pitch? string?)
(let*
((major? (equal? mode "major"))
(nn (ly:pitch-notename p))
(nn-string (if major?
(list-ref '("C" "D" "E" "F" "G" "A" "H") nn)
(list-ref '("c" "d" "e" "f" "g" "a" "h") nn)))
(alt (ly:pitch-alteration p))
(alt-num (+ 2 (* 2 (ly:pitch-alteration p
(alt-string (list-ref '("eses" "es" "" "is" "isis") alt-num))
;pitch without octave
(na (cons nn alt))
;helper functions for exceptions in german note naming
(test (lambda (n a) (equal? na (cons n a
(exc (lambda (ma mi) (if major? ma mi
(string-append nn-string
(cond
((test 2 -1) (exc "Eses" "eses"))
((test 2 -1/2) (exc "Es" "es"))
((test 5 -1) (exc "Asas" "asas"))
((test 5 -1/2) (exc "As" "as"))
((test 6 -1/2) (exc "B" "b"))
(else alt-string)
newTonic = disis'
newTonicString = \pitch-to-key-string-german \newTonic "major"
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/ly-pitch-and-string-tp167397p167425.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
Re: ly:pitch and string
Hello David,
thanks, that’s exactly the kind of brief and elegant solution I was
hoping for.
Yours,
Simon
Am 11.10.2014 um 16:52 schrieb David Kastrup:
Simon Albrecht writes:
Hello,
consider the following setup:
%%
\version "2.19.12"
newTonic = d
newTonicString = "d"
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
For easy handling of different transpositions the ‘destination pitch’
is stored in a variable. It is of type ly:pitch?.
At the same time, I want to flag the output file with the key to which
the music has been transposed, and for this I need the destination
pitch notename as a string.
I’d like to avoid having to synchronise newTonic and newTonicString
manually, but I’ve been unable to find a convenient way to convert one
into the other. Can anybody help?
(use-modules (scm display-lily))
newTonicString = #(value->lily-string newTonic parser)
Note that the conversion requires the availability of "parser" since it
depends on the current value of the note name language.
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
Re: ly:pitch and string
Simon Albrecht writes:
> Hello,
>
> consider the following setup:
> %%
> \version "2.19.12"
>
> newTonic = d
>
> newTonicString = "d"
>
> \bookOutputSuffix #(string-append "in-" newTonicString)
>
> \score { \transpose c \newTonic { c' } }
>
> %%
>
> For easy handling of different transpositions the ‘destination pitch’
> is stored in a variable. It is of type ly:pitch?.
> At the same time, I want to flag the output file with the key to which
> the music has been transposed, and for this I need the destination
> pitch notename as a string.
> I’d like to avoid having to synchronise newTonic and newTonicString
> manually, but I’ve been unable to find a convenient way to convert one
> into the other. Can anybody help?
(use-modules (scm display-lily))
newTonicString = #(value->lily-string newTonic parser)
Note that the conversion requires the availability of "parser" since it
depends on the current value of the note name language.
--
David Kastrup
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
Re: ly:pitch and string
Hello again,
well, now I did try and make a function for german note names, which
discerns major and minor also. Actually it works – the transposition is
applied correctly and there are no unexpected messages – but at testing
there seemed to be a memory problem: from some point onwards, the
newTonicString was always "eses" regardless of the input. Perhaps the
computer and I ought to go to sleep. (what a mad sentence that is…)
And thanks again for your input, Paul.
Best, Simon
Am 10.10.2014 um 23:55 schrieb Simon Albrecht:
Hello Paul,
thanks a lot! I thought along the same lines also, but (1) my less
elegant coding and (2) the complications brought along by German
notenames would’ve made it too tedious.
Am 10.10.2014 um 23:44 schrieb Paul Morris:
Just for fun, another version, more compact, probably more cryptic:
%%
\version "2.19.12"
If you were to make an LSR snippet, I’d suggest making a Dutch version
pitch-to-string-dutch also (same for both coding variants):
pitch-to-string =
#(define-scheme-function (parser location p) (ly:pitch?)
(string-append
(list-ref '("C" "D" "E" "F" "G" "A" "B")
(ly:pitch-notename p))
(list-ref '("-Double-Flat" "-Flat" "" "-Sharp" "-Double-Sharp")
replace the latter list by '("eses" "es" "" "is" "isis")
(+ 2 (* 2 (ly:pitch-alteration p))
newTonic = d
newTonicString = \pitch-to-string \newTonic
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
Best regards, Simon
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
%%
\version "2.19.12"
\language "deutsch"
pitch-to-key-string-german =
#(define-scheme-function
(parser location p mode)
(ly:pitch? string?)
(let*
((major? (equal? mode "major"))
(nn (ly:pitch-notename p))
(nn-string (if major?
(list-ref '("C" "D" "E" "F" "G" "A" "H") nn)
(list-ref '("c" "d" "e" "f" "g" "a" "h") nn)))
(alt (ly:pitch-alteration p))
(alt-num (+ 2 (* 2 (ly:pitch-alteration p
(alt-string (list-ref '("eses" "es" "" "is" "isis") alt-num))
;pitch without octave
(na (cons nn alt))
;helper function for exceptions in german note naming
(exc (lambda (n a ma mi)
((equal? na (cons n a))
(if major? ma mi)
(cond
(exc 2 -1 "Eses" "eses")
(exc 2 -1/2 "Es" "es")
(exc 5 -1 "Asas" "asas")
(exc 5 -1/2 "As" "as")
(exc 6 -1/2 "B" "b")
(else (string-append nn-string alt-string)
newTonic = disis'
newTonicString = \pitch-to-key-string-german \newTonic "major"
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
Re: ly:pitch and string
Hello Paul,
thanks a lot! I thought along the same lines also, but (1) my less
elegant coding and (2) the complications brought along by German
notenames would’ve made it too tedious.
Am 10.10.2014 um 23:44 schrieb Paul Morris:
Just for fun, another version, more compact, probably more cryptic:
%%
\version "2.19.12"
If you were to make an LSR snippet, I’d suggest making a Dutch version
pitch-to-string-dutch also (same for both coding variants):
pitch-to-string =
#(define-scheme-function (parser location p) (ly:pitch?)
(string-append
(list-ref '("C" "D" "E" "F" "G" "A" "B")
(ly:pitch-notename p))
(list-ref '("-Double-Flat" "-Flat" "" "-Sharp" "-Double-Sharp")
replace the latter list by '("eses" "es" "" "is" "isis")
(+ 2 (* 2 (ly:pitch-alteration p))
newTonic = d
newTonicString = \pitch-to-string \newTonic
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
Best regards, Simon
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
Re: ly:pitch and string
Just for fun, another version, more compact, probably more cryptic:
%%
\version "2.19.12"
pitch-to-string =
#(define-scheme-function (parser location p) (ly:pitch?)
(string-append
(list-ref '("C" "D" "E" "F" "G" "A" "B")
(ly:pitch-notename p))
(list-ref '("-Double-Flat" "-Flat" "" "-Sharp" "-Double-Sharp")
(+ 2 (* 2 (ly:pitch-alteration p))
newTonic = d
newTonicString = \pitch-to-string \newTonic
% for testing:
#(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/ly-pitch-and-string-tp167397p167405.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
Re: ly:pitch and string
Simon Albrecht-2 wrote
> I’d like to avoid having to synchronise newTonic and newTonicString
> manually, but I’ve been unable to find a convenient way to convert one
> into the other. Can anybody help?
Hi Simon,
This does the job. I might contribute it to the LSR.
Cheers,
-Paul
%%
\version "2.19.12"
pitch-to-string =
#(define-scheme-function (parser location p) (ly:pitch?)
(let*
((pitch-num (ly:pitch-notename p))
(pitch-string (list-ref '("C" "D" "E" "F" "G" "A" "B") pitch-num))
(alt-num (+ 2 (* 2 (ly:pitch-alteration p
(alt-string (list-ref '("-Double-Flat" "-Flat" "" "-Sharp"
"-Double-Sharp") alt-num))
(note-string (string-append pitch-string alt-string)))
;; for testing:
;; (display note-string)
note-string))
newTonic = d
newTonicString = \pitch-to-string \newTonic
% for testing:
% #(display (string-append "in-" newTonicString))
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/ly-pitch-and-string-tp167397p167404.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
ly:pitch and string
Hello,
consider the following setup:
%%
\version "2.19.12"
newTonic = d
newTonicString = "d"
\bookOutputSuffix #(string-append "in-" newTonicString)
\score { \transpose c \newTonic { c' } }
%%
For easy handling of different transpositions the ‘destination pitch’ is
stored in a variable. It is of type ly:pitch?.
At the same time, I want to flag the output file with the key to which
the music has been transposed, and for this I need the destination pitch
notename as a string.
I’d like to avoid having to synchronise newTonic and newTonicString
manually, but I’ve been unable to find a convenient way to convert one
into the other. Can anybody help?
I thought of #(ly:parser-include-string ), but it returns an entire
sequential music expression instead of the pitch alone, plus it’s
difficult to wrap. And the other direction (compute newTonicString from
newTonic) seems to be even more difficult to achieve.
TIA, Simon
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
