ランダムな音符を生成する

この Scheme ベースのスニペットは、24 の (あるいは必要な分の) ランダムな音符を、現在の時間から (あるいは毎回同じ結果を得るために指定した数から) 生成します。別の音符列を生成したい場合は、数字を変更します。

\score {
  {
    $(let ((random-state (seed->random-state (current-time))))
       (make-sequential-music
         (map (lambda (x)
                (let ((idx (random 12 random-state)))
                  (make-event-chord
                   (list
                    (make-music 'NoteEvent
                                'duration (ly:make-duration 2 0 1/1)
                                'pitch (ly:make-pitch
                                        (quotient idx 7)
                                        (remainder idx 7)
                                        0))))))
              (make-list 24))))
  }
}

[image of music]


LilyPond — Snippets v2.25.4 (開発版).