颜色便签，取决于其持续时间（荔枝形）

Question

不幸的是，我对Lilypond / scheme语法不太了解。我想做的基本上是这样的（用伪代码）：

if (noteDuration is quarter) => make noteHead blue  
if (noteDuration is half) => make noteHead red
...

有人可以告诉我如何在Scheme中写出来吗？