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)

[David Psenicka]

Thanks, I fixed it--the default instrument doesn't have a program-change
number, and the MIDI backend didn't know what to do with it--now it
defaults to 0

I'll do another release shortly, I finished up key signature support and
want to test it first

Post by Rick Taube
i generated a .ly file PLUS midi without a part defintion. the .ly
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)))

[Rick Taube]

if you dont specify a filename for a midi, shouldnt the default
pathname of the midi file be the same as name/directory as the ly but
with a .mid extension?

Post by Rick Taube
;; Saving LilyPond file "/Users/hkt/test.ly"...
;; Compiling/opening "/Users/hkt/test.ly" for viewing...
;; Saving MIDI file "/tmp/fomus.mid"...

[David Psenicka]

It looks like you might have given the lilypond backend a filename (set
it as an option to lilypond) but left the actual filename setting as the
default (/tmp/fomus)--You can either set :FILENAME (the global setting)
to "/Users/hkt/test" and fomus replaces the extension with the
appropriate ones for each backend... or make sure you send the full
pathnames you want to each backend separately

Post by Rick Taube
if you dont specify a filename for a midi, shouldnt the default
pathname of the midi file be the same as name/directory as the ly but
with a .mid extension?

Post by Rick Taube
;; Saving LilyPond file "/Users/hkt/test.ly"...
;; Compiling/opening "/Users/hkt/test.ly" for viewing...
;; Saving MIDI file "/tmp/fomus.mid"...

_______________________________________________
fomus-devel mailing list
http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel