Archiviertes Lilypond Forum (2017)

Hallo,

ich versuche den tweak-Befehl aus

\version "2.12.3"

#(define pi  3.141592654)

\relative c'' {
  \set fingeringOrientations = #'(left)
  \displayMusic
  <c-5
  -\tweak #'text #(markup  #:line (" "
          #:raise -1.8
          #:pad-x 0.5
          #:draw-line (cons 1.5 (* 1.5 (tan (* (* 2 pi) (/ 24 360)))))))
-5>
}

in einen scheme-Ausdruck zu übersetzen.

(Der car-Wert in draw-line ist die übliche horizontale Ausdehnung hier: 1.5
Als cdr-Wert möchte ich den Winkel zw. X-Achse und Hypotenuse haben hier: 24°. Deshalb die aufwendige Umrechnung erst ins Bogenmaß und dann die Bestimmung des y-Wert mittels der umgeformten tangens-Gleichung.)

Mit Anleitung durch http://lilypond.org/doc/v2.12/Documentation/user/lilypond/Using-Scheme-code-instead-of-_005ctweak#Using-Scheme-code-instead-of-_005ctweak habe ich

\version "2.12.3"

#(define pi  3.141592654)

E = #(let ((m (make-music 'FingeringEvent
                          'digit 5 )))
       (set! (ly:music-property m 'tweaks)
             (acons list (list 'text
              line-markup
              (list (markup #:line
              (#:simple " "
              #:raise -1.8
              (#:pad-x 0.5
              (#:draw-line (cons 1.5  (* 1.5 (tan (* (* 2 pi) (/ 24 360)))))))))))
                    (ly:music-property m 'tweaks)))
       m)

\relative c'' {
       
  \set fingeringOrientations = #'(left)
  \displayMusic         

  <c-5-\E>
}

erstellt, was fast richtig ist wie \displayMusic  zeigt, aber noch ohne die gewünschte Linie.

Nun komme ich nicht weiter.

Weiß jemand Rat?

Gruß,
  Harm

Nach einem längeren Lernprozeß habe ich es hinbekommen.
Richtig ist:

\version "2.12.3"

#(define pi  3.141592654)

E = #(let ((m (make-music 'FingeringEvent
                          'digit 5 )))
       (set! (ly:music-property m 'tweaks)
             (list (list 'text
              line-markup
              (list (markup
            #:line
            (#:simple
            " "
            #:raise
            -1.8
                (#:pad-x
              0.5
            (#:draw-line (cons 1.5 (* 1.5 (tan (* (* 2 pi) (/ 24 360)))))))))))))
       m)

\relative c'' {
       
  \set fingeringOrientations = #'(left)     
<c-5-\E>
}