Mercurial > hg > dtl-dml-cliopatria
changeset 2:cef93a1252f2 no-matlab
starting non-matlab branch by stubbing all matlab-related functions.
let's see which ones we need and how far we get ...
Leave message empty to abort commit. HG: -- HG: user:
wolffd.mail@googlemail.com HG: branch 'no-matlab' HG: changed
cpack/dml/lib/dsp.pl
| author | wolffd.mail@googlemail.com |
|---|---|
| date | Fri, 13 Jul 2018 15:14:03 +0000 |
| parents | 718306e29690 |
| children | 83702725b6e7 |
| files | cpack/dml/lib/dsp.pl |
| diffstat | 1 files changed, 22 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/cpack/dml/lib/dsp.pl Tue Feb 09 21:05:06 2016 +0100 +++ b/cpack/dml/lib/dsp.pl Fri Jul 13 15:14:03 2018 +0000 @@ -27,23 +27,29 @@ :- use_module(library(sandbox)). :- use_module(library(rdfutils)). :- use_module(library(memo)). -:- use_module(library(mlserver)). +% :- use_module(library(mlserver)). :- set_prolog_flag(double_quotes,string). :- setting(specgram_dynamic_range,number,90,"Dynamic range in dB for spectrograms"). -spectrogram(URI,X) :- - rdf_text(URI,beets:path,P), - X===specgrm( monofile(P), hanning(2048),512). +% spectrogram(URI,X) :- +% rdf_text(URI,beets:path,P), +% X===specgrm( monofile(P), hanning(2048),512). + +spectrogram(URI,X). :- volatile_memo spectrum(+atom,-ground). -spectrum(URI,X) :- - spectrogram(URI,Y), - X1===sum(Y,2), - persist_item(X1,X). +%spectrum(URI,X) :- +% spectrogram(URI,Y), +% X1===sum(Y,2), +% persist_item(X1,X). -spectrogram(URI,Offset,Length) :- +spectrum(URI,X). + +spectrogram(URI,Offset,Length). + +/* spectrogram(URI,Offset,Length) :- setting(specgram_dynamic_range,DBs), ( cp_audio:audio_file(URI,P,Fmt), ( Fmt=just(aac) @@ -56,10 +62,13 @@ ?? (specgrm( taket(Length,dropt(Offset,mixdown(MSignal))), hanning(2048),512,"range",DBs,"offset",Offset); ylim([0,15])). +*/ -sum(Items,Sum) :- - once(member(X,Items)), - D===numdims(X)+1, - Sum===sum(cellcat(D,cell(Items)),D). +sum(Items,Sum). + +% sum(Items,Sum) :- +% once(member(X,Items)), +% D===numdims(X)+1, +% Sum===sum(cellcat(D,cell(Items)),D). sandbox:safe_primitive(dsp:spectrogram(_,_,_)).