Mercurial > hg > amuse
changeset 312:32769840b715
Update midi-db example (add clapping music to db).
Ignore-this: 36c28b012dc8a50b1daf6a7ec4de5105
darcs-hash:20100414183655-16a00-f4e9de706e2f6869d977fe35511507cb2a1d5bb0.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Wed, 14 Apr 2010 19:36:55 +0100 |
| parents | b31bb22ba67f |
| children | aa2545163331 |
| files | implementations/midi-db/examples/importing-midifiles.lisp |
| diffstat | 1 files changed, 21 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/midi-db/examples/importing-midifiles.lisp Sun Apr 04 22:36:47 2010 +0100 +++ b/implementations/midi-db/examples/importing-midifiles.lisp Wed Apr 14 19:36:55 2010 +0100 @@ -3,11 +3,11 @@ (connect-to-database :database-name "amuse" :username "jamief") ; needs to be adequate permissions -(create-midi-db-tables *amuse-database*) +;(create-midi-db-tables *amuse-database*) ; if not already created ;(drop-midi-db-tables *amuse-database*) -(register-new-implementation *package*) +;(register-new-implementation *package*) ; if not already registered ;;;===================================================================== @@ -21,7 +21,7 @@ *amuse-database*))) (import-midifiles - "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/DangerousDrums/" + "/home/jamie/music/midifiles/marcus-midifiles/DangerousDrums/" collection-identifier *amuse-database*)) @@ -33,7 +33,7 @@ *amuse-database*))) (import-midifiles - "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/LARiotv1/" + "/home/jamie/music/midifiles/marcus-midifiles/LARiotv1/" collection-identifier *amuse-database*)) @@ -44,8 +44,24 @@ *amuse-database*))) (import-midifiles - "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/MIDIBreakbeatsv8/" + "/home/jamie/music/midifiles/marcus-midifiles/MIDIBreakbeatsv8/" collection-identifier *amuse-database*)) + +;;;===================================================================== +;;; Import Clapping Music (from Marcus) +;;;===================================================================== + +(let ((collection-identifier + (register-new-collection "Clapping Music" + "Three versions of Steve Reich's Clapping Music." + *amuse-database*))) + + (import-midifiles + "/home/jamie/music/midifiles/modernism/clapping-music/" + collection-identifier + *amuse-database*)) + + (disconnect-from-database)