Hello!
reaper603+dev0128
After adding a secondary rendering format, the function
reaper.GetSetProjectInfo_String(0,"RENDER_FORMAT", out_str64,1)
broke down and all the scripts that use this feature broke down.
Whatever I put in it, it's still installed "Wav 24 bit"
PHP Code:
--------------------------------------------------------------------------
-- character table string
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
-- encoding
function enc(data)
return ((data:gsub('.', function(x)
local r,b='',x:byte()
for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
return r;
end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
if (#x < 6) then return '' end
local c=0
for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
return b:sub(c+1,c+1)
end)..({ '', '==', '=' })[#data%3+1])
end
-- decoding
function dec(data)
data = string.gsub(data, '[^'..b..'=]', '')
return (data:gsub('.', function(x)
if (x == '=') then return '' end
local r,f='',(b:find(x)-1)
for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
return r;
end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
if (#x ~= 8) then return '' end
local c=0
for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
return string.char(c)
end))
end
--------------------------------------------------------------------------
------------------------------------------------------------------------
-- store values to table
retval, valuestrNeedBig = reaper.GetSetProjectInfo_String(0,'RENDER_FORMAT','',false);
dec_s = dec(valuestrNeedBig)
t = {}
for i = 1, dec_s:len() do
t[#t+1] = string.byte(dec_s:sub(i,i))
end
--------------------------------------------
-- do here whatever to modify table
--------------------------------------------
-- pass values back
out_str = ''
for i =1, #t do
out_str = out_str .. string.char(t[i])
end
out_str64 = enc(out_str)
reaper.GetSetProjectInfo_String(0,"RENDER_FORMAT",out_str64,1);