[fomus-devel] :quartertones t

Thu Jul 21 22:57:14 UTC 2005

well i like the new ":quartertone t"  a lot more than the old 
":auto-accs-fun :nokey1" ! but unfortunately im getting the same error 
i think:

(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 )
(events (ranpiano 20 40.0 80.0) "test.ly" :parts (list piano)
         :quartertones t
         :view t
         )

;; 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 > (:B )
(F0135B00) : 0 "CCL::>-2" 1792
(F0135B10) : 1 "CCL::<=-2" 32
(F0135B20) : 2 "<=" 224
(F0135B30) : 3 NIL NIL
(F0135B40) : 4 "FOMUS::NOKEY-INTSCORE" 948
(F0135B50) : 5 "FOMUS::NOKEYQ-INTSCORE" 180
(F0135B60) : 6 "FOMUS::EXPANDFUN" 2752
(F0135B70) : 7 "FOMUS::A*-ENGINE" 1008
(F0135B80) : 8 "FOMUS::ACC-NOKEY" 544
(F0135B90) : 9 "FOMUS::ACCIDENTALS" 496
(F0135BA0) : 10 "FOMUS::FOMUS-PROC" 2744
(F0135BB0) : 11 "FOMUS::FOMUS-MAIN" 24
(F0135BC0) : 12 NIL NIL
(F0135BD0) : 13 "FOMUS" 18156
(F0135BF0) : 14 "EVENTS" 464
(F0135C00) : 15 NIL NIL
(F0135C10) : 16 "EVENTS" 864
(F0135C20) : 17 NIL NIL
(F0135C30) : 18 "CCL::CALL-CHECK-REGS" 72
(F0135C40) : 19 NIL NIL
(F0135C50) : 20 "CCL::TOPLEVEL-EVAL" 152
(F0135C60) : 21 "CCL::READ-LOOP" 844
(F0135CA0) : 22 "CCL:TOPLEVEL-LOOP" 44
(F0135CC0) : 23 "Anonymous Function #x6112C86" 68
(F0135CD0) : 24 NIL NIL
(F0135CE0) : 25 "Anonymous Function #x6152356" 592
(F0135D00) : 26 "CCL::RUN-PROCESS-INITIAL-FORM" 400
(F0135D30) : 27 NIL NIL
(F0135D40) : 28 "Anonymous Function #x610E7CE" 152
(F0135D60) : 29 "Anonymous Function #x61025AE" 172
1 >

here is fomus.dbg

;; -*-lisp-*-
;; FOMUS v0.1.1
;; OpenMCL Version (Beta: Darwin) 0.14.3

(FOMUS
   :DEBUG-FILENAME "/tmp/fomus.dbg"
   :VERBOSE 2
   :USE-CM T
   :CM-SCALE NIL
   :LOADXMLS-FUN :ASDF
   :BACKEND '(:LILYPOND :FILENAME "test.ly" :VIEW T)
   :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)
   :QUARTERTONES T
   :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
)