\version "2.20.0"

\language "english"

\paper {

  #(set-paper-size "a6")

}

%这个文档讨论用scheme编写函数来改变乐谱元素

{c'}

%用override命令可以修改音符的颜色

\markup {"用\override把音符修改成红色，但是命令比较长"}

{

  \override NoteHead.color = #red

  c'

}

% \override命令太长，不直观

% 所以干脆设定一个\blueNote命令，这样用的时候不用打那么长的代码

blueNote =

#(define-music-function

  (my-music)				;;引用变量，自由设名字，数量不限

    (ly:music?)				;;变量类型，要和前面的变量对应

    ;;以下是函数的执行

    ;;在scheme里使用lilypond语言，需要加上括号#{和#}

    #{

      \override NoteHead.color = #blue

      $my-music				% “$”表示引用

    #})

\markup {"设置完\blueNote命令后，实现的代码变简单了"}

% 看看下面，是不是比\override命令简短多了？

{

  \blueNote c'

}

%更复杂的功能当然也能实现，比如由用户指定颜色

colorNote =

#(define-music-function

  (my-color my-music)				;;先颜色还是先音符，可以自己定，但是调用时要注意保持顺序

    (color? ly:music?)

    #{

      \override NoteHead.color = #my-color	% 到时候输入什么颜色，就变成什么颜色

      $my-music

    #})

\markup {"设置完\colorNote命令，可以指定任意颜色，比如绿色"}

{

  \colorNote #green c' %记得要按函数里设定的顺序输入

}