Mercurial > hg > silvet
annotate yeti/templates.yeti @ 12:0f6db1895e1c
Prepare the ground for cqt and templates
author | Chris Cannam |
---|---|
date | Fri, 21 Mar 2014 17:14:44 +0000 |
parents | |
children | e15bc63cb146 |
rev | line source |
---|---|
Chris@12 | 1 |
Chris@12 | 2 module templates; |
Chris@12 | 3 |
Chris@12 | 4 vec = load may.vector; |
Chris@12 | 5 |
Chris@12 | 6 // Load instrument templates |
Chris@12 | 7 |
Chris@12 | 8 instruments = [ |
Chris@12 | 9 "bassoon", |
Chris@12 | 10 "cello", |
Chris@12 | 11 "clarinet", |
Chris@12 | 12 "flute", |
Chris@12 | 13 "guitar", |
Chris@12 | 14 "horn", |
Chris@12 | 15 "oboe", |
Chris@12 | 16 "tenorsax", |
Chris@12 | 17 "violin", |
Chris@12 | 18 "piano-maps-SptkBGCl" |
Chris@12 | 19 ]; |
Chris@12 | 20 |
Chris@12 | 21 loadTemplates () = mapIntoHash id |
Chris@12 | 22 do instrument: |
Chris@12 | 23 readFile "../data/\(instrument).csv" "UTF-8" |
Chris@12 | 24 do istr: |
Chris@12 | 25 array |
Chris@12 | 26 (map do line: |
Chris@12 | 27 vec.fromList (map number (strSplit "," line)) |
Chris@12 | 28 done (istr.lines ())); |
Chris@12 | 29 done; |
Chris@12 | 30 done instruments; |
Chris@12 | 31 |
Chris@12 | 32 { |
Chris@12 | 33 loadTemplates |
Chris@12 | 34 } |
Chris@12 | 35 |