# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1271270215 -3600
# Node ID 32769840b715a06d457c167998e700a7f873a595
# Parent  b31bb22ba67f250c1201ce79c551c7a7800d0e22
Update midi-db example (add clapping music to db).

Ignore-this: 36c28b012dc8a50b1daf6a7ec4de5105

darcs-hash:20100414183655-16a00-f4e9de706e2f6869d977fe35511507cb2a1d5bb0.gz

diff -r b31bb22ba67f -r 32769840b715 implementations/midi-db/examples/importing-midifiles.lisp
--- 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)