Dies ist das Archiv des alten Forums (bis März 2017). Das aktuelle Forum ist unter https://lilypondforum.de zu finden. This is the archive of the old forum (until March 2017). You can find the current forum at https://lilypondforum.de.
\markup{D \hspace #-5.2/ \super "7" }
#(define-markup-command (diagonal-stroke layout props arg) (markup?) #:category font #:properties ((font-size 0) (thickness 1.5) (extension 0.07)) (let* ((thick (* (magstep font-size) (ly:output-def-lookup layout 'line-thickness))) (underline-thick (* thickness thick)) (markup (interpret-markup layout props arg)) (x1 (car (ly:stencil-extent markup X))) (x2 (cdr (ly:stencil-extent markup X))) (y1 (car (ly:stencil-extent markup Y))) (y2 (cdr (ly:stencil-extent markup Y))) (dx (* extension (- x2 x1))) (dy (* extension (- y2 y1))) (line (make-line-stencil underline-thick (- x1 dx) (- y1 dy) (+ x2 dx) (+ y2 dy)))) (ly:stencil-add markup line)))\relative c'' << { <g e c>1 <a f d> <b g e> <c a f> <d b g> <e c a> <f d b> } \lyrics { T Sp Dp S D Tp \markup { \concat { \diagonal-stroke D \super "7" } } }>>
Übrigens: im Markup nimmt jetzt die Anweisung \halign diese "Verschiebfunktion"
\markup { \diagonal-stroke "abcdefg" }
\markup { \diagonal-stroke \score { \relative c' { \repeat unfold 4 c1 \break \repeat unfold 4 c1 } \layout { indent = 30 short-indent = 30 line-width = 60 } }}