[fomus-devel] FOMUS::CHECK-TYPE*

Wed Jul 20 13:55:43 UTC 2005

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
)