view implementations/midi-db/examples/importing-midifiles.lisp @ 312:32769840b715

Update midi-db example (add clapping music to db).

Ignore-this: 36c28b012dc8a50b1daf6a7ec4de5105

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

(cl:in-package #:amuse-midi-db)

(connect-to-database :database-name "amuse"
		     :username "jamief") ; needs to be adequate permissions

;(create-midi-db-tables *amuse-database*) ; if not already created

;(drop-midi-db-tables *amuse-database*)

;(register-new-implementation *package*) ; if not already registered


;;;=====================================================================
;;; Import collections of drum loops (from Marcus)
;;;=====================================================================

;;; Dangerous Drums
(let ((collection-identifier
       (register-new-collection "Dangerous Drums"
				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
				*amuse-database*)))

  (import-midifiles
   "/home/jamie/music/midifiles/marcus-midifiles/DangerousDrums/"
   collection-identifier
   *amuse-database*))


;;; LA Riot v1
(let ((collection-identifier
       (register-new-collection "LA Riot V1"
				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
				*amuse-database*)))

  (import-midifiles
   "/home/jamie/music/midifiles/marcus-midifiles/LARiotv1/"
   collection-identifier
   *amuse-database*))

;;; Midi breakbeats v8
(let ((collection-identifier
       (register-new-collection "MIDI Breakbeats V8"
				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
				*amuse-database*)))

  (import-midifiles
   "/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)