\new Staff \relative c'' <<
\set Staff.instrumentName = "orig+quote"
\set Staff.quotedEventTypes = #'(note-event articulation-event)
- \new Voice {
- \override Voice . Beam #'collision-voice-only = ##t
+ \new Voice {\voiceOne
\original }
- \new Voice {
+ \new Voice {\voiceTwo
s4
\set fontSize = #-4
\override Stem #'length-fraction = #(magstep -4)