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

commiting public release

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cpack/dml/lib/dml_c3.pl	Tue Feb 09 21:05:06 2016 +0100
@@ -0,0 +1,152 @@
+:- module(dml_c3,
+   [  csv_op_chart/3
+   ,  cla_op_chart/3
+   ,  cla_label_lang/3
+   ,  c3_bar/3, c3_bar/2
+   ,  c3_plot/3
+   ,  c3_steps/3
+   ,  c3_csteps/3
+   ,  c3_hist/5
+   ]).
+
+:- use_module(library(computations)).
+:- use_module(library(mlserver)).
+:- use_rendering(c3).
+
+csv_op_chart(Op,Result,Chart) :- op_chart(Op,Result,Chart), !.
+csv_op_chart(Op,X,unrecognised(Op,X)).
+
+op_chart(pitch_hist(_Weighting),Pairs,Ch) :- 
+    unzip(Pairs,NoteNums,Counts),
+    maplist(computations:pitch_number_name,NoteNums,Pitches),
+    c3_bar(pitch-Pitches,counts-Counts,Ch1),
+    Ch=Ch1.put(axis/x/type,categorical).
+
+op_chart(freq_hist(Map,_),Counts,Ch) :- c3_hist(bars,pitch,Map,Counts,Ch).
+op_chart(freq_hist_r(Map,_),Counts,Ch) :- c3_hist(bars,pitch,Map,Counts,Ch).
+op_chart(tempo,Pairs,Ch) :- unzip(Pairs,T,X), c3_plot(time-T,tempo-X,Ch).
+op_chart(uniform_tempo(_),T-X,Ch) :- c3_plot(time-T,tempo-X,Ch).
+op_chart(uniform_tempo_r(_),T-X,Ch) :- c3_plot(time-T,tempo-X,Ch).
+op_chart(uniform_tempo(_,_),T-X,Ch) :- c3_plot(time-T,tempo-X,Ch).
+op_chart(uniform_tempo_r(_,_),T-X,Ch) :- c3_plot(time-T,tempo-X,Ch).
+op_chart(tempo_hist_r(_DT,Map),_-Counts,Ch) :- c3_hist(steps,tempo,Map,Counts,Ch).
+op_chart(tempo_hist(_DT,Map),_-Counts,Ch) :- c3_hist(steps,tempo,Map,Counts,Ch).
+op_chart(normalised_tempo(N),_T-X,Ch) :- tempo_curve(N,X,Ch).
+op_chart(normalised_tempo_r(N),_T-X,Ch) :- tempo_curve(N,X,Ch).
+
+cla_op_chart(Op,X,Chart) :- cla_chart(Op,X,Chart), !.
+cla_op_chart(Op,X,unrecognised(Op,X)).
+
+cla_chart(Op,X,Chart) :-
+    is_dict(X), _{result:R} :< X, !,
+    cla_chart(Op,R,Chart).
+
+cla_chart(collection_pitch_histogram(_),X,Chart) :-
+   c3_bar(notenum-X.values,counts-X.counts,Chart).    
+
+cla_chart(collection_freq_histogram(Min,Max,Quant,_),X,Chart) :- % matlab
+    c3_hist(bars,pitch,binmap(Min,Max,(Max-Min)*Quant+1),X.counts,Chart).
+
+cla_chart(collection_freq_histogram(_Lang,Min,Max,Quant,_),X,Chart) :-
+    c3_hist(bars,pitch,binmap(Min,Max,(Max-Min)*Quant+1),X.counts,Chart).
+
+cla_chart(collection_tempo_histogram(_,Min,Max,N),X,Chart) :- % matlab
+    c3_hist(steps,tempo,expmap(Min,Max,N),X.counts,Chart).
+
+cla_chart(collection_tempo_histogram(_Lang,_,Min,Max,N),X,Chart) :-
+    c3_hist(steps,tempo,expmap(Min,Max,N),X.counts,Chart).
+
+cla_chart(collection_tempo_curve(N),X,Chart) :- % matlab
+    tempo_curve(N,X.means,Chart).
+
+cla_chart(collection_tempo_curve(_Lang,N),X,Chart) :-
+    tempo_curve(N,X.means,Chart).
+
+cla_chart(py_hist(tagged(tonic), key_tonic_hist:aggregate, []),X,Chart) :-
+   c3_bar(key-X.values,counts-X.counts,Chart1),
+   Chart=Chart1.put(axis/x/type,categorical).
+
+cla_chart(py_hist(tagged(transcription), semitone_hist:aggregate, []),X,Chart) :-
+   c3_bar('pitch class'-X.values,counts-X.counts,Chart1),
+   Chart=Chart1.put(axis/x/type,categorical).
+
+cla_chart(tuning_stats, X, Chart) :-
+   Hist=X.stats.hist,
+   c3_hist(steps,frequency,edgemap(Hist.edges),Hist.counts,Chart).
+
+cla_chart(py_cla(tagged(transcription(1)), tuning_stats:per_file, []),X, Chart) :-
+   cla_chart(tuning_stats, X, Chart).
+
+
+tempo_curve(N,X,Chart) :- 
+   numlist(1,N,T), 
+   c3_csteps(time-T,tempo-X,Chart).
+
+c3_hist(bars,XLabel,Map,Counts,Chart) :- 
+    array_list(centres(Map),Centres1),
+    maplist(fix(2),Centres1,Centres),
+    c3_bar(XLabel-Centres,counts-Counts,Chart).
+
+c3_hist(steps,XLabel,Map,Counts,Chart) :- 
+    array_list(edges(Map),Edges1),
+    maplist(fix(2),Edges1,Edges),
+    append(Counts,[0],C),
+    c3_steps(XLabel-Edges,counts-C,Chart).
+
+
+fix(N,X,Y) :- Q is 10^N, Y is round(X*Q)/Q.
+
+:- public c3:put//2
+        , c3:axis//2
+        , c3:bar//2
+        , c3:area//2
+        , c3:zoom//1
+        , c3:legend//1
+        , c3:subchart//1
+        , c3:put//2
+        , c3:scat//2
+        .
+
+c3:put(Path,Val,D1,D1.put(Path,Val)).
+c3:axis(Name,Label,D1,D2) :- axis_pos(Name,Pos), D2=D1.put(axis/Name/label,_{text:Label,position:Pos}).
+c3:axes(Lab1,Lab2) --> c3:axis(x,Lab1), c3:axis(y,Lab2).
+c3:legend(F) --> c3:put(legend/show,F).
+c3:subchart(F) --> c3:put(subchart/show,F).
+c3:zoom(F) --> c3:put(zoom/enabled,F).
+
+c3:scat(XLabel,YLabel) --> c3:init(scatter,XLabel,YLabel).
+c3:bar(XLabel,YLabel) --> c3:init(bar,XLabel,YLabel).
+c3:area(XLabel,YLabel) --> c3:init(area,XLabel,YLabel).
+
+c3:init(Type,XLabel,YLabel) -->
+   c3:axes(XLabel,YLabel),
+   c3:put(data,_{columns:[],type:Type}),
+   c3:put(axis/x/tick/fit,false).
+
+axis_pos(x,'outer-center').
+axis_pos(y,'outer-middle').
+
+c3_plot(XL-XV,YL-YV, c3{data:_{x:XL,columns:[[XL|XV],[YL|YV]]}}.axes(XL,YL).legend(false)).
+c3_steps(XL-XV,YL-YV, c3{ line:_{step:_{type:'step-after'}}, 
+                          data:_{type:'area-step',x:XL, columns:[[XL|XV],[YL|YV]]}
+                        }.axes(XL,YL).legend(false)).
+c3_csteps(XL-XV,YL-YV, c3{data:_{type:step,x:XL,columns:[[XL|XV],[YL|YV]]}}.axes(XL,YL).legend(false)).
+c3_bar(Label-Vals,c3{data:_{type:bar, columns:[[Label|Vals]]}}.axis(y,Label)).
+c3_bar(XL-XV,YL-YV,c3{data:_{type:bar, x:XL, columns:[[XL|XV],[YL|YV]]}}.axes(XL,YL).legend(false)).
+
+
+cla_label_lang(collection_pitch_histogram(_),pitch_histogram,pl).
+cla_label_lang(collection_freq_histogram(_,_,_,_),freq_histogram,ml). 
+cla_label_lang(collection_freq_histogram(Lang,_,_,_,_),freq_histogram,Lang).
+cla_label_lang(collection_tempo_histogram(_,_,_,_),tempo_histogram,ml). % matlab
+cla_label_lang(collection_tempo_histogram(Lang,_,_,_,_),tempo_histogram,Lang).
+cla_label_lang(collection_tempo_curve(_),tempo_curve,ml). % matlab
+cla_label_lang(collection_tempo_curve(Lang,_),tempo_curve,Lang).
+cla_label_lang(py_hist(tagged(tonic), key_tonic_hist:aggregate, []),tonic_histogram,py).
+cla_label_lang(py_hist(tagged(transcription), semitone_hist:aggregate, _),pc_histogram,py).
+cla_label_lang(tuning_stats, tuning_stats, py).
+cla_label_lang(py_cla(tagged(transcription(1)), tuning_stats:per_file, _),tuning_stats, py).
+cla_label_lang(py_cla(keys_chords,chord_seq_key_relative:aggregate,_),key_relative_chord_seq,py).
+cla_label_lang(py_cla(similarity_bundle,similarity:per_file,_), similarity, py).
+
+