SourceControlPanel.lua

local Utils = require('common/Utils');

local MRControl = require('common/MouseRecorderControl');

require('common/GuiHelper');

local iw = require('common/ItemWidget');

local cg = require('common/ControlsGroups');

local lscc = require('common/ListenerSourceCommonControls');

local scp = iw:subclass("SourceControlPanel");

local cgi = cg();

cgi.og.position = lscc.position;
cgi.og.velocity = lscc.velocity;

function cgi.og.falloff(item, ogr)
    Slab.BeginLayout("AttenuationLayout", { Columns = 2 });
    Slab.SetLayoutColumn(1);
    scp.cg.hideButton(item, ogr);
    Slab.Text("Reference distance:");
    Slab.Text("Maximal distance:");
    Slab.Text("Air absorbtion:");
    Slab.Text("Rolloff:");
    Slab.SetLayoutColumn(2);
    if Slab.Button("Reset") then
        item:setAttenuationDistances(1, math.huge);
        item:setAirAbsorption(0);
        item:setRolloff(1);
    end
    local ref, max = item.source:getAttenuationDistances();
    local input = false;
    if Slab.ActiveDrag("ReferenceDistance", ref, { Step = 0.1, Min = 0 }) then
        ref = Slab.GetInputNumber(); input = true;
    end
    if Slab.ActiveDrag("MaximalDistance", max, { Step = 0.1, Min = 0 }) then
        max = Slab.GetInputNumber(); input = true;
    end
    if input then item:setAttenuationDistances(ref, max); end
    if Slab.ActiveDrag("AirAbsorbtion", item.source:getAirAbsorption(), { Step = 0.1, Min = 0}) then
        local aa = Slab.GetInputNumber();
        item:setAirAbsorption(aa);
    end
    if Slab.ActiveDrag("Rolloff", item.source:getRolloff(), { Step = 0.1 }) then
        local rf = Slab.GetInputNumber();
        item:setRolloff(rf);
    end
    Slab.EndLayout();
end

function cgi.og.direction(item, ogr)
    Slab.BeginLayout("DirectionLayout", { Columns = 2 });
    Slab.SetLayoutColumn(1);
    scp.cg.hideButton(item, "direction");
    Slab.Text("x:");
    Slab.Text("y:");
    Slab.Text("z:");
    Slab.SetLayoutColumn(2);
    if Slab.Button("Reset") then
        item:setDirection(0, 0, 0);
    end
    local x, y, z = item.source:getDirection();
    input = false;
    if Slab.ActiveDrag("DirectionX", x, { Step = 0.1 }) then
        x = Slab.GetInputNumber(); input = true;
    end
    if Slab.ActiveDrag("DirectionY", y, { Step = 0.1 }) then
        y = Slab.GetInputNumber(); input = true;
    end
    if Slab.ActiveDrag("DirectionZ", z, { Step = 0.1 }) then
        z = Slab.GetInputNumber(); input = true;
    end
    if input then item:setDirection(x, y, z); end
    Slab.EndLayout();
end

function cgi.og.cone(item, ogr)
    Slab.BeginLayout("ConeLayout", { Columns = 2 });
    Slab.SetLayoutColumn(1);
    scp.cg.hideButton(item, "cone");
    Slab.Text("Inner angle:");
    Slab.Text("Outer angle:");
    Slab.Text("Outer volume:");
    Slab.SetLayoutColumn(2);
    if Slab.Button("Reset") then
        item:setCone(math.rad(360), math.rad(360), 0);
    end
    local ia, oa, ov = item.source:getCone();
    local changed = false;
    local nia = Slab.DegreeSlider("InnerAngleSlider", ia);
    if nia ~= nil then
        changed = true;
    else
        nia = ia;
    end
    local noa = Slab.DegreeSlider("OuterAngleSlider", oa);
    if noa ~= nil then
        changed = true;
    else
        noa = oa;
    end
    local nov = Slab.PercentageSlider("OuterVolumeSlider", ov)
    if nov ~= nil then
        changed = true;
    else
        nov = ov;
    end
    if changed then item:setCone(nia, noa, nov); end
    Slab.EndLayout();
end

function scp.static:spatialOptions(item)
    if (not item:isMono()) then
        Slab.Text("Spatial options are unavaliable for multi-channel sources.");
        return;
    end
    self.cg:optionsGroup(item, "falloff")
    Slab.Separator();

    self.cg:optionsGroup(item, "position");
    Slab.Separator();

    self.cg:optionsGroup(item, "velocity");
    Slab.Separator();

    if item.mouseRecorder then
        MRControl(item);
        Slab.Separator();
    end

    self.cg:optionsGroup(item, "direction");
    Slab.Separator();

    self.cg:optionsGroup(item, "cone");
end

function cgi.og.various(item, ogr)
    Slab.BeginLayout("AdvancedLayout", { Columns = 2 });
    Slab.SetLayoutColumn(1);
    scp.cg.hideButton(item, "various");
    Slab.Text("Minimal vol:");
    Slab.Text("Maximal vol:");
    Slab.Text("Pitch:");
    Slab.SetLayoutColumn(2);
    if Slab.Button("Reset") then
        item:setVolumeLimits(0, 1);
        item:setPitch(1);
    end
    local minv, maxv = item.source:getVolumeLimits();
    local changed = false;
    local nminv = Slab.PercentageSlider("MinVolume", minv)
    if nminv ~= nil then
        changed = true;
    else
        nminv = minv;
    end
    local nmaxv = Slab.PercentageSlider("MaxVolume", maxv)
    if nmaxv ~= nil then
        changed = true;
    else
        nmaxv = maxv;
    end
    if changed then item:setVolumeLimits(nminv, nmaxv); end
    local p = item.source:getPitch();
    p = Slab.PercentageDrag("PitchDrag", p, 0);
    if p then
        item:setPitch(p);
    end
    Slab.EndLayout();
end

function cgi.og.advanced(item, ogr)
    scp.cg.hideButton(item, ogr);
    scp:spatialOptions(item);
    Slab.Separator();
    scp.cg:optionsGroup(item, "various")
end

scp.static.cg = cgi;

function scp.static.update(item)
    changed = false;
    scp.cg:optionsGroup(item, "advanced");
    Slab.Separator();
    Slab.BeginLayout("PlaybackControlLayout", { Columns = 3, AlignX = 'center' });
    Slab.SetLayoutColumn(1);
    Slab.Text("Volume:");
    Slab.SameLine();
    local ov = item:getVolume();
    local nv = Slab.PercentageSlider("VolumeSlider", ov);
    if nv then
        item:setVolume(nv);
    end
    Slab.SetLayoutColumn(2);
    if Slab.CheckBox(item.source:isLooping(), "Looping") then
        item:toggleLooping();
    end
    Slab.SetLayoutColumn(3);
    Slab.Text("Time:");
    Slab.SameLine();
    Slab.Text(Utils.TimeFormat(item.source:tell()));
    Slab.EndLayout();
    Slab.BeginLayout("PlaybackButtonsLayout", { Columns = 5 });
    Slab.SetLayoutColumn(1);
    if Slab.Button("[<<") then
        item.source:seek(0);
    end
    Slab.SetLayoutColumn(2);
    if Slab.Button("<") then
        item:rewindBy(-10);
    end
    Slab.SetLayoutColumn(3);
    if item.source:isPlaying() then
        if Slab.Button("Pause") then
            item:pause();
        end
    else
        if Slab.Button("Play") then
            item:play();
        end
    end
    Slab.SetLayoutColumn(4);
    if Slab.Button("Stop") then
        item:stop();
    end
    Slab.SetLayoutColumn(5);
    if Slab.Button(">") then
        item:rewindBy(10);
    end
    Slab.EndLayout();
    return changed;
end

return scp;