\quoteDuring und \articulate

[fugenkomponist]

Hallo allerseits,

weiß jemand, warum sich \articulate nicht auf zitierte Musik auswirkt?

Code: [Auswählen]

\version "2.19.20"
\include "articulate.ly"

% kürzt Noten auf 1/2 statt 7/8 für bessere Hörbarkeit
#(define ac:normalFactor '(1 . 2))

vlI = { d'2 d' }
\addQuote "vlI" \vlI

vlII = { d'2 \quoteDuring "vlI" s2}

\score {
  \articulate <<
    \new Staff \with {
      midiInstrument = "violin"
    } \vlI
    \new Staff \with {
      midiInstrument = "violin"
    } \vlII
  >>
  \layout { }
  \midi { }
}Zum Nachhören ist mindestens LilyPond 2.19.19 erforderlich, weil vorher zitierte Musik nicht ins MIDI kam.

[harm6]

Wenn Du

Code: [Auswählen]

#(display-scheme-music vlII)betrachtest, siehst Du dasselbe was auch articulate als Eingabe bekommt.

Ein SkipEvent wird von articulate nicht bearbeitet.
Somit entsteht folgerichtig:

Code: [Auswählen]

#(display-scheme-music (articulate vlII))
articulate ist eine Musikfunktion die als solche zu früh in das Geschehen einzugreifen versucht.
Zumindest ist das meine Vermutung, denn meine kleine test-Funktion 'foo' hat das gleiche Problem:

Code: [Auswählen]

\version "2.19.22"
\include "articulate.ly"       

foo =
#(define-music-function (music)(ly:music?)
(music-map
  (lambda (m)
    (if (music-is-of-type? m 'note-event)
        (begin
          (ly:music-set-property! m 'tweaks
            (acons 'color red
              (ly:music-property m 'tweaks)))
          m)
        m))
  music))

% kürzt Noten auf 1/2 statt 7/8 für bessere Hörbarkeit
#(define ac:normalFactor '(1 . 2))

vlI = { d'2 dis' }
\addQuote "vlI" \vlI

vlII = { d'2 \quoteDuring "vlI" s2 }

\score {
  \foo
  \articulate <<
    \new Staff \with {
      midiInstrument = "violin"
    } \vlI
    \new Staff \with {
      midiInstrument = "violin"
    } \vlII
  >>
  \layout { }
  \midi { }
}

Gruß,
  Harm

[fugenkomponist]

Danke für deine Antwort. Das klingt ja so, als ließe sich da wenig machen. Ich probier aber trotzdem nachher oder morgen mal, mich da reinzuwühlen und vielleicht nen geeigneten Angriffspunkt zu finden.

[harm6]

Das einzige was ich gefunden habe, ist \articulate schon auf das Argument von \addQuote anzuwenden.

Code: [Auswählen]

\addQuote "vlI" \articulate \vlI
Das wird dann aber natürlich dauerhaft verändert.
Kann man vielleicht mit \tag beheben, hab ich aber nicht versucht...

Gruß,
  Harm

[fugenkomponist]

Hmja, da müsste man dann halt

Code: [Auswählen]

\addQuote "vlImidi" \articulate \vlI
\addQuote "vlIscore" \vlIund \tag beim Zitieren arbeiten, denn ich will ja auch eine les- und druckbare Partitur haben

Ist jetzt auch nicht so wichtig, midi ist sowieso nicht das Gelbe vom Ei für das Überprüfen, wie ein Stück wohl klingt, aber ich dachte, besser mit \articulate als ohne (v. a. auch wegen so Dingen wie c2:8 c: c: c: etc., die \unfoldRepeats ja nicht zu Achteln macht).

slightly off-topic: \articulate tut nicht mehr mit 2.19.22, aufgrund ähnlicher Fehlermeldungen vermute ich, dass articulate.ly noch nicht vollständig auf diese „parser-und-location-brauchen-wir-nicht-mehr-in-Musikfunktionen“-Änderung eingegangen ist.

[harm6]

slightly off-topic: \articulate tut nicht mehr mit 2.19.22, aufgrund ähnlicher Fehlermeldungen vermute ich, dass articulate.ly noch nicht vollständig auf diese „parser-und-location-brauchen-wir-nicht-mehr-in-Musikfunktionen“-Änderung eingegangen ist.

Das war issue 4471 ist in 2.19.23 (kommt bald) gefixt.

Kannst Du aber auch für 2.19.22 selbst machen. Siehe den patch-diff:
https://codereview.appspot.com/250830043/diff/1/scm/music-functions.scm

[fugenkomponist]

Vielen Dank für den Hinweis! Hab im issue-tracker geschaut, aber nicht genug verstanden von der Fehlermeldung, um den richtigen Suchbegriff zu verwenden (denn articulate wird ja nicht erwähnt). Dieser einfache Patch ist durchaus von Hand anwendbar Das ist übrigens das erste Mal, dass ich merke, dass eine sog. unstabile Version wirklich irgendwo kaputt ist (was ja ihr gutes Recht ist, auch wenn man es natürlich gern vermeidet), die Entwickler leisten gute Arbeit

[fugenkomponist]

In diesem Thread geht es um Zitate, die Zitate zitieren, was in LilyPond leider nicht einfach so funktioniert. Eine Möglichkeit, die genannt wurde, war, mit ly:score-music und scorify-music zu arbeiten. Ich dachte mir, vielleicht könnte ein ähnlicher Ansatz auch hier helfen. Tut er aber nicht.

Code: [Auswählen]

\version "2.19.22"
\include "articulate.ly"

foo = \relative {
  c'1 |
  g' |
}
\addQuote "foo" \foo

baz = \relative {
  c''1 |
  \quoteDuring "foo" s1 |
}

\markup "ganz normaler score << \foo \baz >>:"

<<
  \foo
  \baz
>>

\markup "\articulate auf den score geschmissen artikuliert keine Zitate:"

\articulate <<
  \foo
  \baz
>>

\markup "\articulate \foo:"

\displayMusic \articulate \foo

\markup "\articulate #(ly:score-music (scorify-music foo)) geht schon kaputt ohne Zitate:"

\displayMusic \articulate #(ly:score-music (scorify-music foo))

\markup "Merkwürdigerweise sind beide Ausgaben von \display*Lily*Music der letzten beiden Beispiele gleich."Es gehen Pausen verloren und die barchecks gehen schief. Wenn man jetzt noch kleinere Notenwerte verwendet und an ac:normalFactor, dem Faktor, auf den normale Noten verkürzt werden, dreht (per #(define ac:normalFactor '(1 . 2)) o. ä.), dann sieht man, dass sich da auch einiges im Notenbild tut, es gehen sogar Noten verloren.

Hier mal ein diff (mit Option -y) der beiden \displayMusic-Ausgaben:

Code: [Auswählen]

(make-music (make-music
  'RelativeOctaveMusic   'RelativeOctaveMusic
      >   'length
      >   (ly:make-moment 2)
  'element   'element
  (make-music   (make-music
    'SequentialMusic     'SequentialMusic
      >     'length
      >     (ly:make-moment 2)
    'elements     'elements
    (list (make-music     (list (make-music
            'SequentialMusic             'SequentialMusic
            'elements             'elements
            (list (make-music             (list (make-music
                    'EventChord                     'EventChord
                    'elements                     'elements
                    (list (make-music                     (list (make-music
                            'NoteEvent                             'NoteEvent
      >                             'length
      >                             (ly:make-moment 1)
                            'duration                             'duration
                            (ly:make-duration 0 0 7/8)                             (ly:make-duration 0 0 7/8)
                            'pitch                             'pitch
                            (ly:make-pitch 0 0))))                             (ly:make-pitch 0 0))))
                  (make-music                   (make-music
                    'EventChord                     'EventChord
                    'elements                     'elements
                    (list (make-music                     (list (make-music
                            'RestEvent                             'RestEvent
                            'duration                             'duration
                            (ly:make-duration 0 0 1/8))))))                             (ly:make-duration 0 0 1/8))))))
          (make-music           (make-music
            'SequentialMusic             'SequentialMusic
            'elements             'elements
            (list (make-music (quote BarCheck))))       |             (list (make-music
      >                     'BarCheck
      >                     'length
      >                     (ly:make-moment 0))))
          (make-music           (make-music
            'SequentialMusic             'SequentialMusic
            'elements             'elements
            (list (make-music             (list (make-music
                    'EventChord                     'EventChord
                    'elements                     'elements
                    (list (make-music                     (list (make-music
                            'NoteEvent                             'NoteEvent
      >                             'length
      >                             (ly:make-moment 1)
                            'pitch                             'pitch
                            (ly:make-pitch 0 4)                             (ly:make-pitch 0 4)
                            'duration                             'duration
                            (ly:make-duration 0 0 7/8))))                             (ly:make-duration 0 0 7/8))))
                  (make-music                   (make-music
                    'EventChord                     'EventChord
                    'elements                     'elements
                    (list (make-music                     (list (make-music
                            'RestEvent                             'RestEvent
                            'duration                             'duration
                            (ly:make-duration 0 0 1/8))))))                             (ly:make-duration 0 0 1/8))))))
          (make-music           (make-music
            'SequentialMusic             'SequentialMusic
            'elements             'elements
            (list (make-music (quote BarCheck)))))))       |             (list (make-music
      >                     'BarCheck
      >                     'length
      >                     (ly:make-moment 0)))))))
Es scheint so, als würden da irgendwie noch length-Eigenschaften festgesetzt während des ly:scorify-music. Mir ist jetzt nicht ganz klar, was length und duration tun; kann es sein, dass length die Länge bis zum nächsten Event und duration die Länge des aktuellen Events ist? Falls ja, wäre dieser Ansatz ja von vorneherein zum Scheitern verurteilt, oder?

[harm6]

Offensichtlich setzt die \score-function das 'length-property, \articulate aber nicht. Das kollidiert.

Schau mal, ob die brutalst-mögliche Herangehensweise zuviel kaputtmacht:

Code: [Auswählen]

\version "2.19.24"

\include "articulate.ly"

test =
#(define-music-function (music)(ly:music?)
  (music-map
     (lambda (m)
       (if (music-is-of-type? m 'rhythmic-event)
           (begin
             (ly:music-set-property! m 'length '())
             m)
           m))
     (articulate
       (ly:score-music
         (scorify-music (ly:music-deep-copy music))))))
   
foo = \relative {
  c'1 |
  g' |
}

baz = \relative {
  cis''1 |
  \quoteDuring "foo" s1 |
}

\addQuote "foo" \test \foo

\score {
  \articulate
  <<
    \foo
    \baz
  >>
}

Gruß,
  Ham

[fugenkomponist]

Hmja, leider löst das mein Problem nicht. Ich hab mal dein \test aufgeteilt, sodass \test das gleiche tut (oder tun sollte) wie \addLengths \articulate \scoreScorify:

Code: [Auswählen]

\version "2.19.22"
\include "articulate.ly"

scoreScorify =
#(define-music-function (music) (ly:music?)
   (ly:score-music
    (scorify-music
     (ly:music-deep-copy music))))

addLengths =
#(define-music-function (music) (ly:music?)
   (music-map
    (lambda (m)
      (if (music-is-of-type? m 'rhythmic-event)
          (begin
           (ly:music-set-property! m 'length '())
           m)
          m))
    music))

foo = \relative {
  c'1 |
  g' |
}
\addQuote "foo" \addLengths \articulate \scoreScorify \foo

baz = \relative {
  c''1 |
  \quoteDuring "foo" s1 |
}

\foo

\baz

\articulate \foo

\articulate \bazDas Problem ist, dass damit \articulate wieder im \addQuote steht (und damit artikuliert \baz schon das Zitat ohne \articulate \baz). Nehm ich es da raus, hab ich den gleichen Effekt wie ohne \scoreScorify und \addLengths (\baz artikuliert das Zitat nicht, wenn man \articulate dranschreibt). Das einzige, was \addLengths ändert, ist, dass \articulate \scoreScorify \foo nicht mehr kaputt geht, wenn man \addLengths vornedran schreibt (also \test \foo). Aber dieses Problem kam ja erst mit meinem erfolglosen Versuch auf, \scoreScorify irgendwie auf mein Problem zu werfen … Ich hab jetzt auch verschiedene Varianten versucht, \scoreScorify an alle möglichen Stellen zu schreiben, jedoch ohne den erhofften Effekt.

Edit: Gut möglich, dass es in diese Richtung nicht groß weiter geht, ich hatte bloß diese spontane Idee aus dem Nachbarthread …

[harm6]

Ich habe dann doch noch einiges dran gearbeitet.

Zunächst mal eine Definition die es erlaubt sich anzeigen zu lassen welche QuoteMusic dem parser in welcher Form bekannt ist.

Code: [Auswählen]

\version "2.19.24"

I = { dis'2 dis' }
II = { ces'2 \quoteDuring "I" s2}


\addQuote "I" \I
\addQuote "II" \II
\addQuote "III"  #(ly:score-music (scorify-music (ly:music-deep-copy II)))

#(define* (music-quotes-info #:optional (name "")(print #f))
 (let* ((music-quotes-list
          (hash-map->list cons (ly:parser-lookup 'musicQuotes)))
        (quote-vector (assoc-get name music-quotes-list #()))
        (quote-list (vector->list quote-vector)))
  (cond ((string-null? name)
         (display-scheme-music music-quotes-list))
        ((and (not (null? quote-list)) print)
         (make-sequential-music
           (map
             (lambda (m) (ly:prob-property (caadr m) 'music-cause))
             quote-list)))
        (else (display-scheme-music
                (make-sequential-music
                  (map
                    (lambda (m) (ly:prob-property (caadr m) 'music-cause))
                    quote-list)))))))

%% raw data of all quotes
#(music-quotes-info)

%% `display-scheme-music' the quotes named "I"/"II"/"III" as sequential music
#(music-quotes-info "I")
#(music-quotes-info "II")
#(music-quotes-info "III")

%% set `print' #t and use $ to get it printed
$(music-quotes-info "I" #t)
$(music-quotes-info "II" #t)
$(music-quotes-info "III" #t)

EDIT: Kommentar im Code korrigiert

Wenn man die Rohdaten genau analysiert stellt man fest, daß für Quote III die zitierte Musik gespeichert wird im Gegensatz zu Quote II.

Mein Gedanke war jetzt, wenn etwas da ist, dann wird man wohl auch irgendwie Zugriff erlangen können, um diese Daten dann zu manipulieren und weiter zu verwenden:

Code: [Auswählen]

\version "2.19.24"

\include "articulate.ly"
   
#(define (return-increasing-moms l1 rl)
"
Expects a paired list, with a moment as car and a music-event as cdr.
This list is transformed into a paired list where the car shows when the event
happens.
(list (cons (ly:make-moment 1/2)
            (make-music
              'NoteEvent
              'length
              (ly:make-moment 1/2)
              'pitch
              (ly:make-pitch 1 0 1/2)
              'duration
              (ly:make-duration 1)))
      (cons (ly:make-moment 1/2)
            (make-music
              'NoteEvent
              'length
              (ly:make-moment 1/2)
              'pitch
              (ly:make-pitch 1 0 1/2)
              'duration
              (ly:make-duration 1))))
==>
(list (cons (ly:make-moment 0)
            (make-music
              'NoteEvent
              'length
              (ly:make-moment 1/2)
              'duration
              (ly:make-duration 1)
              'pitch
              (ly:make-pitch 1 0 1/2)))
      (cons (ly:make-moment 1/2)
            (make-music
              'NoteEvent
              'length
              (ly:make-moment 1/2)
              'pitch
              (ly:make-pitch 1 0 1/2)
              'duration
              (ly:make-duration 1))))
"
  (if (null? l1)
      (reverse rl)
      (return-increasing-moms
        (cdr l1)
        (cons
          (cons
            (ly:moment-add
              (caar l1)
              (if (null? rl) (ly:make-moment 0) (caar rl)))
            (cdar l1))
            rl))))
           
#(define (replace-music-of-type type l1 l2 rl)
"Expects two list of the type `return-increasing-moms' returns. Music of type
@var{type} in l1 is replaced by the relevant entries of l2."
  (if (null? l1)
      (reverse rl)
      (cond ((music-is-of-type? (cdar l1) 'rhythmic-event)
              (replace-music-of-type type (cdr l1) l2 (cons (car l1) rl)))
            ((equal? (ly:music-property (cdar l1) 'name) type)
             (let* ((at (caar l1))
                    (nxt-at (caadr l1))
                    (real-mus
                      (filter
                        (lambda (x)
                          (and (not (ly:moment<? (car x) at))
                               (ly:moment<? (car x) nxt-at)))
                        l2)))
             (replace-music-of-type type (cdr l1) l2 (append (reverse real-mus) rl))))
            (else (ly:error "Something is wrong.")))))
           
#(define (replace-quotes-with-real-music music)
"Returns sequential music.
'length-property is set '()
'quoted-events are not cited but inserted into the music-flow.
"
  (let* (;; get access to 'quoted-events, better to use a copy
         (music-copy
           (ly:score-music (scorify-music (ly:music-deep-copy music))))
         (evts (extract-named-music music-copy 'QuoteMusic)))
         
    (if (null? evts)
        ;; If no 'QuoteMusic, clear 'length and return.
        (music-map
          (lambda (m)
            (if (music-is-of-type? m 'rhythmic-event)
                (begin
                  (ly:music-set-property! m 'length '())
                  m)
                m))
          music-copy)
        (let* ((quoted-events-lst
                 (vector->list (ly:music-property (car evts) 'quoted-events)))
               ;; creates an alist with the moment when it happens and the
               ;; music there from the `quoted-events-lst'
               ;; TODO this whole approach feels clumsy ...
               (mom-evt-alist
                 (map
                   (lambda (x)
                     (cons (caar x) (ly:prob-property (caadr x) 'music-cause)))
                   quoted-events-lst))
               ;; a list to accumulate moment and music as pairs from the
               ;; music-copy
               (mls '())
               ;; somewhat tricky, a list to accumulate moments
               ;; used to get the moments correct later
               (moms (list (ly:make-moment 0))))

          ;; needed to set `mls'
          (for-some-music
            (lambda (m)
              (and (or (music-is-of-type? m 'rhythmic-event)
                       (equal? (ly:music-property m 'name) 'QuoteMusic))
                   (set! mls (cons (cons (car moms) m) mls))
                   (set! moms (cons (ly:music-property m 'length) moms))
                   m))
            music-copy)

          ;; replace the 'QuoteMusic with the relevant events
          ;; returning sequential music
          (let ((replaced-elts
                  (map
                   (lambda (x)
                     (ly:music-set-property! (cdr x) 'length '())
                     (cdr x))
                   (replace-music-of-type
                     'QuoteMusic
                     (return-increasing-moms (reverse mls) '())
                     mom-evt-alist
                     '()))))
            (make-sequential-music replaced-elts))))))   
replaceQuotes =
#(define-music-function (music)(ly:music?)
  (replace-quotes-with-real-music music))

%%%%%%%%%%%%%%%%%%%%%%%%
%% EXAMPLE
%%%%%%%%%%%%%%%%%%%%%%%%

foo = \relative c {
  c'2 c |
  ges' ges |
  aisis16 aisis aisis aisis aisis2. |
  b1 |
}

baz = \relative {
  cis''2 cis |
  d2 d
  \quoteDuring "foo" s1 |
  des4 des des des
}

bla = {
  c'8 d' e' f' g' a' b' c''
  c'8 d' e' f'   
  \quoteDuring "baz" s1*2
  g'8 a' b' c''
}

blaII = {
  bes4
  \quoteDuring "bla" { s1*3 s2 }
  bes4
}
\addQuote "foo" \replaceQuotes \foo
\addQuote "baz" \replaceQuotes \baz
\addQuote "bla" \replaceQuotes \bla
\addQuote "bla" \replaceQuotes \blaII

%\displayMusic
\foo
%\displayMusic
\baz
%\displayMusic
\bla
%\displayMusic
\blaII

%% needs to be stored in a variable before, otherwise \articulate would map
%% through one music-expression after the other disturbing \replaceQuotes
mus =
  <<
    \foo
    \replaceQuotes \baz
    \replaceQuotes \bla
    \replaceQuotes \blaII
  >>
 
\score {
  \articulate
  \mus
}

Zumindest für die Minimalbeispiele ist das Zitieren von Zitaten möglich.
Um \articulate zu verwenden muß man das Ergebnis vorher in eine Variable packen und erst danach aufrufen.

Das Ganze ist mit Sicherheit noch in größtem Ausmaß verbesserungsfähig und eigentlich erwarte ich noch zahlreiche bugs, sobald man größere real-life Beispiele versucht.


HTH,
  Harm

[harm6]

Hallo fugenkomponist,

hat Dir der Code aus meinem letzten post hier eigentlich geholfen oder war es völlig daneben?

Gruß,
  Harm

[fugenkomponist]

Tut mir leid, dass ich noch nicht geantwortet habe, wo du dir doch so viel Mühe gegeben hast, vielen Dank dafür schonmal Mir sind in letzter Zeit so viele Dinge aufgefallen, die ich am PDF-Output und an der Benutzung verbessern würde, dass ich articulate/MIDI erstmal hintenan gestellt habe. Dabei kommen vielleicht ja auch ein paar Dinge für openlilylib raus Ich habe aber diesen Thread als ungelesen markiert (und werds gleich wieder tun), damit ich ihn nicht vergesse. Jedenfalls sehen deine kleinen Beispiele schon sehr vielversprechend aus und ich werd mich innerhalb der nächsten Tage mal dransetzen, das in meine Partitur zu integrieren, dann berichte ich von meinen Erfahrungen.

[fugenkomponist]

Ein erster Test hat ergeben, dass es Probleme gibt, wenn ein Zitat ganz am Ende eines Stücks auftaucht.

Code: [Auswählen]

\include "replaceQuotes.ily"

foo = \relative {
  c'4 d e f g a b c
}
\addQuote "foo" \replaceQuotes \foo

baz = \relative {
  c'4 c c c \quoteDuring "foo" s1
}
\addQuote "baz" \replaceQuotes \baz

\bazDas kann man aber beheben, indem man nach das \quoteDuring noch ein s1*0 schreibt. Ich verwende im Moment auch die hier erwähnte Funktion alignTo, die aus anderen Gründen ebenfalls ein s1*0 am Ende braucht, also ist das erstmal nicht weiter schlimm

[off-topic]Ich wollte mich eigentlich mal drum kümmern, dass ich alignTo beibringe, dass es ohne s1*0 auskommt …[/off-topic]

[harm6]

Ich hatte doch das vage Gefühl etwas vergessen zu haben ...

Ersetze das alte `replace-music-of-type' durch

Code: [Auswählen]

#(define (replace-music-of-type type l1 l2 rl)
"Expects two list of the type `return-increasing-moms' returns. Music of type
@var{type} in l1 is replaced by the relevant entries of l2."
  (if (null? l1)
      (reverse rl)
      (cond ((music-is-of-type? (cdar l1) 'rhythmic-event)
             (replace-music-of-type type (cdr l1) l2 (cons (car l1) rl)))
            ((null? (cdr l1))
             ;(display-scheme-music l2)
             l2)
            ((equal? (ly:music-property (cdar l1) 'name) type)
             (let* ((at (caar l1))
                    (nxt-at (caadr l1))
                    (real-mus
                      (filter
                        (lambda (x)
                          (and (not (ly:moment<? (car x) at))
                               (ly:moment<? (car x) nxt-at)))
                        l2)))
               (replace-music-of-type type
                 (cdr l1) l2 (append (reverse real-mus) rl))))
            (else (ly:error "Something is wrong.")))))

Und schau mal wie weit Du damit kommst.


Gruß,
  Harm