[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