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)
|