Zoom with focus on mouse for mousewheel

[Reno.thestraws]

-- @description Horizontal zoom for mousewheel focusing on mouse pointer
-- @author  ReNo
-- @changelog
--  + init

local r = reaper; local function nothing() end; 
local function bla() r.defer(nothing) end

function act(id) r.Main_OnCommand(id, 0) end
_,_,_,_,_,_,val = r.get_action_context()

hzmode = reaper.SNM_GetIntConfigVar("zoommode",0 ) -- get user prefs
vzmode = reaper.SNM_GetIntConfigVar("vzoommode",0 )-- get user prefs


r.Undo_BeginBlock()



  if val > 0 then 
reaper.SNM_SetIntConfigVar("zoommode",3) -- focus zoom on mouse
act(reaper.NamedCommandLookup("1012")) -- zoom in H
reaper.SNM_SetIntConfigVar("zoommode",hzmode) else -- restore user prefs
reaper.SNM_SetIntConfigVar("zoommode",3) -- focus zoom on mouse
act(reaper.NamedCommandLookup("1011")) -- Zoom out H
reaper.SNM_SetIntConfigVar("zoommode",hzmode) end -- restore user prefs


bla()
r.Undo_EndBlock('Horizontal zoom focus on mouse', 2)

SWS NEEDED!!!


The only goal of this script is to replace the orignal action "View: Zoom horizontally (MIDI CC relative/mousewheel)"

Add the mousewheel + modifier to the script instead and the zoom will focus on mouse pointer no matter what option of "horizontal zoom center" you choose in preferences -> editing behavior

Now you can have the best of both world

mousewheel zoom -> focus on mouse
keyshortcut zoom -> depend on preferences


Here's the equivalent for vertical zoom

-- @description Vertical zoom for mousewheel focus on mouse
-- @version 1
-- @author  ReNo
-- @changelog
--  + init

local r = reaper; local function nothing() end; 
local function bla() r.defer(nothing) end

function act(id) r.Main_OnCommand(id, 0) end
_,_,_,_,_,_,val = r.get_action_context()

hzmode = reaper.SNM_GetIntConfigVar("zoommode",0 ) -- get user prefs
vzmode = reaper.SNM_GetIntConfigVar("vzoommode",0 )-- get user prefs


r.Undo_BeginBlock()



  if val > 0 then 
reaper.SNM_SetIntConfigVar("vzoommode",3) -- focus zoom on mouse
act(reaper.NamedCommandLookup("40111")) -- zoom in V
reaper.SNM_SetIntConfigVar("vzoommode",vzmode) else -- restore user prefs
reaper.SNM_SetIntConfigVar("vzoommode",3) -- focus zoom on mouse
act(reaper.NamedCommandLookup("40112")) -- Zoom out V
reaper.SNM_SetIntConfigVar("vzoommode",vzmode) end -- restore user prefs


bla()
r.Undo_EndBlock('Vertical zoom focus on mouse', 2)

[X-Raym]

local function nothing() end; 
local function bla() r.defer(nothing) end
 bla()

This litteraly do nothing :P
EDIT: Though, it doesn't create undo points in the end so it technically works as expected (aka it prevent undo points creation).


Consider deleting Undo functions, and put the main code in a Main function which will be caled via reaper.defer(Main). This would a cleaner way to not have undo points.

[Reno.thestraws]

Salut X Raym

Je ne suis pas formé du tout en scripting ni en programmation
Je prends des bouts de code existant pour faire les miens.

Quand ça marche, je ne vais pas plus loin

EDIT : si t'as envie de modifier en mieux, vas-y cordialement

[X-Raym]

Je ne suis pas formé du tout en scripting ni en programmation
Je prends des bouts de code existant pour faire les miens.

On a tous commencé comme ça :P Tant que ça marche !
Les optimisations proposées étaient juste sur la lecture du code mais côté performance ça ne va rien changer donc à la rigueur ce n'est pas si important.