Symbol für "Dämpfen" (Harfe)

[chf]

Liebe Freunde,

aus WIKIPEDIA erkenne ich, dass eine bestimmte Dämpfungsart auf der Harfe mit dem "Coda"-Zeichen dargestellt wird.
Die Harfenistin sagt mir, dass diese Einzeichnung ein Kreis mit einem darüber herausragenden Plus-Zeichen ist. .
Das wäre mir auch lieber, denn "Coda" ist ja nun mal anders definiert.
Nun habe ich versucht, sowas zu basteln,

                                       \markup {\circle \pad-markup #-.5 \fontsize #5 "+"}
 
aber leider wächst der Kreis mit dem Pluszeichen mit, lässt sich also nicht überragen.

Habt ihr eine Idee?

Gruß
chf

[Be-3]

Hallo Christa,

ich habe den \combine-Befehl benutzt, mit dem man wunderbar Markup-Zeichen überlagern kann und den Kreis mittels \draw-circle gezeichnet, dem man die drei Parameter Radius, Liniendstärke und ein ##f für "nicht gefüllt" übergibt.
Mit \translate kann man dafür sorgen, daß die beiden Zeichen erstens übereinander und zweitens zentriert über der Note stehen.

Code: [Auswählen]

\version "2.14.2"

\relative c'' {
  g4 c^\markup { \combine \translate #'(0.63 . 0) \draw-circle #0.7 #0.2 ##f  \translate #'(-0.55 . -1) \fontsize #5 "+" }
  a  c^\markup { \combine \translate #'(-0.5 . 0) \scale #'(1.2 . 1) "O"
                        %\combine \translate #'(0.52 . 0.8) \draw-circle #0.9 #0.0 ##f 
                        %\combine \translate #'(0.52 . 0.8) \draw-circle #1.1 #0.0 ##f 
                        %\combine \translate #'(0.52 . 0.8) \draw-circle #1.21 #0.0 ##f 
                           \combine \filled-box #'(-0.7 . 1.74) #'(0.75 . 0.85) #0
                                          \filled-box #'(0.47 . 0.57) #'(-0.3 . 1.9) #0 }
}

Änderung:
Ich habe noch mal nach dem Zeichen gesucht, denn ich war mit dem etwas martialisch anmutenden Kreuz nicht zufrieden. Wenn auch die Harfenistin als typographische Laiin von einem Pluszeichen mit Kreis darum spricht, scheint es sich eher um ein breites O mit einem Kreuz zu handeln.
Das Coda-Zeichen wäre im Prinzip die richtige Richtung, ist nur viel zu schmal, und wenn man es auf die passende Breite "zieht", stimmen die Proportionen nicht mehr.
Kurzum: mein zweiter Ansatz (rechts neben dem ursprünglichen Versuch) geht vom Buchstaben O aus, der etwas breiter skaliert wurde und dann mit \filled-box das Kreuz eingebaut bekam.
\filled-box habe ich \draw-line vorgezogen, weil ich eckige Kanten wollte.
Die auskommentierten konzentrischen Hilfs-Kreisel habe ich als Ausichtungshilfe der Elemente benutzt.

Beispiel-Code oben erweitert und angehängte Grafik ersetzt.

Jetzt darfst Du Dir was aussuchen 

Viele Grüße
Torsten

[chf]

Hallo Torsten,

die "Dampfharfe" ist gut gelungen, besten Dank!

Gruß
Christa

[chf]

Hallo Torsten,

es hat sich noch eine Frage ergeben:
Ich will das Zeichen in eine Liste mit Anmerkungen schreiben, ohne es an eine Note zu binden.
Dabei fällt es nach links "aus dem Rahmen" (s s^\markup...) wird offensichtlich nicht erkannt.
Wie kann ich das Symbol horizontal verschieben? Für "extra-offset" fehlt mir die Benennung - TextScript  bzw. Script zeigen keine Wirkung.

Gruß
Christa

[kilgore]

probiere es mal so!

Gruß
kil

Code: [Auswählen]

\version "2.14.2"
\paper {
  indent = #0
  top-margin = #20
  bottom-margin = #23
  left-margin = #20
  line-width = #170
  ragged-last-bottom = ##t
  ragged-right = ##t
  tagline = ##f       
}
\markup \fill-line \fontsize #1.5 \bold {"Anmerkungen zur Ausführung"\null \null}
\markup \fill-line {}
\markup \fill-line {}

\relative c' {
 
 {\override Score.TimeSignature #'stencil = #'() 
                \override Clef #'transparent = ##t
                \set Score.proportionalNotationDuration = #(ly:make-moment 1 4)
                \cadenzaOn e\startGroup f4 g a b c\stopGroup \cadenzaOff } \stopStaff \override TextScript #'extra-offset = #'(0 . 3)
s_\markup \column \fontsize #2 {"                        die so eingeklammerten Figuren können nach Belieben  "
                                "                        ein- bis zweimal wiederholt werden "}
}


slashOn = { 
        \override Stem #'stencil = #(lambda (grob)
                (let* ((x-parent (ly:grob-parent grob X))
                        (is-rest? (ly:grob? (ly:grob-object x-parent 'rest))))
                (if is-rest? empty-stencil
                        (ly:stencil-combine-at-edge
                                (ly:stem::print grob)
                                Y
                                (- (ly:grob-property grob 'direction))
                                (grob-interpret-markup grob
                                        (markup
                                        #:translate '(-0.75 . -2)
                                        #:draw-line '(2 . -3)))
                                -3 0))))
    }

slashOff = {
        \revert Stem #'stencil
}

\relative c'' {
   
\override Score.TimeSignature #'stencil = #'() 
                \override Clef #'transparent = ##t     
\once \override Stem #'stroke-style = #"grace" \slashOn a8[ \slashOff d a d] \stopStaff \override TextScript #'extra-offset = #'(0 . 3)
s_\markup \fontsize #2 "                    so schnell wie möglich"
}

\layout {
  \context {
          \Voice
            \consists "Horizontal_bracket_engraver"
    }
  }
\markup " "
\markup " "



\relative c' {
  \override Score.TimeSignature #'stencil = #'()
  \once \override Staff.NoteHead #'style = #'cross b'4_\markup {"*Tableau"}     
}
\markup " "
\relative c'' {
  \override Score.TimeSignature #'stencil = #'() \override Staff.BarLine #'transparent = ##t
  \override Staff.NoteHead #'style = #'xcircle g'2^\markup "*Tamb. hoch"  e,_\markup {"*Tamb. tief"} 
}


\markup " "
\markup " "
\markup " "
\markup \translate #'( 15 . -3 )
{ \combine \scale #'(1.2 . 1) \translate #'(-.4 . 0 ) "O"
          \combine \filled-box #'(-0.7 . 1.74) #'(0.75 . 0.85) #0
          \filled-box #'(0.47 . 0.57) #'(-0.3 . 1.9) #0 }


[chf]

Danke, kil!
Gruß
chf

[chf]

Liebe Freunde,

es hat sich eine unvermutete neue Schwierigkeit ergeben:
Das Symbol und der erläuternde Text sind so miteinander verbandelt, dass sich die Textzeile nicht auf die gleiche Höhe wie das Symbol bringen lässt (jedenfalls nicht von mir). Bei allen Versuchen verschiebt sich der  g a n z e  Ausdruck vertikal.
Die horizontale Verschiebung erfolgt unabhängig voneinander.
Sowie eine Notenzeile ediert wird, geht's auch vertikal, aber die unsichtbar machen kann ich wohl nicht...
Was ist zu tun?

Gruß
chf

[kilgore]

Hi chf,

Vorsicht, deine skips waren ausserhalb vom partitur! Einfache Markups reichen, und dabei kann das Text mit in dem selben Markup....

Code: [Auswählen]

\version "2.14.2"
\paper {
  indent = #0
  top-margin = #30
  bottom-margin = #23
  left-margin = #20
  line-width = #170
  ragged-last-bottom = ##t
  ragged-right = ##t
  tagline = ##f       
}
\markup \fill-line \fontsize #2 \bold {"Anmerkungen zur Ausführung"\null \null}
\markup \fill-line {}
\markup \fill-line {}
\markup \fill-line {}
\markup \fill-line {}
\markup \fill-line {}
\markup \fill-line {}
\relative c' {
 
 {\override Score.TimeSignature #'stencil = #'() 
                \override Clef #'transparent = ##t
                \set Score.proportionalNotationDuration = #(ly:make-moment 1 4)
                \cadenzaOn e\startGroup f4 g a b c\stopGroup \cadenzaOff } \stopStaff \override TextScript #'extra-offset = #'(0 . 5)
s_\markup \column \fontsize #1.5 {"              die so eingeklammerten Figuren können nach Belieben  "
                                "              ein- bis zweimal wiederholt werden "}
}


slashOn = { 
        \override Stem #'stencil = #(lambda (grob)
                (let* ((x-parent (ly:grob-parent grob X))
                        (is-rest? (ly:grob? (ly:grob-object x-parent 'rest))))
                (if is-rest? empty-stencil
                        (ly:stencil-combine-at-edge
                                (ly:stem::print grob)
                                Y
                                (- (ly:grob-property grob 'direction))
                                (grob-interpret-markup grob
                                        (markup
                                        #:translate '(-0.75 . -2)
                                        #:draw-line '(2 . -3)))
                                -3 0))))
    }

slashOff = {
  \revert Stem #'stencil
}
%\markup " "
\relative c'' {
   
\override Score.TimeSignature #'stencil = #'() 
                \override Clef #'transparent = ##t     
\once \override Stem #'stroke-style = #"grace" \slashOn a8[ \slashOff d a d] \stopStaff \override TextScript #'extra-offset = #'(0 . 3)
s_\markup \fontsize #1.5 "                 so schnell wie möglich"
}

\layout {
  \context {
          \Voice
            \consists "Horizontal_bracket_engraver"
    }
  }
  %\markup " "




\relative c' {
  \override Score.TimeSignature #'stencil = #'()
  \once \override Staff.NoteHead #'style = #'cross b'4_\markup {"*Tableau"} \stopStaff \override TextScript #'extra-offset = #'(0 . -5)
  s^\markup \column \fontsize #1.5 {"   "
                                                                                                                       "                      Klopfen auf den Resonanzkörper"}     
}
\markup " "
\relative c'' {
  \override Score.TimeSignature #'stencil = #'() \override Staff.BarLine #'transparent = ##t
  \override Staff.NoteHead #'style = #'xcircle g'2^\markup "*Tamb. hoch"  e,_\markup {"*Tamb. tief"} \stopStaff \override TextScript #'extra-offset = #'(0 . -8)
  s^\markup \fontsize #1.5 {"  "
                                                                                                                                        "            Schlagen auf die Saiten"}

}

%\markup " "
%\markup " "

\markup \translate #'(5 . -3) { \combine \translate #'(-0.5  . 0.1) \scale #'(1.2 . 1) "O"
                                                   \combine \filled-box #'(-0.7 . 1.74) #'(0.75 . 0.85) #0
                                                   \filled-box #'(0.47 . 0.57) #'(-0.3 . 1.9) #0
   \hspace #10 \fontsize #1.5 " Abdämpfzeichen"
}


   

Gruß
kil