-treble = \context Voice=treble \notes\relative c''{
- % Broken?
- \property Voice.NoteColumn \push #'horizontal-shift = #0
- \outputproperty #(make-type-checker 'text-item-interface)
- #'extra-offset = #'(-6 . 2)
- %% *Style* = Large??
- \property Voice.TextScript \push #'style = #"Large"
- r2^"Allegretto scherzando"
- \property Voice.TextScript \pop #'style
- %2
- \property Voice.Stem \pop #'direction
- \property Voice.Stem \push #'direction = #1
- r4 <cis\arpeggio eis a cis> r2
- %3
- r4 <cis\arpeggio fis a cis> r8.
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
- \translator Staff=bass
- % Get back
- \context Voice
- \outputproperty #(make-text-checker "m.d.")
- #'extra-offset = #'(-3 . -4)
- % currently, this can't be (small) italic, because in the paperblock
- % we set italic_magnifictation to get large italics.
- cis,16^2^"m.d."( <fis8 fis,> <e! e,!>
- %4
- <)dis,4 a' dis>
- % Urg, this lifts us up to staff context
- \translator Staff=treble
- % Get back
- \context Voice
- \property Voice.Slur \pop #'direction
- \property Voice.Slur \push #'direction = #1
- \property PianoStaff.connectArpeggios = ##t
- \property Voice.TextSpanner \pop #'type
-
- %% Ghostview is ok, but xdvi shows a solid line
- \property Voice.TextSpanner \push #'line-thickness = #2
- \property Voice.TextSpanner \push #'dash-period = #0.5
-
- \property Voice.TextSpanner \push #'type = #"dotted-line"
- \property Voice.TextSpanner \push #'edge-height = #'(0 . 1.5)
- \property Voice.TextSpanner \push #'edge-text = #'("8 " . "")
- % Huh, urg? Implicit \context Staff lifts us up to Staff context???
-
- % no, see seq-mus-iter --hwn
- \property Staff."c0-position" = #-13
-
-
- % Get back
- %\context Voice
- \outputproperty #(make-text-checker "m.g.")
- #'extra-offset = #'(-3 . -2)
- % currently, this can't be (small) italic, because in the paperblock
- % we set italic_magnifictation to get large italics.
- cis''''4^"m.g."\arpeggio \spanrequest \start "text" (
-
-#ifndef FAKE_GRACE
-
- \property Voice.Stem \pop #'direction
-
- % grace is a mess
- % maybe we should fake this and put 5/4 in this bar?