scheme - 作为事后事件的一部分，我如何在笔记中添加 2 个关节？

Question

我从这里复制了这个例子，它工作正常，就像我只是输入了一样->。

dashPlus = #(let ((m (make-music 'ArticulationEvent
                          'articulation-type "accent")))
       (set! (ly:music-property m 'tweaks)
             (acons 'font-size -3
                    (ly:music-property m 'tweaks)))
       m)

但是，我试图弄清楚如何定义组合的 tenuto/marcato 发音，它在 Finale 文件 -> MusicXML -> .ly 过程中从我输入的 Finale （组合发音）到个人的某个地方以某种方式发生了变化marcato 发音和附加在同一音符上的单独的 tenuto 发音 ( -- ->)。

我怎样才能改变这一点，不仅添加一个口音，还添加两者的组合，并以某种方式操纵发音的script-priority值，使tenuto 总是堆放在离谱表最近的位置？（恐怕我对Scheme的掌握不是太强。我了解一些事情，但这完全超出了我的想象。）