Cockos REAPER v7.48 x64 [2025, ENG + RUS]

-- Requires: Reaper 5.23+
local countMode = 0
local timeUnit = 1
local TextColor, BackgroundColor
local txt_r, txt_g, txt_b
local font_size = 50
local prev_dockstate=0
local sectionID, cmdID
local wx, wy, ww, wh = 0, 0, 350, 100
function SetTextRGB()
txt_r, txt_g, txt_b = reaper.ColorFromNative(TextColor)
txt_r = txt_r/256
txt_g = txt_g/256
txt_b = txt_b/256
end
function ResetColor(background)
if reaper.APIExists("GetThemeColor") then
  if background then
   BackgroundColor = reaper.GetThemeColor('col_main_bg2', 0)
  else
   TextColor = reaper.GetThemeColor('col_main_text2', 0)
   SetTextRGB()
  end
else
  if background then
   BackgroundColor = 3355443 --51 + 51*256 + 51*65536
  else
   TextColor = 9211020 --140 + 140*256 + 140*65536
   SetTextRGB()
  end
end
return background and BackgroundColor or TextColor
end
function class(base, init)
local c = {}
if not init and type(base) == 'function' then
init = base
base = nil
elseif type(base) == 'table' then
  for i,v in pairs(base) do
   c[i] = v
  end
  c._base = base
end
c.__index = c
local mt = {}
mt.__call = function(class_tbl, ...)
  local obj = {}
  setmetatable(obj,c)
  if init then
   init(obj,...)
  else
   if base and base.init then
    base.init(obj, ...)
   end
  end
  return obj
end
c.init = init
c.is_a = function(self, klass)
  local m = getmetatable(self)
  while m do
   if m == klass then return true end
    m = m._base
  end
  return false
end
setmetatable(c, mt)
return c
end
local Menu =
class(
function(menu, id)
  menu.id = id
  menu.items = {}
  menu.items_str = ""
  menu.curr_item_pos = 1
end
)
function Menu:get_item_from_id(id)
for i=1, #self.items do
  if self.items[i].id == id then
   return self.items[i]
  end
end
return false
end
function Menu:update_item(item_table)
local t = item_table
t._has_submenu = false
t._last_item_in_submenu = false
t.id = self.curr_item_pos
if string.sub(t.label, 1, 1) == ">" or
  string.sub(t.label, 1, 2) == "<>" or
  string.sub(t.label, 1, 2) == "><" then
  t._has_submenu = true
  t.id = -1
  self.curr_item_pos = self.curr_item_pos - 1
elseif string.sub(t.label, 1, 1) == "<" then
  t._has_submenu = false
  t._last_item_in_submenu = true
end
self.curr_item_pos = self.curr_item_pos + 1
end
function Menu:add_item(...)
local t = ... or {}
self.items[#self.items+1] = t
for i,v in pairs(t) do
  if i == "label" then
   t.label = v
  elseif i == "selected" then
   t.selected = v
  elseif i == "active" then
   t.active = v
  elseif i == "toggleable" then
   t.toggleable = v
  elseif i == "command" then
   t.command = v
  end
end
if t.label == nil or t.label == "" then
  t.label = tostring(#self.items)
end
if t.selected == nil then
  t.selected = false
end
if t.active == nil then
  t.active = true
end
if t.toggleable == nil then
  t.toggleable = false
end
return t, #self.items
end
function Menu:get_item(index)
if self.items[index] == nil then
  return false
end
return self.items[index]
end
function Menu:show(mx, my)
gfx.x = mx
gfx.y = my
for i=1, #self.items do
  if self.items[i].on_menu_show ~= nil then
   self.items[i].on_menu_show()
  end
  self:update_item(self.items[i])
end
self.items_str = self:table_to_string() or ""
self.val = gfx.showmenu(self.items_str)
if self.val > 0 then
  self:update(self.val)
end
self.curr_item_pos = 1
end
function Menu:update(menu_item_index)
for i=1, #self.items do
  if self.items[i].id == menu_item_index then
   menu_item_index = i
   break
  end
end
local i = menu_item_index
if self.items[i].toggleable then
  self.items[i].selected = not self.items[i].selected
end
if self.items[i].command ~= nil then
  self.items[i].command()
end
end
function Menu:table_to_string()
if self.items == nil then
  return
end
self.items_str = ""
for i=1, #self.items do
  local temp_str = ""
  local menu_item = self.items[i]
  if menu_item.selected then
   temp_str = "!"
  end
  if not menu_item.active then
   temp_str = temp_str .. "#"
  end
  if menu_item.label ~= "" then
   temp_str = temp_str .. menu_item.label .. "|"
  end
  self.items_str = self.items_str .. temp_str
end
return self.items_str
end
local gui = {}
local quit = false
local sws_present = false
local mouse = {
LB = 1,
RB = 2,
CTRL = 4,
SHIFT = 8,
ALT = 16,
cap = function (mask)
if mask == nil then
  return gfx.mouse_cap end
  return gfx.mouse_cap&mask == mask
end,
uptime = 0,
last_x = -1, last_y = -1,
dx = 0,
dy = 0,
ox_l = 0, oy_l = 0,
ox_r = 0, oy_r = 0,
capcnt = 0,
last_LMB_state = false,
last_RMB_state = false
}
function storeInProj(name, value)
if value then
  reaper.SetProjExtState(0, 'bigclock_extra', name, value)
end
end
function takeFromProj(name, defval, max, min)
local retval, val = reaper.GetProjExtState(0, 'bigclock_extra', name)
if retval > 0 then
  if max or min then
   val = tonumber(val)
   if val then
    if (max and (val > max)) or (min and (val < min))  then
     return defval
    else return val
    end
   else
    return defval
   end
  else return val
  end
else return defval
end
end
function storeExtState()
storeInProj('countMode', countMode)
storeInProj('timeUnit', timeUnit)
storeInProj('dockState', gfx.dock(-1))
storeInProj('BackColor', BackgroundColor)
storeInProj('TextColor', TextColor)
_, wx, wy, ww, wh = gfx.dock(-1, 0, 0, 0, 0)
storeInProj('wx', wx)
storeInProj('wy', wy)
storeInProj('ww', ww)
storeInProj('wh', wh)
end
function menu_init()
rc_menu = Menu("rc_menu")
rc_menu:add_item()
rc_menu:add_item({label = "Время от начала проекта",
  toggleable = true,
  selected = (countMode == 0)})
rc_menu:add_item({label = "Время от предыдущего маркера",
  toggleable = true,
  selected = (countMode == 1)})
rc_menu:add_item({label = "Время от начала текущего региона|",
  toggleable = true,
  selected = (countMode == 2)})
rc_menu:add_item({label = "Часы : Минуты : Секунды : Кадры",
  toggleable = true,
  selected = (timeUnit == 0)})
rc_menu:add_item({label = "Минуты : Секунды",
  toggleable = true,
  selected = (timeUnit == 1)})
rc_menu:add_item({label = "Минуты : Секунды . Миллисекунды",
  toggleable = true,
  selected = (timeUnit == 2)})
rc_menu:add_item({label = "Такты : Доли . Проценты доли|",
  toggleable = true,
  selected = (timeUnit == 3)})
rc_menu:add_item({label = ">Цвет"})
rc_menu:add_item({label = "Цвет текста..."})
rc_menu:add_item({label = "Цвет текста по умолчанию|"})
rc_menu:add_item({label = "Цвет фона..."})
rc_menu:add_item({label = "<Цвет фона по умолчанию|"})
rc_menu:add_item({label = "Закрыть"})
rc_menu.items[1].command = function()
  prev_dockstate = gfx.dock(-1)
  if (prev_dockstate & 1) == 0 then
   prev_dockstate = prev_dockstate + 1
  else
   prev_dockstate = prev_dockstate - 1
  end
  gfx.dock(prev_dockstate)
  storeInProj('dockState', gfx.dock(-1))
end
rc_menu.items[1].on_menu_show = function()
  rc_menu.items[1].label = ((gfx.dock(-1)&1) == 0) and "Прикрепить|" or "Открепить|"
end
rc_menu.items[2].command = function()
  if rc_menu.items[2].selected then
   countMode = 0
   rc_menu.items[3].selected = false
   rc_menu.items[4].selected = false
  else
   rc_menu.items[2].selected = true;
  end
  storeInProj('countMode', 0)
end
rc_menu.items[3].command = function()
  if rc_menu.items[3].selected then
   countMode = 1
   rc_menu.items[2].selected = false
   rc_menu.items[4].selected = false
  else
   rc_menu.items[3].selected = true;
  end
  storeInProj('countMode', 1)
end
rc_menu.items[4].command = function()
  if rc_menu.items[4].selected then
   countMode = 2
   rc_menu.items[2].selected = false
   rc_menu.items[3].selected = false
  else
   rc_menu.items[4].selected = true;
  end
  storeInProj('countMode', 2)
end
rc_menu.items[5].command = function()
  if rc_menu.items[5].selected then
   timeUnit = 0
   rc_menu.items[6].selected = false
   rc_menu.items[7].selected = false
   rc_menu.items[8].selected = false
  else
   rc_menu.items[5].selected = true;
  end
  storeInProj('timeUnit', 0)
end
rc_menu.items[6].command = function()
  if rc_menu.items[6].selected then
   timeUnit = 1
   rc_menu.items[5].selected = false
   rc_menu.items[7].selected = false
   rc_menu.items[8].selected = false
  else
   rc_menu.items[6].selected = true;
  end
  storeInProj('timeUnit', 1)
end
rc_menu.items[7].command = function()
  if rc_menu.items[7].selected then
   timeUnit = 2
   rc_menu.items[5].selected = false
   rc_menu.items[6].selected = false
   rc_menu.items[8].selected = false
  else
   rc_menu.items[7].selected = true;
  end
  storeInProj('timeUnit', 2)
end
rc_menu.items[8].command = function()
  if rc_menu.items[8].selected then
   timeUnit = 3
   rc_menu.items[5].selected = false
   rc_menu.items[6].selected = false
   rc_menu.items[7].selected = false
  else
   rc_menu.items[8].selected = true;
  end
  storeInProj('timeUnit', 3)
end
rc_menu.items[10].command = function()
  local cancelled
  cancelled, PickedColor = reaper.GR_SelectColor(reaper.GetMainHwnd())
  if cancelled~=0 and PickedColor~=TextColor then
   TextColor = PickedColor
   SetTextRGB()
   storeInProj('TextColor', TextColor)
  end
end
rc_menu.items[11].command = function()
  if TextColor~=ResetColor() then storeInProj('TextColor', TextColor) end
end
rc_menu.items[12].command = function()
  local cancelled
  cancelled, PickedColor = reaper.GR_SelectColor(reaper.GetMainHwnd())
  if cancelled~=0 and PickedColor~=BackgroundColor then
   BackgroundColor = PickedColor
   storeInProj('BackColor', BackgroundColor)
  end
end
rc_menu.items[13].command = function()
  if BackgroundColor~=ResetColor(true) then
   storeInProj('BackColor', BackgroundColor)
  end
end
rc_menu.items[14].command = function() quit = true end
end
function drawGui()
local retval = 0
local timeRaw
local timeDisplay
local markerRegionRelative = false
local markerId
local regionId
local markerRegionPos
local TransportStates = reaper.GetAllProjectPlayStates(0)
if TransportStates == 0 or (TransportStates&2) == 2  then
  timeRaw = reaper.GetCursorPosition()
else
  timeRaw = reaper.GetPlayPosition()
end
if not (countMode == 0) then
  markerId, regionId = reaper.GetLastMarkerAndCurRegion(0, timeRaw)
  if countMode == 1 then
   retval, _, markerRegionPos, _, _, _ = reaper.EnumProjectMarkers(markerId)
  elseif countMode == 2 then
   retval, _, markerRegionPos, _, _, _ = reaper.EnumProjectMarkers(regionId)
  end
end
if retval > 0 then
  timeRaw = timeRaw - markerRegionPos
  markerRegionRelative = true
end
if timeUnit == 3 then
  timeDisplay = reaper.format_timestr_pos(timeRaw,"", 2) -- 2 = Measures:Beats
else
  local ProjectTimeOffset = reaper.GetProjectTimeOffset(0, false)
  if markerRegionRelative then timeRaw = timeRaw - ProjectTimeOffset end
  if timeUnit == 0 then
   timeDisplay = reaper.format_timestr_pos(timeRaw,"", 5) -- 5 = h:m:s:f
  else
   local hms = reaper.format_timestr_pos(timeRaw, "", 0) -- 0 = m:s.ms
   local sign = string.find(hms, "-")
   local i = string.find(hms, ":")
   local m = math.abs(tonumber(string.sub(hms, 1, i-1)))
   local j = string.find(hms, ":", i+1)
   if j then
    m = m*60 + tonumber(string.sub(hms, i+1, j-1))
   end
   if timeUnit == 2 then
    timeDisplay = (sign and "-" or "") .. m .. ":" .. (j and string.sub(hms, j+1) or string.sub(hms, i+1))
   else
    timeDisplay = (sign and "-" or "") .. m .. ":" .. (j and string.sub(hms, j+1, j+2) or string.sub(hms, i+1, i+2))
   end
  end
end
gfx.clear = BackgroundColor
font_size = gfx.h / 1.1
gfx.set(txt_r, txt_g, txt_b)
gfx.setfont(1, 'Calibri', math.max(font_size, 13), string.byte('b'))
local str_w, str_h = gfx.measurestr(timeDisplay)
gfx.x = (gfx.w - str_w) / 2
gfx.y = (gfx.h - str_h) / 2
while (gfx.x < 5) and (font_size > 12) do
  font_size = font_size / 1.1
  gfx.setfont(1,'Calibri', font_size, string.byte('b'))
  str_w, str_h = gfx.measurestr(timeDisplay)
  gfx.x = (gfx.w - str_w) / 2
  gfx.y = (gfx.h - str_h) / 2
end
gfx.printf(timeDisplay)
if (prev_dockstate ~= gfx.dock(-1)) then
   prev_dockstate = gfx.dock(-1)
   storeInProj('dockState', prev_dockstate)
end
end
function onExit()
storeExtState()
reaper.SetToggleCommandState(sectionID, cmdID, 0)
reaper.RefreshToolbar2(sectionID, cmdID)
end
function init()
if reaper.NamedCommandLookup('_SWS_ABOUT') > 0 then sws_present = true end
local retval
local val
countMode = takeFromProj("countMode",0,2,0)
timeUnit = takeFromProj("timeUnit",1,3,0)
menu_init()
wx = takeFromProj("wx", wx)
wy = takeFromProj("wy", wy)
wh = takeFromProj("wh", wh)
ww = takeFromProj("ww", ww)
prev_dockstate = takeFromProj("dockState", prev_dockstate)
gfx.init("Big Clock Extra", ww, wh, prev_dockstate, wx, wy)
prev_dockstate = gfx.dock(-1)
ResetColor()
TextColor = takeFromProj("TextColor",TextColor)
SetTextRGB()
gfx.setfont(1,'Calibri', font_size,string.byte('b'))
ResetColor(true)
BackgroundColor = takeFromProj("BackColor", BackgroundColor)
gfx.clear = BackgroundColor
end
function mainloop()
local RMB_state = mouse.cap(mouse.RB)
local LMB_state = mouse.cap(mouse.LB)
local mx = gfx.mouse_x
local my = gfx.mouse_y
if not mouse.last_RMB_state and gfx.mouse_cap&2 == 2 then
  rc_menu:show(mx, my)
  if sws_present then
   reaper.Main_OnCommand( reaper.NamedCommandLookup('_BR_FOCUS_ARRANGE_WND'), 0 )
  end
end
if not mouse.last_LMB_state and gfx.mouse_cap&1 == 1 then
  if sws_present then
   reaper.Main_OnCommand( reaper.NamedCommandLookup('_BR_FOCUS_ARRANGE_WND'), 0 )
  end
end
mouse.last_RMB_state = RMB_state
mouse.last_LMB_state = LMB_state
drawGui()
gfx.update()
if gfx.getchar() >= 0  and not quit then reaper.defer(mainloop) end
end
_, _, sectionID, cmdID, _, _, _ = reaper.get_action_context()
reaper.SetToggleCommandState(sectionID, cmdID, 1)
reaper.RefreshToolbar2(sectionID, cmdID)
reaper.atexit(onExit)
init()
mainloop()

reaper.Track_GetPeakHoldDB(reaper.GetMasterTrack(0), 1024, true)

/*
Setup: place this file in <REAPER resource path>\Effects\midi\
*/
desc: CatchNoteOFF
options:gmem=semiono_gmem
in_pin: none
out_pin: none
@block
while(midirecv(offset,msg1,msg2,msg3))
(
(msg1&$xF0==$x80 || (msg1&$xF0==$x90 && msg3==0)) ?
gmem[0] = 1;
midisend(offset,msg1,msg2,msg3);
);

_, _, sectionID, cmdID, _, _, _ = reaper.get_action_context()
reaper.SetToggleCommandState(sectionID, cmdID, 1)
reaper.RefreshToolbar2(sectionID, cmdID)
function onExit()
    reaper.gmem_attach("")
    reaper.SetToggleCommandState(sectionID, cmdID, 0)
    reaper.RefreshToolbar2(sectionID, cmdID)
end
reaper.gmem_attach("semiono_gmem")
function run()
  local catch = reaper.gmem_read(0)
  if catch and catch == 1 then
    reaper.Track_GetPeakHoldDB(reaper.GetMasterTrack(0), 1024, true)
    reaper.gmem_write(0,0)
  end
  reaper.defer(run)
end
reaper.defer(run)
reaper.atexit(onExit)