制作 midi:midifile 的实例

Question

我正在为我正在进行的一个小项目使用 Lisp MIDI 库。首先，我尝试编写一个简单的 MIDI 文件来播放中音 C。但是我似乎无法让它工作，也找不到任何有关如何执行此类操作的文档。这是我的代码：

(defun make-track () 
  (list
   (make-instance 'midi:note-on-message
          :time 0
          :key 60 
          :velocity 100
          :status 0)
   (make-instance 'midi:note-off-message
          :time 128
          :key 60 :velocity 100
          :status 0)))

(defun make-tracks ()
  (list (make-track)))

(defun try-to-write-midi-file ()
  (let* ((my-midi-file (make-instance 'midi:midifile
                     :format 1
                     :tracks (make-tracks)
                     :division 25)))
    (midi:write-midi-file my-midi-file "opus.mid")))

它正在创建一个 MIDI 文件，但持续时间为 0 秒，其中似乎没有播放中音 C。

谁能告诉我我在这里做错了什么？

Answer 1

David Lewis，该库的维护者之一，向我解释了我做错了什么。这是正确的代码：

(defun make-track () 
  (list
   ;; The STATUS values you give to your messages gives the sequencer channel 
   ;; information but, rather than taking the channel as you'd expect to see it
   ;; (i.e. an integer between 0-15), it takes it in the form the MIDI itself 
   ;; uses, which for NOTE-ON is (+ 144 channel) and for NOTE-OFF is 
   ;; (+ 128 channel).
   (make-instance 'midi:note-on-message
          :time 0
          :key 60 
          :velocity 100
          :status 144)
   (make-instance 'midi:note-off-message
          :time 128
          :key 60 :velocity 100
          :status 128)))