其他分享
首页 > 其他分享> > 用lilypond自带案例编命令:给一列音加Staccato

用lilypond自带案例编命令:给一列音加Staccato

作者:互联网

lilypond有一个教学,是如何设计一个命令为音符加accent的,具体可看:

Extending LilyPond: 1.3.4 Adding articulation to notes (example)

 

但是,这个命令只适合加单音,不适合加在一列音上,所以把它稍加改造,可以加到一串音上,这样就能节省很多打代码的时间

例子:给一列音加上断奏记号(staccato)

命令格式:\addStaccato { 音列 }

要命令生效,需要将下面命令区的内容全部复制。

先贴效果,再贴代码

 

效果图:

 

 

 

%%%%%%%%%%%%% 以下是命令区,要使用该命令请复制全部内容 %%%%%%%%%%%%%

%%%%%%%%%%%%% 基础指令区 %%%%%%

#(define (get-elements mymusic)
   (ly:music-property mymusic 'elements)
   )

#(define (get-sequential-music mymusic)
   (ly:music-deep-copy mymusic)
   )

%%%%%%%%%%%%% 根据官方文档改造得来 %%%%%%%%%%%%%%%%

addStaccatoSingle = 
#(define-music-function (note-event) (ly:music?)
  (set! (ly:music-property note-event 'articulations)
        (cons (make-music 'ArticulationEvent
                'articulation-type "staccato")
              (ly:music-property note-event 'articulations)))
  note-event)

%%%%%%%%%%%%% 把单音上的命令运用到音列上 %%%%%%%%%%%%

addStaccato=
#(define-music-function (mymusic) (ly:music?)
   (make-sequential-music
   (map addStaccatoSingle
         (get-elements(ly:music-deep-copy mymusic))
)))

%%%%%%%%%%%%%% 命令区结束,复制到此为止 %%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%% 下面是试验效果 %%%%%%%%%%%%%%%%%%

MyNote ={
  % 这是做实验用的音符
  c'4 d'
}

\markup {"这是原来的样子"}

{ \MyNote }

\markup {"这是加了命令的样子"}

{ \addStaccato \MyNote }

 

标签:mymusic,event,命令,Staccato,music,音加,%%%%%%%%%%%%%,lilypond,ly
来源: https://www.cnblogs.com/lilypondgaspard/p/15677986.html