I still cant get this to work:
(define *tempo* 60) (define *beat* 1/4) (define (ranpiano len lb ub ) (process repeat len for r = (pick 1/4 1/8 1/16) output (new fms:note :off (now) :partid ':piano :note (between lb ub) :dur (rhythm r)) wait (rhythm r))) (define piano (new fms:part :instr '(:grandstaff :piano) :partid ':piano )) (cd ) (events (ranpiano 20 40 80) "test.ly" :parts (list piano))
? ;; Formatting music... ; Saving debug file "/tmp/fomus.dbg"... ; Checking types...
Error in process listener(1): Unknown type specifier:
(FOMUS::KEY-ARG-PAIRS* :SYM :CLEFS :STAVES :MINP :MAXP :VOICELIM :TPOSE :CLEFLEGLS :8UPLEGLS :8DNLEGLS :PERCS)
While executing: CCL::%%TYPEP Type :POP to abort.
has something changed that I need to track?
here is fomus.dbg: ---------------------------
;; -*-lisp-*- ;; FOMUS v0.1.0
(FOMUS :DEBUG-FILENAME "/tmp/fomus.dbg" :VERBOSE 2 :USE-CM T :CM-SCALE NIL :LOADXMLS-FUN :ASDF :BACKEND '(:LILYPOND :FILENAME "test.ly") :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID :PIANO :NAME NIL :ABBREV NIL :INSTR (:GRANDSTAFF :PIANO) :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 39/4 :DUR 1/2 :NOTE 73 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 37/4 :DUR 1/2 :NOTE 55 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9 :DUR 1/4 :NOTE 54 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 35/4 :DUR 1/4 :NOTE 67 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 33/4 :DUR 1/2 :NOTE 58 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 8 :DUR 1/4 :NOTE 71 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 60 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 29/4 :DUR 1/2 :NOTE 47 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 25/4 :DUR 1 :NOTE 64 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 23/4 :DUR 1/2 :NOTE 52 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/4 :DUR 1 :NOTE 41 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 17/4 :DUR 1/2 :NOTE 42 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 15/4 :DUR 1/2 :NOTE 74 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 7/2 :DUR 1/4 :NOTE 78 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3 :DUR 1/2 :NOTE 52 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/4 :DUR 1/4 :NOTE 69 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5/2 :DUR 1/4 :NOTE 43 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3/2 :DUR 1 :NOTE 51 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 1 :DUR 1/2 :NOTE 78 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 0 :DUR 1 :NOTE 50 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE NIL :SUBTITLE NIL :COMPOSER NIL :TIMESIG-STYLE NIL :TUPLET-STYLE NIL :QUANTIZE-ADJUST-GRACE-DURS T :DEFAULT-GRACE-DUR 1/2 :DEFAULT-GRACE-NUM 0 :EFFECTIVE-GRACE-DUR-MUL 1/2 :MIN-AUTO-TIMESIG-DUR 2 :DEFAULT-TIMESIG #I(FOMUS:TIMESIG-REPL :ID NIL :TIME (4 4) :COMP NIL :BEAT 1/4 :DIV NIL :PROPS NIL) :AUTO-ACCIDENTALS T :AUTO-CAUTIONARY-ACCS T :AUTO-STAFF/CLEF-CHANGES T :AUTO-OTTAVAS T :AUTO-GRACE-SLURS T :AUTO-VOICING T :AUTO-BEAMS T :AUTO-QUANTIZE T :AUTO-MULTIVOICE-RESTS T :AUTO-MULTIVOICE-NOTES T :AUTO-OVERRIDE-TIMESIGS T :SPLIT-FUN :DEFAULT :AUTO-ACCS-FUN :DEFAULT :AUTO-VOICES-FUN :DEFAULT :AUTO-DISTR-RESTS-FUN :DEFAULT :AUTO-MULTIVOICE-COMB-FUN :DEFAULT :AUTO-OTTAVAS-FUN :DEFAULT :AUTO-BEAM-FUN :DEFAULT :AUTO-QUANTIZE-FUN :DEFAULT :AUTO-STAFF/CLEFS-FUN :DEFAULT :USE-DEFAULT-MEAS-DIVS T :DEFAULT-MEAS-DIVS NIL :USE-DEFAULT-TUPLET-DIVS T :DEFAULT-TUPLET-DIVS NIL :BEAT-DIVISION 16 :MIN-TUPLET-DUR 1/2 :MAX-TUPLET-DUR 4 :MIN-SIMPLE-TUPLET-DUR 2 :MAX-TUPLET 7 :TUPLET-DOTTED-RESTS T :DOUBLE-DOTTED-NOTES T :DOTTED-NOTE-LEVEL T :SHORTLONGSHORT-NOTES-LEVEL T :SYNCOPATED-NOTES-LEVEL :TOP :ACC-ENGINE-HEAP 300 :ACC-IMPORTANCE-SCORE 15/16 :ACC-IMPORTANCE-STEPS 10 :VOICE-ENGINE-HEAP 300 :VOICE-IMPORTANCE-SCORE 15/16 :VOICE-IMPORTANCE-STEPS 10 :STAFF-ENGINE-HEAP 300 :STAFF-IMPORTANCE-SCORE 15/16 :STAFF-IMPORTANCE-STEPS 10 :ACC-DIATONIC-INT-SCORE 7/8 :ACC-AUG-DIM-INT-SCORE 1/2 :ACC-SPELLING-PENALTY 1/4 :ACC-GOOD-UNISON-SCORE 1 :ACC-BAD-UNISON-SCORE 3/8 :ACC-SIMILAR-QTONE-SCORE 1/3 :ACC-DIST-SCORE 1/3 :ACC-BEAT-DIST 2 :ACC-OCTAVE-DIST 1 :MAX-CAUT-ACC-DIST 2 :MAX-ACC-BEAT-DIST-MUL 3 :ACC-USE-DOUBLE NIL :ACC-THROUGHOUT-MEAS T :CAUT-ACC-OTTAVAS T :CAUT-ACC-OCTAVES 1 :CAUT-ACC-AFTER-ONE-MEAS NIL :VOICE-HIGH/LOW-PENALTY 1/3 :VOICE-SIMULT-PENALTY 1 :VOICE-CHORD-SCORE 1/12 :VOICE-LEADING-PENALTY 1/4 :VOICE-BALANCE-PENALTY 1/24 :VOICE-DIST-SCORE 1/3 :VOICE-OCTAVE-DIST 1 :VOICE-HIGH/LOW-BEAT-DIST 1/2 :VOICE-LEADING-BEAT-DIST 4 :VOICE-BALANCE-BEAT-DIST 12 :MAX-VOICE-BEAT-DIST-MUL 3 :CLEF-CHANGE-CLEF-PENALTY 1 :CLEF-CHANGE-STAFF-PENALTY 1/2 :CLEF-POLYPHONY-PERBEAT-PENALTY 1/8 :CLEF-ORDER-PERBEAT-PENALTY 1/8 :CLEF-FORCE-CLEF-CHANGE-DIST 2 :MAX-OTTAVA-REST-DIST 3 :BEAM-LARGE-EIGHTH-BEAM T :BEAM-LARGE-COMP-EIGHTH-BEAM T :BEAM-LARGE-EIGHTH-COUNT 3 :BEAM-LARGE-COMP-EIGHTH-COUNT 5 :MIN-MULTIVOICE-CHORDS-DUR 1 :GRANDSTAFF-HIDE-RESTS T :MIN-GRANDSTAFF-HIDE-RESTS-DUR 1 )
-
Rick Taube