Fwd: [CM] a FOMUS problem

[David Psenicka]

There's a pitch (11, it looks like) too far out of range to notate--I'll 
see if this is fixable...
-David

Rick Taube wrote:

> unfortunatly the ring modulation one triggers a fomus array index 
> error that didnt happen last fall. the midi file from it seems to be ok.
> ;;;
> ;;; Ring Modulation Etude
> ;;;
>
> (defun random-rm (num notes)
>   (process with pat = (new heap :of notes
>                            :for (new weighting :of '(1 2 3)))
>            repeat num
>            for set1 = (next pat t)
>            for set2 = (next pat t)
>            for set3 = (rm-spectrum set1 set2 :spectrum ':note
>                                    :remove-duplicates t)
>            for reps = (pick 3 4 5)
>            sprout (process with pat = (new cycle :of (list set1 set2)
>                                            :repeat reps)
>                            for c = (next pat)
>                            until (eod? c)
>                            each k in c output (new midi :time (now)
>                                                    :keynum k
>                                                    :channel 0
>                                                    :duration .25
>                                                    :amplitude .2)
>                            wait .25)
>            sprout (process with pat = (new cycle :of set3)
>                            repeat (* 2 reps)
>                            output (new midi :time (now)
>                                        :keynum (next pat)
>                                        :channel 1
>                                        :duration .125
>                                        :amplitude .4)
>                            wait .25)
>            wait (* .25 reps 2)))
>
> (defparameter duo (list (new part :partid 0 :instr ':viola)
>                         (new part :partid 1 :instr ':piano)))
>
> (defparameter mus (new seq))
>
> (events (random-rm 16 (loop for i from 60 to 72 collect i)) mus)
>
> (events mus "rm-etude.mid" :tempo 80)
>
> (events mus "rm-etude.ly" :parts duo :view t)
>
>
> Array index -1 out of bounds for #(",,," ",," "," "" "'" "''" "'''" 
> "''''"
>                                    "'''''") .
>    [Condition of type SIMPLE-ERROR]
>
> Restarts:
>   0: [ABORT-REQUEST] Abort handling SLIME request.
>   1: [ABORT-BREAK] Reset this process
>   2: [ABORT] Kill this process
>
> Backtrace:
>   0: (FOMUS::LYNOTE 11 0 0 'NIL 'NIL)
>   1: (FOMUS::SAVE-LILYPOND '(#1=#Z(FOMUS:PARTEX :ID NIL :PARTID 1 
> :NAME NIL :ABBREV NIL :INSTR ...) #1#(FOMUS:PARTEX :ID NIL :PARTID 0 
> :NAME NIL :ABBREV NIL :INSTR ...)) "% LilyPond score file
> % FOMUS v0.1.54
>
> _______________________________________________
> Cmdist mailing list
> Cmdist@ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>