[fomus-devel] midi back end

[Rick Taube]

i generated a .ly file PLUS midi without a part defintion. the .ly  
file worked but the midi file broke:

CM> (events (simp 8 1/2 1/2 60 80 .3) "test.ly" :play t)
Calling (FOMUS :PARTS (#Z(PART :ID NIL :PARTID 0 :NAME NIL :ABBREV  
NIL :INSTR NIL :EVENTS (#Z(NOTE :ID NIL :PARTID 0 :VOICE 1 :OFF  
7/2 :DUR 1/2 :NOTE 75 :MARKS NIL) #Z(NOTE :ID NIL :PARTID 0 :VOICE  
1 :OFF 3 :DUR 1/2 :NOTE 75 :MARKS NIL) #Z(NOTE :ID NIL :PARTID  
0 :VOICE 1 :OFF 5/2 :DUR 1/2 :NOTE 69 :MARKS NIL) #Z(NOTE :ID  
NIL :PARTID 0 :VOICE 1 :OFF 2 :DUR 1/2 :NOTE 60 :MARKS NIL) #Z 
(NOTE :ID NIL :PARTID 0 :VOICE 1 :OFF 3/2 :DUR 1/2 :NOTE 67 :MARKS  
NIL) #Z(NOTE :ID NIL :PARTID 0 :VOICE 1 :OFF 1 :DUR 1/2 :NOTE  
68 :MARKS NIL) #Z(NOTE :ID NIL :PARTID 0 :VOICE 1 :OFF 1/2 :DUR  
1/2 :NOTE 79 :MARKS NIL) #Z(NOTE :ID NIL :PARTID 0 :VOICE 1 :OFF  
0 :DUR 1/2 :NOTE 60 :MARKS NIL)) :PROPS NIL :OPTS NIL)) :GLOBAL  
NIL :OUTPUT ((:LILYPOND :FILENAME "test.ly" :VIEW T) (:MIDI :PLAY T)))
;; Formatting music...
;; Saving LilyPond file "/Users/hkt/test.ly"...
;; Compiling/opening "/Users/hkt/test.ly" for viewing...
;; Saving MIDI file "/tmp/fomus.mid"...


Required arguments in NIL don't match lambda list (FOMUS::X
                                                    &KEY
                                                    FOMUS::PIZZ
                                                    FOMUS::STOPPED
                                                    OPEN
                                                    FOMUS::HARMONIC).
    [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

Restarts:
   0: [ABORT-REQUEST] Abort handling SLIME request.
   1: [ABORT-BREAK] Reset this process
   2: [ABORT] Kill this process

Backtrace:
   0: (CCL::%POP-REQUIRED-ARG-PTR 'NIL)
   1: (FOMUS::SAVE-MIDI-AUX '(#Z(FOMUS:PARTEX :ID NIL :PARTID 0 :NAME  
NIL :ABBREV NIL :INSTR ...)) "/tmp/fomus.mid" '(:PLAY T) 'T)
   2: (FOMUS::BACKEND ':MIDI "/tmp/fomus.mid" #P"/Users/hkt/" '(#Z 
(FOMUS:PARTEX :ID NIL :PARTID 0 :NAME NIL :ABBREV NIL :INSTR ...))  
'(:PLAY T) 'T '(:PLAY T) '(:MIDI :PLAY T))
   3: (FOMUS::FOMUS-MAIN)
   4: (FOMUS::RUN-FOMUS)