annotate implementations/midi-db/examples/importing-midifiles.lisp @ 330:2fbff655ba47 tip

Removed cpitch-adj and cents SQL columns
author Jeremy Gow <jeremy.gow@gmail.com>
date Mon, 21 Jan 2013 11:08:11 +0000
parents d9193c44b207
children
rev   line source
j@310 1 (cl:in-package #:amuse-midi-db)
j@310 2
j@310 3 (connect-to-database :database-name "amuse"
j@310 4 :username "jamief") ; needs to be adequate permissions
j@310 5
j@312 6 ;(create-midi-db-tables *amuse-database*) ; if not already created
j@310 7
j@310 8 ;(drop-midi-db-tables *amuse-database*)
j@310 9
j@312 10 ;(register-new-implementation *package*) ; if not already registered
j@310 11
j@310 12
j@310 13 ;;;=====================================================================
j@310 14 ;;; Import collections of drum loops (from Marcus)
j@310 15 ;;;=====================================================================
j@310 16
j@310 17 ;;; Dangerous Drums
j@310 18 (let ((collection-identifier
j@310 19 (register-new-collection "Dangerous Drums"
j@310 20 "Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310 21 *amuse-database*)))
j@310 22
j@310 23 (import-midifiles
j@312 24 "/home/jamie/music/midifiles/marcus-midifiles/DangerousDrums/"
j@310 25 collection-identifier
j@310 26 *amuse-database*))
j@310 27
j@310 28
j@310 29 ;;; LA Riot v1
j@310 30 (let ((collection-identifier
j@310 31 (register-new-collection "LA Riot V1"
j@310 32 "Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310 33 *amuse-database*)))
j@310 34
j@310 35 (import-midifiles
j@312 36 "/home/jamie/music/midifiles/marcus-midifiles/LARiotv1/"
j@310 37 collection-identifier
j@310 38 *amuse-database*))
j@310 39
j@310 40 ;;; Midi breakbeats v8
j@310 41 (let ((collection-identifier
j@310 42 (register-new-collection "MIDI Breakbeats V8"
j@310 43 "Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310 44 *amuse-database*)))
j@310 45
j@310 46 (import-midifiles
j@312 47 "/home/jamie/music/midifiles/marcus-midifiles/MIDIBreakbeatsv8/"
j@310 48 collection-identifier
j@310 49 *amuse-database*))
j@310 50
j@312 51
j@312 52 ;;;=====================================================================
j@312 53 ;;; Import Clapping Music (from Marcus)
j@312 54 ;;;=====================================================================
j@312 55
j@312 56 (let ((collection-identifier
j@316 57 (register-new-collection "Minimalism"
j@316 58 "Minimalist midifile."
j@312 59 *amuse-database*)))
j@312 60
j@312 61 (import-midifiles
j@316 62 "/home/jamie/music/midifiles/modernism/reich/"
j@312 63 collection-identifier
j@312 64 *amuse-database*))
j@312 65
j@312 66
j@310 67 (disconnect-from-database)