when i try to generate qtones doing: :auto-accs-fun :nokey-qtones1
then fomus breaks during the accidental phase. ive put the dbg file at the end
(load "/Lisp/fomus/load")
(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 ':piano :partid ':piano ))
(cd )
;;; quarter tones
(events (ranpiano 20 40.0 80.0) "test.ly" :parts (list piano) :auto-accs-fun :nokey-qtones1 ;:view t ) #P"/Lisp/fomus/load.lisp" ? ? ? ? ? #P"/Users/hkt/" ? ;; Formatting music... ; Saving debug file "/tmp/fomus.dbg"... ; Checking types... ; Quantizing... ; Ranges... ; Transpositions... ; Accidentals...
Error in process listener(1): value T is not of the expected type
REAL.
While executing: CCL::>-2 Type :POP to abort.
Type :? for other options. 1 >
-------------------------ffomus.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" :VIEW NIL) :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID :PIANO :NAME NIL :ABBREV NIL :INSTR :PIANO :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 10 :DUR 1/2 :NOTE 74.23258 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 39/4 :DUR 1/4 :NOTE 61.876236 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/2 :DUR 1/4 :NOTE 73.499344 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9 :DUR 1/2 :NOTE 61.546974 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 17/2 :DUR 1/2 :NOTE 52.72618 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 8 :DUR 1/2 :NOTE 53.756363 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 56.069782 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 15/2 :DUR 1/4 :NOTE 41.573856 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 13/2 :DUR 1 :NOTE 42.31521 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/2 :DUR 1 :NOTE 43.41865 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5 :DUR 1/2 :NOTE 78.99568 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/4 :DUR 1/4 :NOTE 44.70688 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9/2 :DUR 1/4 :NOTE 76.27559 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 4 :DUR 1/2 :NOTE 64.238815 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3 :DUR 1 :NOTE 53.841625 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/4 :DUR 1/4 :NOTE 64.45273 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 7/4 :DUR 1 :NOTE 65.44075 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5/4 :DUR 1/2 :NOTE 68.1021 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 1 :DUR 1/4 :NOTE 78.36841 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 0 :DUR 1 :NOTE 44.015144 :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 :NOKEY-QTONES1 :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 )