view cpack/dml/components/score.pl @ 0:718306e29690 tip

commiting public release

/* 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(cp_score, 
      [  score//2, score//3
      ,  sonify_ui//2
      ,  score_audio_player//1
      ,  score_audio_player//3
      ,  pitch_class_histogram//1
      ]).

:- use_module(library(http/html_write)).
:- use_module(library(http/http_dispatch)).
:- use_module(library(dcg_core)).
:- use_module(library(musiclab)).
:- use_module(library(humdrum_p2r)).
:- use_module(library(mlserver)).
:- use_module(library(real)).
:- use_module(library(sandbox)).
:- use_module(components(matlab),[]).
:- use_module(components(r_fig),[]).
:- use_module(components(audio),[audio_player//2]).
:- use_module(api(score)).

:- set_prolog_flag(double_quotes,string).

%% score(+R:uri,+Width:number)// is det.
%
%  Generates an HTML DIV element containing a rendered score. URI is assumed
%  to refer to a Humdrum file. Width is in mm and is passed to Lilypond as 
%  the desired staff width.
score(URI,Width) --> score(URI,Width,[]).
score(URI,Width,Opts) -->
   {option(transpose(T),Opts,'P1')},
   {http_link_to_id(score_render,[uri(URI),width(Width),layout(snip),format(svg),transpose(T)],URL)},
   html(div([id=score,width='100%',height=auto],[img([src=URL],[])])).


%% sonify_ui(+R:uri,+ID:hander_id)// is det
%
%  Generates an interface for setting parameters and sonifying a Humdrum score.
sonify_ui(URI,HandlerID) -->                       
   { http_link_to_id(HandlerID,[],AudioPlayerURL),
     setting_property(score:fluidsynth_rc,type(oneof(RCs))),
     setting(score:fluidsynth_rc,RC0),
     Intervals=['-P5','-d5','-P4','-M3','-m3','-M2','-m2','P1','m2','M2','m3','M3','P4','d5','P5']
   }, 
   html([ form([class=forms,target=player,method=get,action=AudioPlayerURL],
            [ input([type=hidden,name=uri,value=URI])
            , input([type=hidden,name=autoplay,value=true])
            %, input([type=hidden,name=format,value=ogg])
            , table([class=form], 
               [ tr([ th(class=label,"Tempo scaling factor"), 
                      td(input([type=number,min=0,max=4,step=0.1,name=tempo,value=1],[]))])
               % , tr([ th(class=label,"Transposition in semitones"),
               %        td(input([type=text,name=transpose,value='P1'],[]))])
               , tr([ th(class=label,"Transposition interval"),
                      td(\html_select(transpose,Intervals,'P1'))])
               , tr([ th(class=label,"Fluidsynth initialisation"), 
                      td(\html_select(fluidrc,RCs,RC0))])
               ])
            , input([type=submit,class=btn,value="Sonify"],[])
            , iframe([name=player,seamless=seamless,style="display:inline-block;height:3.2em"],[])
            ])
        ]).

html_select(Name,Values,Initial) -->
   html(select([name=Name], \seqmap(html_option(Initial),Values))).

html_option(X,X) --> !, html(option(selected=selected,X)).
html_option(_,X) --> html(option(X)).


%% score_audio_player(+R:uri,+As:list(html_attrib),+Ps:list(http_param))// is det.
%% score_audio_player(+R:uri)// is det.
%
%  Generates an HTML 5 audio player to play a sonified score. Ps is a list
%  of HTTP parameters to be passed ultimately to score_sonify/1. As is a list
%  of HTML element attributes to be added to the HTML AUDIO element.
score_audio_player(URI) --> score_audio_player(URI,[],[]).
score_audio_player(URI,Attr,Params) -->
   {maplist(score_audio_link(URI,Params),[ogg],Links)},
   audio_player(Links, Attr).

score_audio_link(URI,Params,Fmt,URL-just(Fmt)) :- get_link(URI,a(Params)-Fmt,URL).


%% pitch_class_histogram(+Lang:oneof([ml,r]),+R:uri)// is det.
%
%  Generates a graphical rendering of the pitch class histogram computed
%  from the given URI, assumed to refer to a Humdrum file. Figure is 
%  generated using Matlab.
pitch_class_histogram(URI) -->
   cp_r_fig:figure( cp_score:pitch_class_histogram(r,URI), 12, 6, []).
   % cp_matlab:figure( cp_score:pitch_class_histogram(ml,URI), 12, 6, []).

pitch_class_histogram(Lang,URI) :-
   hum_uri_path(URI,Path),
   kern_pc_hist(Path,Hist1),
   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(Hist2),PCNs,Counts),
   (  Lang=r
   -> r(par(ps=10,mar=[2.1,2.2,1.1,0])),
      r(barplot(Counts,'names.arg'=PCNames,main="Pitch class histogram"))
   ;  Lang=ml
   -> ?? (  bar(PCNs,Counts);
            xticks(PCNs,cell(PCNames));
            title("Pitch class histogram");
            caxis([0,3]))
   ).

pcn_count(Hist,PCN,Count) :- member(PCN-Count,Hist) -> true; Count=0.


sandbox:safe_primitive(cp_score:pitch_class_histogram(_,_)).