Mercurial > hg > amuse

changeset 238:55c188ef8b0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update midi-db example (add clapping music to db). Ignore-this: 36c28b012dc8a50b1daf6a7ec4de5105 darcs-hash:20100414183655-16a00-f4e9de706e2f6869d977fe35511507cb2a1d5bb0.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents be5cd4c5ecc2
children 7412629f5c78
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	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/midi-db/examples/importing-midifiles.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -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)