Mercurial > hg > amuse

comparison implementations/midi-db/examples/importing-midifiles.lisp @ 242:66f9c2913ac7

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 committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 55c188ef8b0a
children
comparison
equal deleted inserted replaced
241:2138ea478adb 242:66f9c2913ac7
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)