[fomus-devel] quarter tones

Rick Taube taube at uiuc.edu
Thu Jul 21 13:43:07 UTC 2005


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
)




More information about the Fomus-devel mailing list