# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID 55c188ef8b0a939b6d0d3d6a655bddd990b9f7c4
# Parent  be5cd4c5ecc228141bdd1d73d408088c8f5d8c7f
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>

diff -r be5cd4c5ecc2 -r 55c188ef8b0a implementations/midi-db/examples/importing-midifiles.lisp
--- 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)