Add audition with playrate

ReaClassical/ReaClassical_Audition.lua

@@ -47,6 +47,7 @@ end
 function main()
     PreventUIRefresh(1)
     Undo_BeginBlock()
+    CSurf_OnPlayRateChange(1)
     local colors = get_color_table()
     local fade_editor_toggle = NamedCommandLookup("_RScc8cfd9f58e03fed9f8f467b7dae42089b826067")
     local fade_editor_state = GetToggleCommandState(fade_editor_toggle)

ReaClassical/ReaClassical_Audition_with_playrate.lua

@@ -0,0 +1,332 @@
+--[[
+@noindex
+
+This file is a part of "ReaClassical" package.
+See "ReaClassical.lua" for more information.
+
+Copyright (C) 2022–2024 chmaha
+
+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 3 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 program. If not, see <https://www.gnu.org/licenses/>.
+]]
+
+-- luacheck: ignore 113
+
+for key in pairs(reaper) do _G[key] = reaper[key] end
+
+local main, solo, trackname_check, mixer, on_stop
+local get_color_table, get_path
+
+---------------------------------------------------------------------
+
+local SWS_exists = APIExists("CF_GetSWSVersion")
+if not SWS_exists then
+    MB('Please install SWS/S&M extension before running this function', 'Error: Missing Extension', 0)
+    return
+end
+
+local _, input = GetProjExtState(0, "ReaClassical", "Preferences")
+local _, mastering = GetProjExtState(0, "ReaClassical", "MasteringModeSet")
+mastering = (mastering ~= "" and tonumber(mastering)) or 0
+local ref_is_guide = 0
+local audition_speed = 1
+if input ~= "" then
+    local table = {}
+    for entry in input:gmatch('([^,]+)') do table[#table + 1] = entry end
+    if table[7] then ref_is_guide = tonumber(table[7]) or 0 end
+    if table[9] then audition_speed = tonumber(table[9]) or 1 end
+end
+
+function main()
+    PreventUIRefresh(1)
+    Undo_BeginBlock()
+    CSurf_OnPlayRateChange(audition_speed)
+    local colors = get_color_table()
+    local fade_editor_toggle = NamedCommandLookup("_RScc8cfd9f58e03fed9f8f467b7dae42089b826067")
+    local fade_editor_state = GetToggleCommandState(fade_editor_toggle)
+    if fade_editor_state ~= 1 then
+        local track, _, pos = BR_TrackAtMouseCursor()
+        if track then
+            SetOnlyTrackSelected(track)
+            solo()
+            local select_children = NamedCommandLookup("_SWS_SELCHILDREN2") -- SWS: Select children
+            Main_OnCommand(select_children, 0)
+            mixer(colors)
+            local unselect_children = NamedCommandLookup("_SWS_UNSELCHILDREN")
+            Main_OnCommand(unselect_children, 0) -- SWS: Unselect children of selected folder track(s)
+            SetEditCurPos(pos, 0, 0)
+            OnPlayButton()
+            Undo_EndBlock('Audition', 0)
+            PreventUIRefresh(-1)
+            UpdateArrange()
+            UpdateTimeline()
+            TrackList_AdjustWindows(false)
+        end
+    else
+        DeleteProjectMarker(NULL, 1016, false)
+        BR_GetMouseCursorContext()
+        local hover_item = BR_GetMouseCursorContext_Item()
+        if hover_item ~= nil then
+            SetMediaItemSelected(hover_item, 1)
+            UpdateArrange()
+        end
+        local item_one = GetSelectedMediaItem(0, 0)
+        local item_two = GetSelectedMediaItem(0, 1)
+        if not item_one and not item_two then
+            MB("Please select at least one of the items involved in the crossfade", "Audition", 0)
+            return
+        elseif item_one and not item_two then
+            local color = GetMediaItemInfo_Value(item_one, "I_CUSTOMCOLOR")
+            if color == colors.xfade_green then
+                item_two = item_one
+                local prev_item = NamedCommandLookup("_SWS_SELPREVITEM")
+                Main_OnCommand(prev_item, 0)
+                item_one = GetSelectedMediaItem(0, 0)
+            else
+                local next_item = NamedCommandLookup("_SWS_SELNEXTITEM")
+                Main_OnCommand(next_item, 0)
+                item_two = GetSelectedMediaItem(0, 0)
+            end
+        end
+
+        Main_OnCommand(41185, 0) -- unsolo all
+        local item_one_muted = GetMediaItemInfo_Value(item_one, "B_MUTE")
+        local item_two_muted = GetMediaItemInfo_Value(item_two, "B_MUTE")
+
+        local one_pos = GetMediaItemInfo_Value(item_one, "D_POSITION")
+        local one_length = GetMediaItemInfo_Value(item_one, "D_LENGTH")
+        local two_pos = GetMediaItemInfo_Value(item_two, "D_POSITION")
+        Main_OnCommand(40289, 0) -- Item: Unselect (clear selection of) all items
+        BR_GetMouseCursorContext()
+        local mouse_pos = BR_GetMouseCursorContext_Position()
+        local item_hover = BR_GetMouseCursorContext_Item()
+        local end_of_one = one_pos + one_length
+        local overlap = end_of_one - two_pos
+        local mouse_to_item_two = two_pos - mouse_pos
+        if item_hover == item_one then
+            local item_length = GetMediaItemInfo_Value(item_one, "D_LENGTH")
+            SetMediaItemSelected(item_hover, true)
+            Main_OnCommand(40034, 0)     -- Item Grouping: Select all items in group(s)
+            if item_one_muted == 0 then
+                Main_OnCommand(41559, 0) -- Item properties: Solo
+            end
+            AddProjectMarker2(0, false, one_pos + item_length, 0, "!1016", 1016, colors.audition)
+            SetEditCurPos(mouse_pos, false, false)
+            OnPlayButton() -- play until end of item_hover (one_pos + item_length)
+        elseif item_hover == item_two then
+            SetMediaItemSelected(item_hover, true)
+            Main_OnCommand(40034, 0)     -- Item Grouping: Select all items in group(s)
+            if item_two_muted == 0 then
+                Main_OnCommand(41559, 0) -- Item properties: Solo
+            end
+            SetEditCurPos(two_pos, false, false)
+            AddProjectMarker2(0, false, mouse_pos, 0, "!1016", 1016, colors.audition)
+            OnPlayButton() -- play until mouse cursor
+        elseif not item_hover and mouse_pos < two_pos then
+            local total_time = 2 * mouse_to_item_two + overlap
+            AddProjectMarker2(0, false, mouse_pos + total_time, 0, "!1016", 1016,
+                colors.audition)
+            SetEditCurPos(mouse_pos, false, false)
+            OnPlayButton() -- play from mouse_pos to same distance after end_of_one (mirrored)
+        else
+            local mouse_to_item_one = mouse_pos - end_of_one
+            local mirrored_total_time = 2 * mouse_to_item_one + overlap
+            AddProjectMarker2(0, false, mouse_pos, 0, "!1016", 1016,
+                colors.audition)
+            AddProjectMarker2(0, false, mouse_pos - mirrored_total_time, 0, "START", 1111,
+                colors.audition)
+            GoToMarker(0, 1111, false)
+            OnPlayButton() -- play from mouse_pos to same distance after end_of_one (mirrored)
+            DeleteProjectMarker(NULL, 1111, false)
+        end
+        Main_OnCommand(40289, 0) -- Item: Unselect (clear selection of) all items
+        SetMediaItemSelected(item_one, false)
+        SetMediaItemSelected(item_two, true)
+
+        SetEditCurPos(two_pos + (overlap / 2), false, false)
+        on_stop()
+        Undo_EndBlock('Audition', 0)
+        PreventUIRefresh(-1)
+        UpdateArrange()
+        UpdateTimeline()
+        TrackList_AdjustWindows(false)
+    end
+end
+
+---------------------------------------------------------------------
+
+function solo()
+    Main_OnCommand(40491, 0) -- un-arm all tracks for recording
+    local selected_track = GetSelectedTrack(0, 0)
+    local parent = GetMediaTrackInfo_Value(selected_track, "I_FOLDERDEPTH")
+
+    for i = 0, CountTracks(0) - 1, 1 do
+        local track = GetTrack(0, i)
+        local _, mixer_state = GetSetMediaTrackInfo_String(track, "P_EXT:mixer", "", 0)
+        local _, aux_state = GetSetMediaTrackInfo_String(track, "P_EXT:aux", "", 0)
+        local _, submix_state = GetSetMediaTrackInfo_String(track, "P_EXT:submix", "", 0)
+        local _, rt_state = GetSetMediaTrackInfo_String(track, "P_EXT:roomtone", "", 0)
+        local _, ref_state = GetSetMediaTrackInfo_String(track, "P_EXT:rcref", "", 0)
+        local _, rcmaster_state = GetSetMediaTrackInfo_String(track, "P_EXT:rcmaster", "", 0)
+
+        if mixer_state == "y" or aux_state == "y" or submix_state == "y" or rt_state == "y" or ref_state == "y" then
+            local num_of_sends = GetTrackNumSends(track, 0)
+            for j = 0, num_of_sends - 1, 1 do
+                SetTrackSendInfo_Value(track, 0, j, "B_MUTE", 0)
+            end
+        end
+
+        if not (mixer_state == "y" or aux_state == "y" or submix_state == "y" or rt_state == "y"
+                or ref_state == "y" or rcmaster_state == "y") then
+            if IsTrackSelected(track) and parent ~= 1 then
+                SetMediaTrackInfo_Value(track, "I_SOLO", 2)
+                SetMediaTrackInfo_Value(track, "B_MUTE", 0)
+            elseif IsTrackSelected(track) then
+                SetMediaTrackInfo_Value(track, "I_SOLO", 0)
+                SetMediaTrackInfo_Value(track, "B_MUTE", 0)
+            elseif IsTrackSelected(track) == false and GetParentTrack(track) ~= selected_track then
+                SetMediaTrackInfo_Value(track, "B_MUTE", 1)
+                SetMediaTrackInfo_Value(track, "I_SOLO", 0)
+            else
+                SetMediaTrackInfo_Value(track, "B_MUTE", 0)
+                SetMediaTrackInfo_Value(track, "I_SOLO", 0)
+            end
+        end
+
+        if rt_state == "y" then
+            if IsTrackSelected(track) then
+                SetMediaTrackInfo_Value(track, "B_MUTE", 0)
+                SetMediaTrackInfo_Value(track, "I_SOLO", 0)
+            end
+        end
+
+        if ref_state == "y" then
+            local is_selected = IsTrackSelected(track)
+            local mute_state = 1
+            local solo_state = 0
+
+            if is_selected then
+                Main_OnCommand(40340, 0) -- unsolo all tracks
+                mute_state = 0
+                solo_state = 1
+            elseif ref_is_guide == 1 then
+                mute_state = 0
+                solo_state = 0
+            end
+
+            SetMediaTrackInfo_Value(track, "B_MUTE", mute_state)
+            SetMediaTrackInfo_Value(track, "I_SOLO", solo_state)
+        end
+
+        if rcmaster_state == "y" then
+            SetMediaTrackInfo_Value(track, "B_MUTE", 0)
+            SetMediaTrackInfo_Value(track, "I_SOLO", 0)
+        end
+    end
+end
+
+---------------------------------------------------------------------
+
+function trackname_check(track, string)
+    local _, trackname = GetSetMediaTrackInfo_String(track, "P_NAME", "", false)
+    return string.find(trackname, string)
+end
+
+---------------------------------------------------------------------
+
+function mixer(colors)
+    for i = 0, CountTracks(0) - 1, 1 do
+        local track = GetTrack(0, i)
+        local _, mixer_state = GetSetMediaTrackInfo_String(track, "P_EXT:mixer", "", 0)
+        local _, aux_state = GetSetMediaTrackInfo_String(track, "P_EXT:aux", "", 0)
+        local _, submix_state = GetSetMediaTrackInfo_String(track, "P_EXT:submix", "", 0)
+        local _, rt_state = GetSetMediaTrackInfo_String(track, "P_EXT:roomtone", "", 0)
+        local _, ref_state = GetSetMediaTrackInfo_String(track, "P_EXT:rcref", "", 0)
+        local _, rcmaster_state = GetSetMediaTrackInfo_String(track, "P_EXT:rcmaster", "", 0)
+        if mixer_state == "y" then
+            SetTrackColor(track, colors.mixer)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 0)
+        end
+        if aux_state == "y" then
+            SetTrackColor(track, colors.aux)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 0)
+        end
+        if submix_state == "y" then
+            SetTrackColor(track, colors.submix)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 0)
+        end
+        if rt_state == "y" then
+            SetTrackColor(track, colors.roomtone)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 1)
+        end
+        if ref_state == "y" then
+            SetTrackColor(track, colors.ref)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 1)
+        end
+        if rcmaster_state == "y" then
+            SetTrackColor(track, colors.rcmaster)
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 0)
+        end
+        if mixer_state == "y" or aux_state == "y" or submix_state == "y" or rcmaster_state == "y"
+            or rt_state == "y" or ref_state == "y" then
+            SetMediaTrackInfo_Value(track, 'B_SHOWINMIXER', 1)
+        else
+            SetMediaTrackInfo_Value(track, 'B_SHOWINMIXER', 0)
+        end
+
+        local _, source_track = GetSetMediaTrackInfo_String(track, "P_EXT:Source", "", 0)
+        if trackname_check(track, "^S%d+:") or source_track == "y" then
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", (mastering == 1) and 0 or 1)
+        end
+        if mixer_state == "y" or aux_state == "y" or submix_state == "y" or rcmaster_state == "y" then
+            SetMediaTrackInfo_Value(track, "B_SHOWINTCP", (mastering == 1) and 1 or 0)
+        end
+        if mastering == 1 and i == 0 then
+            Main_OnCommand(40727, 0) -- minimize all tracks
+            SetTrackSelected(track, 1)
+            Main_OnCommand(40723, 0) -- expand and minimize others
+            SetTrackSelected(track, 0)
+        end
+    end
+end
+
+---------------------------------------------------------------------
+
+function on_stop()
+    if GetPlayState() == 0 then
+        DeleteProjectMarker(NULL, 1016, false)
+        Main_OnCommand(41185, 0) -- Item properties: Unsolo all
+        return
+    else
+        defer(on_stop)
+    end
+end
+
+---------------------------------------------------------------------
+
+function get_color_table()
+    local resource_path = GetResourcePath()
+    local relative_path = get_path("", "Scripts", "chmaha Scripts", "ReaClassical", "")
+    package.path = package.path .. ";" .. resource_path .. relative_path .. "?.lua;"
+    return require("ReaClassical_Colors_Table")
+end
+
+---------------------------------------------------------------------
+
+function get_path(...)
+    local pathseparator = package.config:sub(1, 1);
+    local elements = { ... }
+    return table.concat(elements, pathseparator)
+end
+
+---------------------------------------------------------------------
+
+main()

ReaClassical/ReaClassical_Preferences.lua

@@ -24,13 +24,12 @@ for key in pairs(reaper) do _G[key] = reaper[key] end
 
 local main, display_prefs, load_prefs, save_prefs, pref_check
 
-local default_values = '35,200,3,7,0,500,0,0'
+local default_values = '35,200,3,7,0,500,0,0,0.75'
 local NUM_OF_ENTRIES = select(2, default_values:gsub(",", ",")) + 1
 
 ---------------------------------------------------------------------
 
 function main()
-    -- local _, workflow = GetProjExtState(0, "ReaClassical", "Workflow")
     local pass
     local input
     repeat
@@ -41,14 +40,6 @@ function main()
     until pass
 
     save_prefs(input)
-
-    -- if workflow == "Vertical" then
-    --     local F8_sync = NamedCommandLookup("_RSbc3e25053ffd4a2dff87f6c3e49c0dadf679a549")
-    --     Main_OnCommand(F8_sync, 0)
-    -- elseif workflow == "Horizontal" then
-    --     local F7_sync = NamedCommandLookup("_RS59740cdbf71a5206a68ae5222bd51834ec53f6e6")
-    --     Main_OnCommand(F7_sync, 0)
-    -- end
 end
 
 -----------------------------------------------------------------------
@@ -63,7 +54,8 @@ function display_prefs()
         'Prepare Takes: Random colors',
         'S-D Marker Check (ms)',
         'REF = Overdub Guide',
-        'Add S-D Markers at Mouse Hover'
+        'Add S-D Markers at Mouse Hover',
+        'Alt Audition Playback Rate'
     }
     local input_labels = table.concat(labels, ',')
     local ret, input = GetUserInputs('ReaClassical Project Preferences', NUM_OF_ENTRIES, input_labels, saved)