import("math.lib");

ambpan1flat(a) = _ <: ( *(0.707107), *(cos(a)), *(sin(a)) );

frontwidth = hslider("front width", 60., 0., 180.0, 1);

frontchannels = (_,_) : ( ambpan1flat(frontwidth/180.0*PI/2.0), ambpan1flat(-(frontwidth/180.0*PI/2.0)) );

simplerear(side) = ambpan1flat(side * 120./180.*PI);

tripledrear(side) = (_ / 3.0) <: ( ambpan1flat(side * 120./180.*PI), ambpan1flat(side * 80./180.*PI), ambpan1flat(side * 160./180.*PI) );

// simple processing of the rear
//process = (_,_,_,_,_) : (frontchannels, simplerear(1), simplerear(-1), (*(hslider("front volume", 0.7, 0., 1., 0.1)) : ambpan1flat(0) ) ) :> (_,_,_);

// more complex with trippled rear
process = (_,_,_,_,_) : (frontchannels, tripledrear(1), tripledrear(-1), (*(hslider("front volume", 0.7, 0., 1., 0.1)) : ambpan1flat(0) ) ) :> (_,_,_);