fomus-devel

fomus-devel@common-lisp.net

100 discussions

[fomus-devel] interface 2
by ml13＠onlinehome.de 25 Jul '05

25 Jul '05

Hi, first of all congratulations to setting up this project!! I am quite amazed about what is already working and l like very much the general setup (the backends, the settings + init file, and the quantization seems to be quite strong, too :), e.g. I enjoyed quite a lot seeing proper quarter triplets, instead of tied over stuff). This is really great!! In fact, I have really started trying out things only this morning (so I cannot tell that much). For the moment, I stumbled over a little problem: (in-package :fm) (fomus-init :ensemble-type :orchestra) (fomus-newpart 1 :name "Piano" :instr :piano) (fomus-newnote 1 :off 0 :dur 2 :note 61) (fomus-exec) What am I missing here? I get an error inside the quant algorithm. I suppose, this is just my problem.... Cheers, Kilian Sprotte

1 0

[fomus-devel] anonymous login
by Rick Taube 23 Jul '05

23 Jul '05

The "problem" with anon cvs at common-lisp.net was the copy/past example: > # For reasonably modern clients: > cvs -z3 -d > :pserver:anonymous:anonymous@common-lisp.net:/project/<project-name>/ > cvsroot co <module> apparently :pserver:anonymous:anonymous... only works for some cvs clients. Anyway this works for downloading Fomus: cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot login cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot co fomus -rick

1 0

[fomus-devel] :composer and :title settings?
by Rick Taube 22 Jul '05

22 Jul '05

are the :composer and :title supposed to be working? they do appear in the generated .ly file but not in the resulting pdf. ;; -*-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 1 :NAME NIL :ABBREV NIL :INSTR :VIOLA :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 85/4 :DUR 1/4 :NOTE 51.343636 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 83/4 :DUR 1/2 :NOTE 73.70424 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 79/4 :DUR 1 :NOTE 72.46571 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 75/4 :DUR 1 :NOTE 67.59837 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 37/2 :DUR 1/4 :NOTE 83.012184 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 73/4 :DUR 1/4 :NOTE 88.936745 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 69/4 :DUR 1 :NOTE 85.05147 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 65/4 :DUR 1 :NOTE 84.17426 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 61/4 :DUR 1 :NOTE 57.55209 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 59/4 :DUR 1/2 :NOTE 72.09549 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 55/4 :DUR 1 :NOTE 59.53202 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 53/4 :DUR 1/2 :NOTE 85.77424 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 49/4 :DUR 1 :NOTE 70.00486 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 47/4 :DUR 1/2 :NOTE 71.040085 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 43/4 :DUR 1 :NOTE 63.979553 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 21/2 :DUR 1/4 :NOTE 79.26982 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 41/4 :DUR 1/4 :NOTE 56.663208 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 10 :DUR 1/4 :NOTE 64.85958 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 39/4 :DUR 1/4 :NOTE 91.22709 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 37/4 :DUR 1/2 :NOTE 78.9512 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 35/4 :DUR 1/2 :NOTE 67.674095 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 33/4 :DUR 1/2 :NOTE 84.08667 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 8 :DUR 1/4 :NOTE 65.932915 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 84.203094 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 29/4 :DUR 1/2 :NOTE 77.43326 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7 :DUR 1/4 :NOTE 61.944397 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 27/4 :DUR 1/4 :NOTE 64.957 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 25/4 :DUR 1/2 :NOTE 68.64221 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 23/4 :DUR 1/2 :NOTE 85.60951 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 11/2 :DUR 1/4 :NOTE 77.35074 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5 :DUR 1/2 :NOTE 81.6767 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 4 :DUR 1 :NOTE 84.95224 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7/2 :DUR 1/2 :NOTE 64.852776 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5/2 :DUR 1 :NOTE 51.718925 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 9/4 :DUR 1/4 :NOTE 77.13191 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7/4 :DUR 1/2 :NOTE 66.979935 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 3/2 :DUR 1/4 :NOTE 51.788128 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5/4 :DUR 1/4 :NOTE 61.10151 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 1 :DUR 1/4 :NOTE 86.94888 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 0 :DUR 1 :NOTE 78.27983 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE "HiHo!" :SUBTITLE NIL :COMPOSER "Anon." :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 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 )

1 0

[fomus-devel] :quartertones t
by Rick Taube 21 Jul '05

21 Jul '05

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: ? ;; Common Music package detected ;; FOMUS v0.1.1 ;; Lisp music notation formatter ;; Copyright (c) 2005 David Psenicka, All Rights Reserved ;; See file "COPYING" for terms of use and distribution. (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 )

1 0

[fomus-devel] CVS checkout?
by Han-Wen Nienhuys 21 Jul '05

21 Jul '05

Hi, As you might imagine, I'm a more than curious about fomus, how it performs and how it works, so I've been trying to check it out from CVS; I have little success though. AFAICT, the following command should work cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot co fomus but I'm failing. Could you include the CVS incantation on the webpage that I could readily cut & paste? Thanks! -- Han-Wen Nienhuys - hanwen(a)xs4all.nl - http://www.xs4all.nl/~hanwen

2 2

[fomus-devel] quarter tones
by Rick Taube 21 Jul '05

21 Jul '05

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 )

1 0

[fomus-devel] FOMUS::CHECK-TYPE*
by Rick Taube 20 Jul '05

20 Jul '05

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 )

1 0

[fomus-devel] settings
by Rick Taube 20 Jul '05

20 Jul '05

It would be helpful it you would list and/or describe the default value that fomus initially assigns to each parameter: :AUTO-ACCS-FUN [nil] or whatever. also what does the -FUN suffix mean?? function? but the value I pass is a keyword, not a function. if you mean that internally fomus uses a function then i dont think the user cares if you do it with a function or a hamster, its not really relevant to me if i cant pass a function. I would be happy to trade that information for a shorter name: :auto-accs :nokey1 what does the 1 mean after the names like nokey1? i dont see a 2 anywhere so why do i have to always add a 1?? even if there is a 2, i will never remember what 1 vs 2 means so i will always have to refer to the docs. using keywords as parameters is nice, and since there are so many of then and since you define them as globals inside fomus you could associate documentation each parameter so users could look up what they need in the repl: (fomus:doc :auto-accs) "controls the foo of bar. possible values are: bif buf. current valuee is buf. defaut value is zuz. (fomus:doc :part) the following settiing are defined for class PART: asd,qw3e, asd, xcv

1 0

[fomus-devel] compiling in sbcl
by Rick Taube 20 Jul '05

20 Jul '05

fomus will not compile in sbcl 0.9.0 on OSX: ; compiling (DEFPARAMETER +LILYPOND-DYNS+ ...) ; compiling (DEFUN SAVE-LILYPOND ...)set_auto_gc_trigger: tried to set gc trigger too high! (0x081a3e98) fatal error encountered in SBCL pid 1317: lost The system is too badly corrupted or confused to continue at the Lisp level. If the system had been compiled with the SB-LDB feature, we'd drop into the LDB low-level debugger now. But there's no LDB in this build, so we can't really do anything but just exit, sorry. it does compile and load in cmu and openmcl.

1 0

[fomus-devel] loading fomus
by Rick Taube 20 Jul '05

20 Jul '05

Hi the docs say: > Example 2.1. Compiling and Loading > CL-USER> (load "path_to_fomus_directory/load.lisp") but this does not work in either openmcl or cmucl or sbcl. there are several problems, the first is that neither openmcl or cmucl have the ASDF package preloaded, so when you do your READ: (with-open-file (f (merge-pathnames "fomus.asd" *load-pathname*) :direction :input) (destructuring-bind (xxx1 xxx2 &key components &allow-other-keys) (read f) it breaks because your fomus.asd assumes there is an asdf package: (asdf:defsystem "fomus" i dont think i makes any sense to read that file: either insure that asdf is aroun, load the file and call asdf:operate or dont assume the asdf package at all. the second problem is that (file-write-date cn) will return NIL if cn does not exist: ? (file-write-date #P"/Lisp/fomus/package.dfsl") NIL which breaks your >= date comparison. this fixes both issues and works in openmcl cmucl and sbcl ------------------------------------------ fomus/load.lisp ;; -*-lisp-*- ;; Load file for FOMUS (defparameter *components* '("package" "misc" "deps" "data" "classes" "util" "accidentals" "beams" "marks" "other" "ottavas" "parts" "postproc" "split" "staves" "voices" "quantize" "backend_ly" "backends" "main" "interface" "final")) (loop for na in *components* for cl = (merge-pathnames na *load-pathname*) for cn = (compile-file-pathname cl) for wd = (file-write-date cn) when (or (not wd) (>= (file-write-date cl) wd)) do (compile-file cl) do (load cn))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

fomus-devel