7

目前我编写的代码如下所示：

\version "2.14.2"

P = #parenthesize

\relative c, {
  \clef bass 
    <c \P c'> <e \P e'> <g \P g'>2 <c, \P c'>4 <d \P d'> <e \P e'>2
}

我重复的意思是“这个音符，连同高一个八度的同一个音符，用括号括起来”。

我想要一种缩写的方法，这样我就可以写这样的东西：

\version "2.14.2"

poct = ...

\relative c, {
  \clef bass 
  \poct c \poct e \poct g2 \poct c,4 \poct d \poct e2
}

正如我之前的问题的有用答案中所建议的那样，我尝试使用音乐功能，但我无法让它工作。我能得到的最接近的是

poct = #(define-music-function
     (parser location note)
     (ly:music?)
   #{
     << $note \transpose c c \parenthesize $note >>
   #})

但这使用<<..>>而不是<.. >，它不会呈现我想要的方式（并带有警告），我不知道为什么\transpose c c实际转置任何东西。

最后，切线相关的是，在尝试音乐功能时，我发现仅仅创建一个模仿的音乐功能甚至是不可能的\repeat unfold 2；以下在第三和第四之间跳下一个八度c：

\version "2.14.2"

double = #(define-music-function
     (parser location note)
     (ly:music?)
   #{
     $note $note
   #})

\relative c, {
  \clef bass 
  \double c \double e \double g2 \double c,4 \double d \double e2
}
4

3 回答 3

2

好的，这是我为你创建的一个函数，它可以让你重复单个音高。唯一的问题是它不会使用\relative符号。这是因为，在相对符号中，后面的音符序列c' c' c'显然会比前面的音符高一个八度。不幸的是，我仍然找不到一种方法来获得这样的\function #3 c'功能c' c c。也就是说，这是我的功能和一些示例：

\version "2.17.28"

times = #(define-music-function
     (parser location N note)
     (integer? ly:music?)
     (cond 
       ((>= N 2)
         #{ \repeat unfold $N { \absolute $note } #}
       )
       ((= N 1) 
         #{ \absolute $note #}
       )
     )
)

{
 a4 \times #3 b4
 R1
 \times #4 { c'8 d' }
 R1
 \times #1 { c''1 }
}

所以语法很简单\times #"number of repetition" { ...music... }。如果只重复一个音符，则可以省略{和}: \times #"number of repetition" "single note"。

您可以在乐段的中间使用此功能\relative，但您应该输入该功能的音高作为绝对音高。看一看：

\version "2.17.28"

times = #(define-music-function
     (parser location N note)
     (integer? ly:music?)
     (cond 
       ((>= N 2)
         #{ \repeat unfold $N { \absolute $note } #}
       )
       ((= N 1) 
         #{ \absolute $note #}
       )
     )
)

\relative c'' {
  c4 d \times #4 e'' f g
}

请注意，上面的所有音符都在同一个八度音阶中。音符的八度位置f也不受此函数的影响，它受函数前面的音符影响，即d.

当然，有一种方法可以为此编写更好的代码，但是我无法使用 any\relative或\transpose命令来做到这一点。

这里有一些尝试来帮助您使用带括号的八度音阶（上面的功能相同，但有一些小的改动）：

\version "2.17.28"

timesP = #(define-music-function
     (parser location N note)
     (integer? ly:music?)
     (cond 
       ((>= N 2)
         #{ 
           << 
             \repeat unfold $N { \absolute $note } 
             \transpose c c' \repeat unfold $N { \absolute \parenthesize $note } 
           >>
         #}
       )
       ((= N 1) 
         #{ 
           << 
             \absolute $note 
             { \transpose c c' \parenthesize $note }
           >>
         #}
       )
     )
)

{
 a4 \timesP #3 b4
 \timesP #8 c'16
 \timesP #2 g4
 \timesP #4 { c'8 d' } % no parenthesis here because there are two notes as arguments...
 \timesP #1 { c''1 } % no parenthesis here because of the { }
}

\relative c'' {
  c4 d \timesP #4 e'' f g
}

这里还有一些问题：这个函数只会在参数是一个没有{ }. 这在上面的代码中得到了很好的注释。

我希望这会以某种方式帮助你。如果我在这里遇到八度音阶转置问题的解决方案，我会更新这个答案。

于 2013-10-19T12:30:25.580 回答
1

我刚刚从 LilyPond 的开发者之一 David Kastrup 那里得到了这个答案：

“八度转置”的发生是因为基本上 \transpose cc 与 \absolute 相同（因为 LilyPond 不适用 \relative 到转置音乐）。

\absolute 与\repeat 展开无关：\repeat 展开知道如何处理相关音乐。

版本 2.14.2 非常旧。无论如何，目前 LilyPond 跟踪器中有问题http://code.google.com/p/lilypond/issues/detail?id=3673，相应的代码可以在https://codereview.appspot 找到。 com/30890043/diff/40001/scm/music-functions.scm

我们确实进入了 Scheme 编程。即使在 2.14 中，相应的 defmacro-public 也可能工作，尽管 #{ #} 可能无法正常工作。

使用该定义，您的双重定义将变为：

double = #(define-music-function (parser location note) (ly:music?) (make-relative (note) note #{ $note $note #}))

然后将在绝对和相对模式下工作。如果 2.14 #{ #} 与 make-relative 不兼容，写作 (make-sequential-music (list (ly:music-deep-copy note) (ly:music-deep-copy note))) 应该作为方案更换。

一旦你意识到它只是一个简单的代码替换，原来的问题就变得更容易理解了，所以 \relative { \double c' } 变成了 \relative { c' c' } 使用不同的八度。make-relative 宏将只对单个音符进行 \relative 操作，然后将结果粘贴到音乐表达式中。

于 2013-11-26T16:02:30.877 回答
0

根据您问题中的代码和 David Kastrup 在另一个回复中引用的答案，我构建了以下代码以将音符转换为和弦，相同的音符高一个八度，没有括号：

#(define (octavate-pitch pitch octaves)
   (ly:make-pitch
    (+ (ly:pitch-octave pitch) octaves)
    (ly:pitch-notename pitch)
    (ly:pitch-alteration pitch)))

#(define (articulation-is-of-type? art type)
   (string=? (ly:music-property art 'articulation-type) type))

#(define (copy-articulation? art)
   (cond ((music-is-of-type? art 'tie-event)
          #t)
         ((and (music-is-of-type? art 'articulation-event)
               (articulation-is-of-type? art "fermata"))
          #f)
         ; TODO add more cases
         (else
          #f)))

#(define (octNote note)
   (if (null? (ly:music-property note 'pitch))
       note
       (make-relative (note) note
                      (let ((note2 (ly:music-deep-copy note))
                            (pitch (ly:music-property note 'pitch)))
                        (set! (ly:music-property note2 'pitch)
                              (octavate-pitch pitch 1))
                        (set! (ly:music-property note2 'articulations)
                              (filter copy-articulation? (ly:music-property note2 'articulations)))
                        (make-event-chord (list note note2))))))

oct = #(define-music-function
           (parser location music)
           (ly:music?)
         (music-map octNote music))

它可以应用于单个音符或完整的音乐表达：

\relative c' \oct {
  c d e f |
  g2 g |
}

它也以相反的顺序工作，\oct \relative c' { … }。

要为添加的注释加上括号，请将最后一个引用替换为note2-octNote我(parenthesize note2)只是更喜欢没有括号的版本供我自己使用。（在这种情况下，您可能应该将函数重命名为octPNoteandoctP在这种情况下，以避免混淆。我简要地尝试编写octPNote一个函数来调用octNote和后处理结果以将第二个注释括起来，但没有成功。）

你几乎肯定还需要扩展copy-articulation?谓词——tie 和 fermate 只是我遇到的两种表达方式。（它默认不复制未知的发音，所以如果谓词不完整，你会在复制的音符上看到它缺少发音。）

于 2019-01-20T00:38:54.587 回答