diff cpack/dml/lib/musiclab.pl @ 0:718306e29690 tip

commiting public release

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cpack/dml/lib/musiclab.pl	Tue Feb 09 21:05:06 2016 +0100
@@ -0,0 +1,80 @@
+/* Part of DML (Digital Music Laboratory)
+	Copyright 2014-2015 Samer Abdallah, University of London
+	 
+	This program is free software; you can redistribute it and/or
+	modify it under the terms of the GNU General Public License
+	as published by the Free Software Foundation; either version 2
+	of the License, or (at your option) any later version.
+
+	This program is distributed in the hope that it will be useful,
+	but WITHOUT ANY WARRANTY; without even the implied warranty of
+	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+	GNU General Public License for more details.
+
+	You should have received a copy of the GNU General Public
+	License along with this library; if not, write to the Free Software
+	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+*/
+
+:- module(musiclab,
+   [  kern_pc_hist/2
+   ,  pitch_class/2
+   ,  pitch_class_number/2
+   ,  pc_number_name/2
+   ]).
+
+:- use_module(library(persistency)).
+
+:- use_module(library(humdrum)).
+:- use_module(library(humdrum/kern)).
+:- use_module(library(humdrum/kernutils)).
+:- use_module(library(humdrum/dynam)).
+:- use_module(library(humdrum/humdrum_world)).
+:- use_module(library(typedef)).
+:- use_module(library(memo)).
+
+:- type pitch_class ---> a ; b ; c ; d ; e ; f ; g ; sharp(pitch_class) ; flat(pitch_class).
+
+:- volatile_memo kern_pc_hist(+path:ground, -hist:list(pair(pitch_class,nonneg))).
+
+% ------------ reading kern ----------------
+
+pitch_class_number(sharp(PC),N) :- !, pitch_class_number(PC,M), N is (M+1) mod 12.
+pitch_class_number(flat(PC),N) :- !, pitch_class_number(PC,M), N is (M-1) mod 12.
+pitch_class_number(c,0). 
+pitch_class_number(d,2). 
+pitch_class_number(e,4). 
+pitch_class_number(f,5). 
+pitch_class_number(g,7). 
+pitch_class_number(a,9). 
+pitch_class_number(b,11).
+
+kern_pc_hist(Path,Hist) :-
+   with_kern_module(Path,utf8,M,findall(PC-N,aggregate(count,mod_note_pc(M,PC),N),Hist)).
+
+% pc_hist_to_num(Hist1,Hist2) :-
+%    findall(PCN-X, (member(PC-X,Hist1), pitch_class_number(PC,PCN)), Hist2),
+%    numlist(0,11,PCNs),
+%    maplist(pc_number_name,PCNs,PCNames),
+%    maplist(\PCN^Count^(member(PCN-Count,Hist2) -> true; Count=0),PCNs,Counts),
+   
+
+mod_note_pc(M,PC) :- 
+   M:note(pitch(P),_,_,_), 
+   pitch_class(P,PC).
+
+pc_number_name(0,"c").
+pc_number_name(1,"c#").
+pc_number_name(2,"d").
+pc_number_name(3,"d#").
+pc_number_name(4,"e").
+pc_number_name(5,"f").
+pc_number_name(6,"f#").
+pc_number_name(7,"g").
+pc_number_name(8,"g#").
+pc_number_name(9,"a").
+pc_number_name(10,"a#").
+pc_number_name(11,"b").
+
+
+