From taube at uiuc.edu Wed Jul 20 12:02:52 2005 From: taube at uiuc.edu (Rick Taube) Date: Wed, 20 Jul 2005 07:02:52 -0500 Subject: [fomus-devel] loading fomus Message-ID: <4fed2776a466e84c9fe2ddb3e14f5ffd@uiuc.edu> 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)) From taube at uiuc.edu Wed Jul 20 12:18:37 2005 From: taube at uiuc.edu (Rick Taube) Date: Wed, 20 Jul 2005 07:18:37 -0500 Subject: [fomus-devel] compiling in sbcl Message-ID: 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. From taube at uiuc.edu Wed Jul 20 12:50:22 2005 From: taube at uiuc.edu (Rick Taube) Date: Wed, 20 Jul 2005 07:50:22 -0500 Subject: [fomus-devel] settings Message-ID: <2b84576a1339471692133162d332a194@uiuc.edu> 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 From taube at uiuc.edu Wed Jul 20 13:55:43 2005 From: taube at uiuc.edu (Rick Taube) Date: Wed, 20 Jul 2005 08:55:43 -0500 Subject: [fomus-devel] FOMUS::CHECK-TYPE* Message-ID: <9d1cb54791a2b03c7f6a0adef58c890b@uiuc.edu> 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 ) From taube at uiuc.edu Thu Jul 21 13:43:07 2005 From: taube at uiuc.edu (Rick Taube) Date: Thu, 21 Jul 2005 08:43:07 -0500 Subject: [fomus-devel] quarter tones Message-ID: <5a4f4a8be525ad9eee8fa9509b9b48be@uiuc.edu> 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 ) From hanwen at xs4all.nl Thu Jul 21 11:04:16 2005 From: hanwen at xs4all.nl (Han-Wen Nienhuys) Date: Thu, 21 Jul 2005 13:04:16 +0200 Subject: [fomus-devel] CVS checkout? Message-ID: <42DF8130.4010908@xs4all.nl> 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 at 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 at xs4all.nl - http://www.xs4all.nl/~hanwen From taube at uiuc.edu Thu Jul 21 18:54:37 2005 From: taube at uiuc.edu (Rick Taube) Date: Thu, 21 Jul 2005 13:54:37 -0500 Subject: [fomus-devel] CVS checkout? In-Reply-To: <42DF8130.4010908@xs4all.nl> References: <42DF8130.4010908@xs4all.nl> Message-ID: <6843552e62fd4b69320a3624d83027b3@uiuc.edu> I cant login either. You can get a tarball of the archive here: http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=lambda-gtk#dirlist David - how did you create the repository, did you use cvs import ? --rick From taube at uiuc.edu Thu Jul 21 18:58:33 2005 From: taube at uiuc.edu (Rick Taube) Date: Thu, 21 Jul 2005 13:58:33 -0500 Subject: [fomus-devel] CVS checkout? In-Reply-To: <42DF8130.4010908@xs4all.nl> References: <42DF8130.4010908@xs4all.nl> Message-ID: <5d2f7582d1e113812cab97225a85efea@uiuc.edu> arrg! I mean here: http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=fomus sorry! --rick From taube at uiuc.edu Thu Jul 21 22:57:14 2005 From: taube at uiuc.edu (Rick Taube) Date: Thu, 21 Jul 2005 17:57:14 -0500 Subject: [fomus-devel] :quartertones t Message-ID: <5dca21b06f9cb9a730c0e1883c4539b7@uiuc.edu> 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 ) From taube at uiuc.edu Fri Jul 22 21:56:03 2005 From: taube at uiuc.edu (Rick Taube) Date: Fri, 22 Jul 2005 16:56:03 -0500 Subject: [fomus-devel] :composer and :title settings? In-Reply-To: <42E11B07.3040305@uiuc.edu> References: <42DEBEF2.7000800@uiuc.edu> <37d6cebc50416204f571cbbc0812bf0b@uiuc.edu> <42DF0726.5060306@uiuc.edu> <42DFD982.1060103@uiuc.edu> <7b2ae4ce08afd4bfc51a1060ed672365@uiuc.edu> <42E08D22.7050301@uiuc.edu> <42E11B07.3040305@uiuc.edu> Message-ID: <73a4bffb1fe5c052058669e8cd65e337@uiuc.edu> 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 ) From taube at uiuc.edu Sat Jul 23 12:28:07 2005 From: taube at uiuc.edu (Rick Taube) Date: Sat, 23 Jul 2005 07:28:07 -0500 Subject: [fomus-devel] anonymous login In-Reply-To: <42E00954.5050500@uiuc.edu> References: <42DEBEF2.7000800@uiuc.edu> <37d6cebc50416204f571cbbc0812bf0b@uiuc.edu> <42DF0726.5060306@uiuc.edu> <42DFD982.1060103@uiuc.edu> <42E00954.5050500@uiuc.edu> Message-ID: The "problem" with anon cvs at common-lisp.net was the copy/past example: > # For reasonably modern clients: > cvs -z3 -d > :pserver:anonymous:anonymous at common-lisp.net:/project// > cvsroot co apparently :pserver:anonymous:anonymous... only works for some cvs clients. Anyway this works for downloading Fomus: cvs -z3 -d :pserver:anonymous at common-lisp.net:/project/fomus/cvsroot login cvs -z3 -d :pserver:anonymous at common-lisp.net:/project/fomus/cvsroot co fomus -rick From ml13 at onlinehome.de Mon Jul 25 07:35:35 2005 From: ml13 at onlinehome.de (ml13 at onlinehome.de) Date: Mon, 25 Jul 2005 09:35:35 +0200 Subject: [fomus-devel] interface 2 Message-ID: <10b18e5a25d9f9c475b502b0e577b33b@onlinehome.de> 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 From dpsenick at uiuc.edu Wed Jul 27 08:50:12 2005 From: dpsenick at uiuc.edu (David Psenicka) Date: Wed, 27 Jul 2005 03:50:12 -0500 Subject: [fomus-devel] FOMUS Message-ID: <42E74AC4.4040801@uiuc.edu> I'd like to announce a new project, "Fomus." Fomus is a music notation tool in Lisp for computer music composers that converts "raw" musical data into an output file or files suitable for loading into several different notation programs. The purpose is to provide a better alternative to current options for importing data and formatting it into a score. The program tries to automate a variety of tasks including note spellings, distribution of notes across voices and staves, clef signatures, ottava brackets, combining notes and rests in multiple-voice parts, and (maybe one of the more useful functions) quantizing note offsets and durations by finding combinations of tuplets/beat divisions that minimize the amount of error. Support also exists for articulation markings including slurs, other markings like text and dynamics, and some special types of notation like tremolos, harmonics (some of these aren't implemented yet). It can also be used as a Common Music backend, and will use some of CM's functionality if present. Fomus is still in its initial testing/development stage so many bugs exist, some minor things aren't implemented yet (including backends--it only outputs LilyPond files at the moment), the documentation needs to be finished, the interface needs to be simplified, etc.. This project grew out of a smaller collection of Lisp functions I've been using over the past few years to notate my own pieces. The main website is at http://common-lisp.net/project/fomus/doc/ and contains instructions for CVS download. At the moment the program should compile in the latest versions of CMUCL and SBCL on Linux and CMUCL and OpenMCL in Darwin (it won't compile in Darwin SBCL at the moment). Any comments, feature requests and bug reports are welcome from anyone interested in using it and seeing it develop--there is a mailing list link on the website. (I apologize for the cross-posting.) -David Psenicka From dpsenick at uiuc.edu Wed Jul 27 20:37:11 2005 From: dpsenick at uiuc.edu (David Psenicka) Date: Wed, 27 Jul 2005 15:37:11 -0500 Subject: [fomus-devel] (no subject) Message-ID: <42E7F077.9040706@uiuc.edu> Sorry for the lack of response, I didn't have the mailing list set up quite right so I didn't see the postings. :( I think most of these issues are already resolved--the quantizer should be able to handle anything as long as constraints are reasonable (maximum tuplet allowed, divisions per beat, etc.) Also, tiny notes that quantize to 0 duration will turn into grace notes. From ml13 at onlinehome.de Thu Jul 28 15:42:32 2005 From: ml13 at onlinehome.de (ml13 at onlinehome.de) Date: Thu, 28 Jul 2005 17:42:32 +0200 Subject: [fomus-devel] cello double-stops In-Reply-To: <42E7F077.9040706@uiuc.edu> References: <42E7F077.9040706@uiuc.edu> Message-ID: Hi, thanks for solving my last problem via cvs :) I have some more questions: I am doing this to get a cello double-stop: (fomus-init :ensemble-type :orchestra) (fomus-newpart 1 :name "Cello" :instr :cello) (fomus-newnote 1 :off 0 :dur 2 :note 61) (fomus-newnote 1 :off 0 :dur 2 :note 55) (fomus-newnote 1 :off 2 :dur 1 :note 45) (fomus-exec) Which returns this error: Cannot distribute voices for part "Cello" [Condition of type SIMPLE-ERROR] Well, I understand that the voicelim for cello is 1, but does a chord, in which all the notes have the same duration already need more than one voice? I was trying to override the instr settings by changing the first line to: (fomus-init :ensemble-type :orchestra :instruments (list (make-instr :cello :clefs '(:bass) :voicelim 2))) .... Which brings up: Undefined function VOICELIM called with arguments (#S(INSTR :SYM :CELLO :CLEFS (:BASS) :STAVES 1 :MINP NIL :MAXP ...)) . Sorry for not tracking this further down - I suspected that (voicelim ...) was erroneously called instead of (instr-voicelim ...), but I did not really succeed... I have to first of all read more of your code. Ciao, Kilian Sprotte -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: text/enriched Size: 1511 bytes Desc: not available URL: From dpsenick at uiuc.edu Thu Jul 28 18:42:51 2005 From: dpsenick at uiuc.edu (David Psenicka) Date: Thu, 28 Jul 2005 13:42:51 -0500 Subject: [fomus-devel] cello double-stops In-Reply-To: References: <42E7F077.9040706@uiuc.edu> Message-ID: <42E9272B.60805@uiuc.edu> > Sorry for not tracking this further down - I suspected that (voicelim > ...) was erroneously called instead of (instr-voicelim ...), but I did > not really succeed... I have to first of all read more of your code. Thanks, it'll be fixed in the next cvs commit. I might change "voicelim" to something like "simultlim" since voicelim isn't really correct. The fix is in (defparameter +instr-type+ in data.lisp, which needs to be: (defparameter +instr-type+ `(with-error* (instr "~~A of INSTR struct ~S" ,#'instr-sym) (struct* instr (instr-sym ... (instr-clefs ... (instr-staves ... (instr-minp ... (instr-maxp ... (instr-voicelim ... (instr-tpose ... (instr-cleflegls ... (instr-8uplegls ... (instr-8dnlegls ... (instr-percs ... From ml13 at onlinehome.de Fri Jul 29 10:29:06 2005 From: ml13 at onlinehome.de (ml13 at onlinehome.de) Date: Fri, 29 Jul 2005 12:29:06 +0200 Subject: [fomus-devel] :beat-division ? Message-ID: Hi, I just have another question. I dont understand the meaning of :beat-division. For example, when I specify: :beat-division 2, I am expecting the grid for rounding offsets and durations to be: 0 0.5 1 1.5 ... So, if I have something like: (fomus-newnote 1 :off 0 :dur 0.3 :note 61) (fomus-newnote 1 :off 0.3 :dur 0.7 :note 40) it should become: (fomus-newnote 1 :off 0 :dur 0.5 :note 61) (fomus-newnote 1 :off 0.5 :dur 0.5 :note 40) Well, I can see that :beat-division really has a different meaning, could you give me a hint? Thanks, Kilian