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