Mercurial > hg > amuse

comparison implementations/midi-db/examples/importing-midifiles.lisp @ 316:d9193c44b207

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
twiddle midi-db import example Ignore-this: cf975529b1d8ad8af507e7dd2144ccea darcs-hash:20100416180846-16a00-a91855cc12370a9198448353f4438647d4cdfdae.gz
author j.forth <j.forth@gold.ac.uk>
date Fri, 16 Apr 2010 19:08:46 +0100
parents 32769840b715
children
comparison
equal deleted inserted replaced
315:d1ff5dad3f8d 316:d9193c44b207
52 ;;;===================================================================== 52 ;;;=====================================================================
53 ;;; Import Clapping Music (from Marcus) 53 ;;; Import Clapping Music (from Marcus)
54 ;;;===================================================================== 54 ;;;=====================================================================
55 55
56 (let ((collection-identifier 56 (let ((collection-identifier
57 (register-new-collection "Clapping Music" 57 (register-new-collection "Minimalism"
58 "Three versions of Steve Reich's Clapping Music." 58 "Minimalist midifile."
59 *amuse-database*))) 59 *amuse-database*)))
60 60
61 (import-midifiles 61 (import-midifiles
62 "/home/jamie/music/midifiles/modernism/clapping-music/" 62 "/home/jamie/music/midifiles/modernism/reich/"
63 collection-identifier 63 collection-identifier
64 *amuse-database*)) 64 *amuse-database*))
65 65
66 66
67 (disconnect-from-database) 67 (disconnect-from-database)