src/plugin/Client.lua - master - nightflash/MIDI2LR

src/plugin/Client.lua
837 строк53 KB
Rory Jaffe
fix crash in transition Library -> Develop on fast machines
17 янв 2021, 02:52
17 янв 2021, 02:5275f2abb
--[[----------------------------------------------------------------------------

Client.lua

Receives and processes commands from MIDI2LR
Sends parameters to MIDI2LR

This file is part of MIDI2LR. Copyright 2015 by Rory Jaffe.

MIDI2LR 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.

MIDI2LR 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
MIDI2LR.  If not, see <http://www.gnu.org/licenses/>.
------------------------------------------------------------------------------]]
--[[-----------debug section, enable by adding - to beginning this line
local LrMobdebug = import 'LrMobdebug'
LrMobdebug.start()
--]]-----------end debug section
local Database = require 'Database'
local LrTasks = import 'LrTasks'
-- Main task
LrTasks.startAsyncTask(
  function()
    --[[-----------debug section, enable by adding - to beginning this line
    LrMobdebug.on()
    --]]-----------end debug section
-------------preferences
    local Preferences     = require 'Preferences'
    Preferences.Load()
-------------end preferences section


    local LrFunctionContext   = import 'LrFunctionContext'
    local LrPathUtils         = import 'LrPathUtils'

    do --save localized file for app
      local LrFileUtils    = import 'LrFileUtils'
      local LrLocalization = import 'LrLocalization'
      local Info           = require 'Info'
      local versionmismatch = false

      if ProgramPreferences.DataStructure == nil then
        versionmismatch = true
      else
        for k,v in pairs(Info.VERSION) do
          versionmismatch = versionmismatch or ProgramPreferences.DataStructure.version[k] ~= v
        end
      end

      if
      versionmismatch or
      LrFileUtils.exists(Database.AppTrans) ~= 'file' or
      ProgramPreferences.DataStructure.language ~= LrLocalization.currentLanguage()
      then
        ProgramPreferences.DataStructure = {version={},language = LrLocalization.currentLanguage()}
        Database.WriteAppTrans(ProgramPreferences.DataStructure.language)
        for k,v in pairs(Info.VERSION) do
          ProgramPreferences.DataStructure.version[k] = v
        end
        Preferences.Save() --ensure that new version/language info saved
      end
    end --save localized file for app

    --delay loading most modules until after data structure refreshed
    local ActionSeries    = require 'ActionSeries'
    local CU              = require 'ClientUtilities'
    local DebugInfo       = require 'DebugInfo'
    local Info            = require 'Info'
    local Keys            = require 'Keys'
    local KS              = require 'KeyShortcuts'
    local Keywords        = require 'Keywords'
    local Limits          = require 'Limits'
    local LocalPresets    = require 'LocalPresets'
    local Profiles        = require 'Profiles'
    local Virtual         = require 'Virtual'
    local LrApplication       = import 'LrApplication'
    local LrApplicationView   = import 'LrApplicationView'
    local LrDevelopController = import 'LrDevelopController'
    local LrDialogs           = import 'LrDialogs'
    local LrSelection         = import 'LrSelection'
    local LrUndo              = import 'LrUndo'
    --global variables
    MIDI2LR = {PARAM_OBSERVER = {}, SERVER = {}, CLIENT = {}, RUNNING = true} --non-local but in MIDI2LR namespace
    --local variables
    local LastParam           = ''
    local UpdateParamPickup, UpdateParamNoPickup, UpdateParam
    local sendIsConnected = false --tell whether send socket is up or not
    --local constants--may edit these to change program behaviors
    local BUTTON_ON        = 0.40 -- sending 1.0, but use > BUTTON_ON because of note keypressess not hitting 100%
    local PICKUP_THRESHOLD = 0.03 -- roughly equivalent to 4/127
    local RECEIVE_PORT     = 58763
    local SEND_PORT        = 58764

    local GradeFocusTable = {
      SplitToningShadowHue = 'shadow',
      SplitToningShadowSaturation = 'shadow',
      ColorGradeShadowLum = 'shadow',
      SplitToningHighlightHue = 'highlight',
      SplitToningHighlightSaturation = 'highlight',
      ColorGradeHighlightLum = 'highlight',
      ColorGradeMidtoneHue = 'midtone',
      ColorGradeMidtoneSat = 'midtone',
      ColorGradeMidtoneLum = 'midtone',
      ColorGradeGlobalHue = 'global',
      ColorGradeGlobalSat = 'global',
      ColorGradeGlobalLum = 'global',
      ResetSplitToningShadowHue = 'shadow',
      ResetSplitToningShadowSaturation = 'shadow',
      ResetColorGradeShadowLum = 'shadow',
      ResetSplitToningHighlightHue = 'highlight',
      ResetSplitToningHighlightSaturation = 'highlight',
      ResetColorGradeHighlightLum = 'highlight',
      ResetColorGradeMidtoneHue = 'midtone',
      ResetColorGradeMidtoneSat = 'midtone',
      ResetColorGradeMidtoneLum = 'midtone',
      ResetColorGradeGlobalHue = 'global',
      ResetColorGradeGlobalSat = 'global',
      ResetColorGradeGlobalLum = 'global',
    }

    local ACTIONS = {
      AddOrRemoveFromTargetColl       = CU.wrapForEachPhoto('addOrRemoveFromTargetCollection'),
      AdjustmentBrush                 = CU.fToggleTool('localized'),
      AppInfoClear                    = function() Info.AppInfo = {}; end,
      AppInfoDone                     = DebugInfo.write,
      AutoLateralCA                   = CU.fToggle01('AutoLateralCA'),
      AutoTone                        = function() LrDevelopController.setAutoTone(); LrDevelopController.revealPanel('adjustPanel'); end,
      BrushFeatherLarger              = CU.fSimulateKeys(KS.KeyCode.FeatherIncreaseKey,true,{dust=true, localized=true, gradient=true, circularGradient=true}),
      BrushFeatherSmaller             = CU.fSimulateKeys(KS.KeyCode.FeatherDecreaseKey,true,{dust=true, localized=true, gradient=true, circularGradient=true}),
      BrushSizeLarger                 = CU.fSimulateKeys(KS.KeyCode.BrushIncreaseKey,true,{dust=true, localized=true, gradient=true, circularGradient=true}),
      BrushSizeSmaller                = CU.fSimulateKeys(KS.KeyCode.BrushDecreaseKey,true,{dust=true, localized=true, gradient=true, circularGradient=true}),
      CloseApp                        = function() MIDI2LR.SERVER:send('TerminateApplication 1\n') end,
      ColorGrade3Way                  = CU.wrapFOM(LrDevelopController.setActiveColorGradingView,'3-way'),
      ColorGradeCopy                  = CU.cg_hsl_copy,
      ColorGradeGlobal                = CU.wrapFOM(LrDevelopController.setActiveColorGradingView,'global'),
      ColorGradeHighlight             = CU.wrapFOM(LrDevelopController.setActiveColorGradingView,'highlight'),
      ColorGradeMidtone               = CU.wrapFOM(LrDevelopController.setActiveColorGradingView,'midtone'),
      ColorGradePaste                 = CU.cg_hsl_paste,
      ColorGradeReset3way             = CU.cg_reset_3way,
      ColorGradeResetAll              = CU.cg_reset_all,
      ColorGradeResetCurrent          = CU.cg_reset_current,
      ColorGradeShadow                = CU.wrapFOM(LrDevelopController.setActiveColorGradingView,'shadow'),
      ColorLabelNone                  = function() LrSelection.setColorLabel("none") end,
      ConvertToGrayscale              = CU.fToggleTFasync('ConvertToGrayscale'),
      CropConstrainToWarp             = CU.fToggle01('CropConstrainToWarp'),
      CropOverlay                     = CU.fToggleTool('crop'),
      CycleLoupeViewInfo              = LrApplicationView.cycleLoupeViewInfo,
      CycleMaskOverlayColor           = CU.fSimulateKeys(KS.KeyCode.CycleAdjustmentBrushOverlayKey,true),
      DecreaseRating                  = LrSelection.decreaseRating,
      DecrementLastDevelopParameter   = function() CU.execFOM(LrDevelopController.decrement,LastParam) end,
      EditPhotoshop                   = LrDevelopController.editInPhotoshop,
      EnableCalibration               = CU.fToggleTFasync('EnableCalibration'),
      EnableCircularGradientBasedCorrections = CU.fToggleTFasync('EnableCircularGradientBasedCorrections'),
      EnableColorAdjustments          = CU.fToggleTFasync('EnableColorAdjustments'),
      EnableColorGrading              = CU.fToggleTFasync('EnableSplitToning'),
      EnableDetail                    = CU.fToggleTFasync('EnableDetail'),
      EnableEffects                   = CU.fToggleTFasync('EnableEffects'),
      EnableGradientBasedCorrections  = CU.fToggleTFasync('EnableGradientBasedCorrections'),
      EnableGrayscaleMix              = CU.fToggleTFasync('EnableGrayscaleMix'),
      EnableLensCorrections           = CU.fToggleTFasync('EnableLensCorrections'),
      EnablePaintBasedCorrections     = CU.fToggleTFasync('EnablePaintBasedCorrections'),
      EnableRedEye                    = CU.fToggleTFasync('EnableRedEye'),
      EnableRetouch                   = CU.fToggleTFasync('EnableRetouch'),
      EnableToneCurve                 = CU.fToggleTFasync('EnableToneCurve'),
      EnableTransform                 = CU.fToggleTFasync('EnableTransform'),
      FilterNone                      = CU.RemoveFilters,
      Filter_1                        = CU.fApplyFilter(1),
      Filter_10                       = CU.fApplyFilter(10),
      Filter_11                       = CU.fApplyFilter(11),
      Filter_12                       = CU.fApplyFilter(12),
      Filter_2                        = CU.fApplyFilter(2),
      Filter_3                        = CU.fApplyFilter(3),
      Filter_4                        = CU.fApplyFilter(4),
      Filter_5                        = CU.fApplyFilter(5),
      Filter_6                        = CU.fApplyFilter(6),
      Filter_7                        = CU.fApplyFilter(7),
      Filter_8                        = CU.fApplyFilter(8),
      Filter_9                        = CU.fApplyFilter(9),
      FullRefresh                     = CU.FullRefresh,
      GetPluginInfo                   = DebugInfo.sendLog, -- not in db: internal use only
      GraduatedFilter                 = CU.fToggleTool1('gradient'),
      GridViewStyle                   = LrApplicationView.gridViewStyle,
      IncreaseRating                  = LrSelection.increaseRating,
      IncrementLastDevelopParameter   = function() CU.execFOM(LrDevelopController.increment,LastParam) end,
      Key1  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(1)..'\n') end,
      Key10 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(10)..'\n') end,
      Key11 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(11)..'\n') end,
      Key12 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(12)..'\n') end,
      Key13 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(13)..'\n') end,
      Key14 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(14)..'\n') end,
      Key15 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(15)..'\n') end,
      Key16 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(16)..'\n') end,
      Key17 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(17)..'\n') end,
      Key18 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(18)..'\n') end,
      Key19 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(19)..'\n') end,
      Key2  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(2)..'\n') end,
      Key20 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(20)..'\n') end,
      Key21 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(21)..'\n') end,
      Key22 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(22)..'\n') end,
      Key23 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(23)..'\n') end,
      Key24 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(24)..'\n') end,
      Key25 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(25)..'\n') end,
      Key26 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(26)..'\n') end,
      Key27 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(27)..'\n') end,
      Key28 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(28)..'\n') end,
      Key29 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(29)..'\n') end,
      Key3  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(3)..'\n') end,
      Key30 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(30)..'\n') end,
      Key31 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(31)..'\n') end,
      Key32 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(32)..'\n') end,
      Key33 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(33)..'\n') end,
      Key34 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(34)..'\n') end,
      Key35 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(35)..'\n') end,
      Key36 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(36)..'\n') end,
      Key37 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(37)..'\n') end,
      Key38 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(38)..'\n') end,
      Key39 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(39)..'\n') end,
      Key4  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(4)..'\n') end,
      Key40 = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(40)..'\n') end,
      Key5  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(5)..'\n') end,
      Key6  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(6)..'\n') end,
      Key7  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(7)..'\n') end,
      Key8  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(8)..'\n') end,
      Key9  = function() MIDI2LR.SERVER:send('SendKey '..Keys.GetKey(9)..'\n') end,
      Keyword1  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[1]) end,
      Keyword10 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[10]) end,
      Keyword11 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[11]) end,
      Keyword12 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[12]) end,
      Keyword13 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[13]) end,
      Keyword14 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[14]) end,
      Keyword15 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[15]) end,
      Keyword16 = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[16]) end,
      Keyword2  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[2]) end,
      Keyword3  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[3]) end,
      Keyword4  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[4]) end,
      Keyword5  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[5]) end,
      Keyword6  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[6]) end,
      Keyword7  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[7]) end,
      Keyword8  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[8]) end,
      Keyword9  = function() Keywords.ApplyKeyword(ProgramPreferences.Keywords[9]) end,
      Keyword1Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[1]) end,
      Keyword10Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[10]) end,
      Keyword11Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[11]) end,
      Keyword12Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[12]) end,
      Keyword13Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[13]) end,
      Keyword14Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[14]) end,
      Keyword15Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[15]) end,
      Keyword16Toggle = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[16]) end,
      Keyword2Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[2]) end,
      Keyword3Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[3]) end,
      Keyword4Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[4]) end,
      Keyword5Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[5]) end,
      Keyword6Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[6]) end,
      Keyword7Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[7]) end,
      Keyword8Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[8]) end,
      Keyword9Toggle  = function() Keywords.ToggleKeyword(ProgramPreferences.Keywords[9]) end,
      LRCopy                          = CU.fSimulateKeys(KS.KeyCode.CopyKey,true),
      LRPaste                         = CU.fSimulateKeys(KS.KeyCode.PasteKey,true),
      LensProfileEnable               = CU.fToggle01Async('LensProfileEnable'),
      LocalPreset1  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[1]) end,
      LocalPreset10 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[10]) end,
      LocalPreset11 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[11]) end,
      LocalPreset12 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[12]) end,
      LocalPreset13 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[13]) end,
      LocalPreset14 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[14]) end,
      LocalPreset15 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[15]) end,
      LocalPreset16 = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[16]) end,
      LocalPreset2  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[2]) end,
      LocalPreset3  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[3]) end,
      LocalPreset4  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[4]) end,
      LocalPreset5  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[5]) end,
      LocalPreset6  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[6]) end,
      LocalPreset7  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[7]) end,
      LocalPreset8  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[8]) end,
      LocalPreset9  = function() LocalPresets.ApplyLocalPreset(ProgramPreferences.LocalPresets[9]) end,
      Loupe                           = CU.fToggleTool('loupe'),
      Next                            = LrSelection.nextPhoto,
      NextScreenMode                  = LrApplicationView.nextScreenMode,
      PV1                             = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version 1'),
      PV2                             = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version 2'),
      PV3                             = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version 3'),
      PV4                             = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version 4'),
      PV5                             = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version 5'),
      PVLatest                        = CU.wrapFOM(LrDevelopController.setProcessVersion, 'Version '..Database.LatestPVSupported),
      Pause                           = function() LrTasks.sleep( 0.02 ) end,
      Pick                            = LrSelection.flagAsPick,
      PointCurveLinear                = CU.UpdatePointCurve({ToneCurveName="Linear",ToneCurveName2012="Linear",ToneCurvePV2012={0,0,255,255,}}),
      PointCurveMediumContrast        = CU.UpdatePointCurve({ToneCurveName="Medium Contrast",ToneCurveName2012="Medium Contrast",ToneCurvePV2012={0,0,32,22,64,56,128,128,192,196,255,255,}}),
      PointCurveStrongContrast        = CU.UpdatePointCurve({ToneCurveName="Strong Contrast",ToneCurveName2012="Strong Contrast",ToneCurvePV2012={0,0,32,16,64,50,128,128,192,202,255,255,}}),
      PostCropVignetteStyle           = CU.fToggle1ModN('PostCropVignetteStyle', 3),
      PostCropVignetteStyleColorPriority     = CU.wrapFOM(LrDevelopController.setValue,'PostCropVignetteStyle',2),
      PostCropVignetteStyleHighlightPriority = CU.wrapFOM(LrDevelopController.setValue,'PostCropVignetteStyle',1),
      PostCropVignetteStylePaintOverlay      = CU.wrapFOM(LrDevelopController.setValue,'PostCropVignetteStyle',3),
      Preset_1                        = CU.fApplyPreset(1),
      Preset_10                       = CU.fApplyPreset(10),
      Preset_11                       = CU.fApplyPreset(11),
      Preset_12                       = CU.fApplyPreset(12),
      Preset_13                       = CU.fApplyPreset(13),
      Preset_14                       = CU.fApplyPreset(14),
      Preset_15                       = CU.fApplyPreset(15),
      Preset_16                       = CU.fApplyPreset(16),
      Preset_17                       = CU.fApplyPreset(17),
      Preset_18                       = CU.fApplyPreset(18),
      Preset_19                       = CU.fApplyPreset(19),
      Preset_2                        = CU.fApplyPreset(2),
      Preset_20                       = CU.fApplyPreset(20),
      Preset_21                       = CU.fApplyPreset(21),
      Preset_22                       = CU.fApplyPreset(22),
      Preset_23                       = CU.fApplyPreset(23),
      Preset_24                       = CU.fApplyPreset(24),
      Preset_25                       = CU.fApplyPreset(25),
      Preset_26                       = CU.fApplyPreset(26),
      Preset_27                       = CU.fApplyPreset(27),
      Preset_28                       = CU.fApplyPreset(28),
      Preset_29                       = CU.fApplyPreset(29),
      Preset_3                        = CU.fApplyPreset(3),
      Preset_30                       = CU.fApplyPreset(30),
      Preset_31                       = CU.fApplyPreset(31),
      Preset_32                       = CU.fApplyPreset(32),
      Preset_33                       = CU.fApplyPreset(33),
      Preset_34                       = CU.fApplyPreset(34),
      Preset_35                       = CU.fApplyPreset(35),
      Preset_36                       = CU.fApplyPreset(36),
      Preset_37                       = CU.fApplyPreset(37),
      Preset_38                       = CU.fApplyPreset(38),
      Preset_39                       = CU.fApplyPreset(39),
      Preset_4                        = CU.fApplyPreset(4),
      Preset_40                       = CU.fApplyPreset(40),
      Preset_41                       = CU.fApplyPreset(41),
      Preset_42                       = CU.fApplyPreset(42),
      Preset_43                       = CU.fApplyPreset(43),
      Preset_44                       = CU.fApplyPreset(44),
      Preset_45                       = CU.fApplyPreset(45),
      Preset_46                       = CU.fApplyPreset(46),
      Preset_47                       = CU.fApplyPreset(47),
      Preset_48                       = CU.fApplyPreset(48),
      Preset_49                       = CU.fApplyPreset(49),
      Preset_5                        = CU.fApplyPreset(5),
      Preset_50                       = CU.fApplyPreset(50),
      Preset_51                       = CU.fApplyPreset(51),
      Preset_52                       = CU.fApplyPreset(52),
      Preset_53                       = CU.fApplyPreset(53),
      Preset_54                       = CU.fApplyPreset(54),
      Preset_55                       = CU.fApplyPreset(55),
      Preset_56                       = CU.fApplyPreset(56),
      Preset_57                       = CU.fApplyPreset(57),
      Preset_58                       = CU.fApplyPreset(58),
      Preset_59                       = CU.fApplyPreset(59),
      Preset_6                        = CU.fApplyPreset(6),
      Preset_60                       = CU.fApplyPreset(60),
      Preset_61                       = CU.fApplyPreset(61),
      Preset_62                       = CU.fApplyPreset(62),
      Preset_63                       = CU.fApplyPreset(63),
      Preset_64                       = CU.fApplyPreset(64),
      Preset_65                       = CU.fApplyPreset(65),
      Preset_66                       = CU.fApplyPreset(66),
      Preset_67                       = CU.fApplyPreset(67),
      Preset_68                       = CU.fApplyPreset(68),
      Preset_69                       = CU.fApplyPreset(69),
      Preset_7                        = CU.fApplyPreset(7),
      Preset_70                       = CU.fApplyPreset(70),
      Preset_71                       = CU.fApplyPreset(71),
      Preset_72                       = CU.fApplyPreset(72),
      Preset_73                       = CU.fApplyPreset(73),
      Preset_74                       = CU.fApplyPreset(74),
      Preset_75                       = CU.fApplyPreset(75),
      Preset_76                       = CU.fApplyPreset(76),
      Preset_77                       = CU.fApplyPreset(77),
      Preset_78                       = CU.fApplyPreset(78),
      Preset_79                       = CU.fApplyPreset(79),
      Preset_8                        = CU.fApplyPreset(8),
      Preset_80                       = CU.fApplyPreset(80),
      Preset_9                        = CU.fApplyPreset(9),
      Prev                            = LrSelection.previousPhoto,
      QuickDevCropAspect1x1           = function() CU.QuickCropAspect({w=1,h=1}) end,
      QuickDevCropAspect2x3           = function() CU.QuickCropAspect({w=2,h=3}) end,
      QuickDevCropAspect3x4           = function() CU.QuickCropAspect({w=3,h=4}) end,
      QuickDevCropAspect4x5           = function() CU.QuickCropAspect({w=4,h=5}) end,
      QuickDevCropAspect5x7           = function() CU.QuickCropAspect({w=5,h=7}) end,
      QuickDevCropAspect85x11         = function() CU.QuickCropAspect({w=8.5,h=11}) end,
      QuickDevCropAspect9x16          = function() CU.QuickCropAspect({w=9,h=16}) end,
      QuickDevCropAspectAsShot        = function() CU.QuickCropAspect('asshot') end,
      QuickDevCropAspectOriginal      = function() CU.QuickCropAspect('original') end,
      QuickDevWBAuto                  = CU.wrapForEachPhoto('QuickDevWBAuto'),
      QuickDevWBCloudy                = CU.wrapForEachPhoto('QuickDevWBCloudy'),
      QuickDevWBDaylight              = CU.wrapForEachPhoto('QuickDevWBDaylight'),
      QuickDevWBFlash                 = CU.wrapForEachPhoto('QuickDevWBFlash'),
      QuickDevWBFluorescent           = CU.wrapForEachPhoto('QuickDevWBFluorescent'),
      QuickDevWBShade                 = CU.wrapForEachPhoto('QuickDevWBShade'),
      QuickDevWBTungsten              = CU.wrapForEachPhoto('QuickDevWBTungsten'),
      RadialFilter                    = CU.fToggleTool1('circularGradient'),
      RedEye                          = CU.fToggleTool('redeye'),
      Redo                            = LrUndo.redo,
      Reject                          = LrSelection.flagAsReject,
      RemoveFlag                      = LrSelection.removeFlag,
      ResetAll                        = CU.wrapFOM(LrDevelopController.resetAllDevelopAdjustments),
      ResetAllGrayMixer               = CU.ResetAllGrayMixer,
      ResetAllHueAdjustment           = CU.ResetAllHueAdjustment,
      ResetAllLuminanceAdjustment     = CU.ResetAllLuminanceAdjustment,
      ResetAllSaturationAdjustment    = CU.ResetAllSaturationAdjustment,
      ResetBrushing                   = CU.wrapFOM(LrDevelopController.resetBrushing),
      ResetCircGrad                   = CU.wrapFOM(LrDevelopController.resetCircularGradient),
      ResetCrop                       = CU.wrapFOM(LrDevelopController.resetCrop),
      ResetGradient                   = CU.wrapFOM(LrDevelopController.resetGradient),
      ResetLast                       = function() CU.execFOM(LrDevelopController.resetToDefault,LastParam) end,
      ResetRedeye                     = CU.wrapFOM(LrDevelopController.resetRedeye),
      ResetSpotRem                    = CU.wrapFOM(LrDevelopController.resetSpotRemoval),
      ResetTransforms                 = CU.wrapFOM(LrDevelopController.resetTransforms),
      RevealPanelAdjust               = CU.fChangePanel('adjustPanel'),
      RevealPanelCalibrate            = CU.fChangePanel('calibratePanel'),
      RevealPanelColorGrading         = CU.fChangePanel('colorGradingPanel'),
      RevealPanelDetail               = CU.fChangePanel('detailPanel'),
      RevealPanelEffects              = CU.fChangePanel('effectsPanel'),
      RevealPanelLens                 = CU.fChangePanel('lensCorrectionsPanel'),
      RevealPanelMixer                = CU.fChangePanel('mixerPanel'),
      RevealPanelSplit                = CU.fChangePanel('splitToningPanel'),
      RevealPanelTone                 = CU.fChangePanel('tonePanel'),
      RevealPanelTransform            = CU.fChangePanel('transformPanel'),
      RotateLeft                      = CU.wrapForEachPhoto('rotateLeft'),
      RotateRight                     = CU.wrapForEachPhoto('rotateRight'),
      Select1Left                     = function() LrSelection.extendSelection('left',1) end,
      Select1Right                    = function() LrSelection.extendSelection('right',1) end,
      SetRating0                      = function() LrSelection.setRating(0) end,
      SetRating1                      = function() LrSelection.setRating(1) end,
      SetRating2                      = function() LrSelection.setRating(2) end,
      SetRating3                      = function() LrSelection.setRating(3) end,
      SetRating4                      = function() LrSelection.setRating(4) end,
      SetRating5                      = function() LrSelection.setRating(5) end,
      SetTreatmentBW                  = CU.wrapForEachPhoto('SetTreatmentBW'),
      SetTreatmentColor               = CU.wrapForEachPhoto('SetTreatmentColor'),
      ShoFullHidePanels               = LrApplicationView.fullscreenHidePanels,
      ShoFullPreview                  = LrApplicationView.fullscreenPreview,
      ShoScndVwcompare                = function() LrApplicationView.showSecondaryView('compare') end,
      ShoScndVwgrid                   = function() LrApplicationView.showSecondaryView('grid') end,
      ShoScndVwlive_loupe             = function() LrApplicationView.showSecondaryView('live_loupe') end,
      ShoScndVwlocked_loupe           = function() LrApplicationView.showSecondaryView('locked_loupe') end,
      ShoScndVwloupe                  = function() LrApplicationView.showSecondaryView('loupe') end,
      ShoScndVwslideshow              = function() LrApplicationView.showSecondaryView('slideshow') end,
      ShoScndVwsurvey                 = function() LrApplicationView.showSecondaryView('survey') end,
      ShoVwRefHoriz                   = function() LrApplicationView.showView('develop_reference_horiz') end,
      ShoVwRefVert                    = function() LrApplicationView.showView('develop_reference_vert') end,
      ShoVwcompare                    = function() LrApplicationView.showView('compare') end,
      ShoVwdevelop_before             = function() LrApplicationView.showView('develop_before') end,
      ShoVwdevelop_before_after_horiz = function() LrApplicationView.showView('develop_before_after_horiz') end,
      ShoVwdevelop_before_after_vert  = function() LrApplicationView.showView('develop_before_after_vert') end,
      ShoVwdevelop_loupe              = function() LrApplicationView.showView('develop_loupe') end,
      ShoVwgrid                       = function() LrApplicationView.showView('grid') end,
      ShoVwloupe                      = function() LrApplicationView.showView('loupe') end,
      ShoVwpeople                     = function() LrApplicationView.showView('people') end,
      ShoVwsurvey                     = function() LrApplicationView.showView('survey') end,
      ShowClipping                    = CU.wrapFOM(LrDevelopController.showClipping),
      ShowMaskOverlay                 = CU.fSimulateKeys(KS.KeyCode.ShowAdjustmentBrushOverlayKey,true),
      SliderDecrease                  = CU.fSimulateKeys(KS.KeyCode.SliderDecreaseKey,true),
      SliderIncrease                  = CU.fSimulateKeys(KS.KeyCode.SliderIncreaseKey,true),
      SpotRemoval                     = CU.fToggleTool1('dust'),
      SwToMbook                       = CU.fChangeModule('book'),
      SwToMdevelop                    = CU.fChangeModule('develop'),
      SwToMlibrary                    = CU.fChangeModule('library'),
      SwToMmap                        = CU.fChangeModule('map'),
      SwToMprint                      = CU.fChangeModule('print'),
      SwToMslideshow                  = CU.fChangeModule('slideshow'),
      SwToMweb                        = CU.fChangeModule('web'),
      ToggleBlue                      = LrSelection.toggleBlueLabel,
      ToggleFlag                      = function() MIDI2LR.SERVER:send('SendKey '..KS.KeyCode.ToggleFlagKey..'\n') end,
      ToggleGreen                     = LrSelection.toggleGreenLabel,
      ToggleLoupe                     = LrApplicationView.toggleLoupe,
      ToggleOverlay                   = LrDevelopController.toggleOverlay,
      TogglePurple                    = LrSelection.togglePurpleLabel,
      ToggleRed                       = LrSelection.toggleRedLabel,
      ToggleScreenTwo                 = LrApplicationView.toggleSecondaryDisplay,
      ToggleYellow                    = LrSelection.toggleYellowLabel,
      ToggleZoomOffOn                 = LrApplicationView.toggleZoom,
      Undo                            = LrUndo.undo,
      UprightAuto                     = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',1),
      UprightFull                     = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',2),
      UprightGuided                   = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',5),
      UprightLevel                    = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',3),
      UprightOff                      = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',0),
      UprightVertical                 = CU.wrapFOM(LrDevelopController.setValue,'PerspectiveUpright',4),
      VirtualCopy                     = function() LrApplication.activeCatalog():createVirtualCopies() end,
      WhiteBalanceAs_Shot             = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','As Shot'),
      WhiteBalanceAuto                = LrDevelopController.setAutoWhiteBalance,
      WhiteBalanceCloudy              = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Cloudy'),
      WhiteBalanceDaylight            = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Daylight'),
      WhiteBalanceFlash               = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Flash'),
      WhiteBalanceFluorescent         = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Fluorescent'),
      WhiteBalanceShade               = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Shade'),
      WhiteBalanceTungsten            = CU.wrapFOM(LrDevelopController.setValue,'WhiteBalance','Tungsten'),
      ZoomInLargeStep                 = LrApplicationView.zoomIn,
      ZoomInSmallStep                 = LrApplicationView.zoomInSome,
      ZoomOutLargeStep                = LrApplicationView.zoomOut,
      ZoomOutSmallStep                = LrApplicationView.zoomOutSome,
      ZoomTo100                       = LrApplicationView.zoomToOneToOne,
      openExportDialog                = CU.wrapForEachPhoto('openExportDialog'),
      openExportWithPreviousDialog    = CU.wrapForEachPhoto('openExportWithPreviousDialog')  ,
      profile1                        = function() Profiles.changeProfile('profile1', true) end,
      profile10                       = function() Profiles.changeProfile('profile10', true) end,
      profile11                       = function() Profiles.changeProfile('profile11', true) end,
      profile12                       = function() Profiles.changeProfile('profile12', true) end,
      profile13                       = function() Profiles.changeProfile('profile13', true) end,
      profile14                       = function() Profiles.changeProfile('profile14', true) end,
      profile15                       = function() Profiles.changeProfile('profile15', true) end,
      profile16                       = function() Profiles.changeProfile('profile16', true) end,
      profile17                       = function() Profiles.changeProfile('profile17', true) end,
      profile18                       = function() Profiles.changeProfile('profile18', true) end,
      profile19                       = function() Profiles.changeProfile('profile19', true) end,
      profile2                        = function() Profiles.changeProfile('profile2', true) end,
      profile20                       = function() Profiles.changeProfile('profile20', true) end,
      profile21                       = function() Profiles.changeProfile('profile21', true) end,
      profile22                       = function() Profiles.changeProfile('profile22', true) end,
      profile23                       = function() Profiles.changeProfile('profile23', true) end,
      profile24                       = function() Profiles.changeProfile('profile24', true) end,
      profile25                       = function() Profiles.changeProfile('profile25', true) end,
      profile26                       = function() Profiles.changeProfile('profile26', true) end,
      profile3                        = function() Profiles.changeProfile('profile3', true) end,
      profile4                        = function() Profiles.changeProfile('profile4', true) end,
      profile5                        = function() Profiles.changeProfile('profile5', true) end,
      profile6                        = function() Profiles.changeProfile('profile6', true) end,
      profile7                        = function() Profiles.changeProfile('profile7', true) end,
      profile8                        = function() Profiles.changeProfile('profile8', true) end,
      profile9                        = function() Profiles.changeProfile('profile9', true) end,
    }
--need to refer to table after it is initially constructed, so can't put in initial construction statement
    ACTIONS.ActionSeries1 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[1],ACTIONS) end
    ACTIONS.ActionSeries2 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[2],ACTIONS) end
    ACTIONS.ActionSeries3 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[3],ACTIONS) end
    ACTIONS.ActionSeries4 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[4],ACTIONS) end
    ACTIONS.ActionSeries5 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[5],ACTIONS) end
    ACTIONS.ActionSeries6 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[6],ACTIONS) end
    ACTIONS.ActionSeries7 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[7],ACTIONS) end
    ACTIONS.ActionSeries8 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[8],ACTIONS) end
    ACTIONS.ActionSeries9 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[9],ACTIONS) end
    ACTIONS.ActionSeries10 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[10],ACTIONS) end
    ACTIONS.ActionSeries11 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[11],ACTIONS) end
    ACTIONS.ActionSeries12 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[12],ACTIONS) end
    ACTIONS.ActionSeries13 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[13],ACTIONS) end
    ACTIONS.ActionSeries14 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[14],ACTIONS) end
    ACTIONS.ActionSeries15 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[15],ACTIONS) end
    ACTIONS.ActionSeries16 = function() ActionSeries.Run(ProgramPreferences.ActionSeries[16],ACTIONS) end

    local function notsupported() LrDialogs.showBezel(LOC('$$$/MIDI2LR/Dialog/NeedNewerLR=A newer version of Lightroom is required')) end

    local SETTINGS = {
      AppInfo            = function(value) Info.AppInfo[#Info.AppInfo+1] = value end,
      ChangedToDirectory = Profiles.setDirectory,
      ChangedToFile      = Profiles.setFile,
      ChangedToFullPath  = Profiles.setFullPath,
      Pickup             = function(enabled)
        if tonumber(enabled) == 1 then -- state machine
          UpdateParam = UpdateParamPickup
        else
          UpdateParam = UpdateParamNoPickup
        end
      end,
      ProfileAmount     = CU.ProfileAmount,
      --[[
      For SetRating, if send back sync value to controller, formula is:
      (Rating * 2 + 1)/12
      or,
      0 = 0.083333333, 1 = 0.25, 2 = 4.16667, 3 = 0.583333, 4 = 0.75, 5 = 0.916667
      Make sure to send back sync only when controller not in the range of current value, or we will
      be yanking the controller out of people's hands, as "correct value" is 1/6th of fader's travel.
      Will need to add code to AdjustmentChangeObserver and FullRefresh, and remember last fader
      position received by SetRating.
      --]]
      SetRating          = function(value)
        local newrating = math.min(5,math.floor(tonumber(value)*6))
        if newrating ~= LrSelection.getRating() then
          LrSelection.setRating(newrating)
        end
      end,
    }


    function UpdateParamPickup() --closure
      local paramlastmoved = {}
      local lastfullrefresh = 0
      return function(param, midi_value, silent)
        if LrApplication.activeCatalog():getTargetPhoto() == nil then return end--unable to update param
        local value
        if LrApplicationView.getCurrentModuleName() ~= 'develop' then
          LrApplicationView.switchToModule('develop')
          LrTasks.yield() -- need this to allow module change before value sent
        end
        if Limits.Parameters[param] then
          Limits.ClampValue(param)
        end
        if (math.abs(midi_value - CU.LRValueToMIDIValue(param)) <= PICKUP_THRESHOLD) or (paramlastmoved[param] ~= nil and paramlastmoved[param] + 0.5 > os.clock()) then -- pickup succeeded
          paramlastmoved[param] = os.clock()
          value = CU.MIDIValueToLRValue(param, midi_value)
          if value ~= LrDevelopController.getValue(param) then
            MIDI2LR.PARAM_OBSERVER[param] = value
            LrDevelopController.setValue(param, value)
            LastParam = param
            if ProgramPreferences.ClientShowBezelOnChange and not silent then
              CU.showBezel(param,value)
            elseif type(silent) == 'string' then
              LrDialogs.showBezel(silent)
            end
          end
          if Database.CmdPanel[param] then
            Profiles.changeProfile(Database.CmdPanel[param])
          end
        else --failed pickup
          if ProgramPreferences.ClientShowBezelOnChange then -- failed pickup. do I display bezel?
            value = CU.MIDIValueToLRValue(param, midi_value)
            local actualvalue = LrDevelopController.getValue(param)
            CU.showBezel(param,value,actualvalue)
          end
          if lastfullrefresh + 1 < os.clock() then --try refreshing controller once a second
            CU.FullRefresh()
            lastfullrefresh = os.clock()
          end
        end -- end of if pickup/elseif bezel group
      end -- end of returned function
    end
    UpdateParamPickup = UpdateParamPickup() --complete closure
    --called within LrRecursionGuard for setting
    function UpdateParamNoPickup(param, midi_value, silent)
      if LrApplication.activeCatalog():getTargetPhoto() == nil then return end--unable to update param
      local value
      if LrApplicationView.getCurrentModuleName() ~= 'develop' then
        LrApplicationView.switchToModule('develop')
        LrTasks.yield() -- need this to allow module change before value sent
      end
      --Don't need to clamp limited parameters without pickup, as MIDI controls will still work
      --if value is outside limits range
      value = CU.MIDIValueToLRValue(param, midi_value)
      if value ~= LrDevelopController.getValue(param) then
        MIDI2LR.PARAM_OBSERVER[param] = value
        LrDevelopController.setValue(param, value)
        LastParam = param
        if ProgramPreferences.ClientShowBezelOnChange and not silent then
          CU.showBezel(param,value)
        elseif type(silent) == 'string' then
          LrDialogs.showBezel(silent)
        end
      end
      if Database.CmdPanel[param] then
        Profiles.changeProfile(Database.CmdPanel[param])
      end
    end
    UpdateParam = UpdateParamPickup --initial state


    LrFunctionContext.callWithContext(
      'socket_remote',
      function( context )
        --[[-----------debug section, enable by adding - to beginning this line
        LrMobdebug.on()
        --]]-----------end debug section
        local LrShell             = import 'LrShell'
        local LrSocket            = import 'LrSocket'
        local CurrentObserver
        --call following within guard for reading
        local function AdjustmentChangeObserver()
          local lastrefresh = 0 --will be set to os.clock + increment to rate limit
          return function(observer) -- closure
            if not sendIsConnected then return end -- can't send
            if Limits.LimitsCanBeSet() and lastrefresh < os.clock() then
              -- refresh crop values NOTE: this function is repeated in ClientUtilities and Profiles
              local val_bottom = LrDevelopController.getValue("CropBottom")
              MIDI2LR.SERVER:send(string.format('CropBottomRight %g\n', val_bottom))
              MIDI2LR.SERVER:send(string.format('CropBottomLeft %g\n', val_bottom))
              MIDI2LR.SERVER:send(string.format('CropAll %g\n', val_bottom))
              MIDI2LR.SERVER:send(string.format('CropBottom %g\n', val_bottom))
              local val_top = LrDevelopController.getValue("CropTop")
              MIDI2LR.SERVER:send(string.format('CropTopRight %g\n', val_top))
              MIDI2LR.SERVER:send(string.format('CropTopLeft %g\n', val_top))
              MIDI2LR.SERVER:send(string.format('CropTop %g\n', val_top))
              local val_left = LrDevelopController.getValue("CropLeft")
              local val_right = LrDevelopController.getValue("CropRight")
              MIDI2LR.SERVER:send(string.format('CropLeft %g\n', val_left))
              MIDI2LR.SERVER:send(string.format('CropRight %g\n', val_right))
              local range_v = (1 - (val_bottom - val_top))
              if range_v == 0.0 then
                MIDI2LR.SERVER:send('CropMoveVertical 0\n')
              else
                MIDI2LR.SERVER:send(string.format('CropMoveVertical %g\n', val_top / range_v))
              end
              local range_h = (1 - (val_right - val_left))
              if range_h == 0.0 then
                MIDI2LR.SERVER:send('CropMoveHorizontal 0\n')
              else
                MIDI2LR.SERVER:send(string.format('CropMoveHorizontal %g\n', val_left / range_h))
              end
              for param in pairs(Database.Parameters) do
                local lrvalue = LrDevelopController.getValue(param)
                if observer[param] ~= lrvalue and type(lrvalue) == 'number' then --testing for MIDI2LR.SERVER.send kills responsiveness
                  MIDI2LR.SERVER:send(string.format('%s %g\n', param, CU.LRValueToMIDIValue(param)))
                  observer[param] = lrvalue
                  LastParam = param
                end
              end
              lastrefresh = os.clock() + 0.1 --1/10 sec between refreshes
            end
          end
        end
        AdjustmentChangeObserver = AdjustmentChangeObserver() --complete closure
        local function InactiveObserver() end
        CurrentObserver = AdjustmentChangeObserver -- will change when detect loss of MIDI controller

        -- wrapped in function so can be called when connection lost
        local function startServer(context1)
          MIDI2LR.SERVER = LrSocket.bind {
            functionContext = context1,
            plugin = _PLUGIN,
            port = SEND_PORT,
            mode = 'send',
            onClosed = function () sendIsConnected = false end,
            onConnected = function () sendIsConnected = true end,
            onError = function( socket )
              sendIsConnected = false
              if MIDI2LR.RUNNING then --
                socket:reconnect()
              end
            end,
          }
        end

        MIDI2LR.CLIENT = LrSocket.bind {
          functionContext = context,
          plugin = _PLUGIN,
          port = RECEIVE_PORT,
          mode = 'receive',
          onMessage = function(_, message) --message processor
            if type(message) == 'string' then
              local split = message:find(' ',1,true)
              local param = message:sub(1,split-1)
              local value = message:sub(split+1)
              if Database.Parameters[param] then
                UpdateParam(param,tonumber(value),false)
                local gradeFocus = GradeFocusTable[param]
                if gradeFocus then
                  local currentView = LrDevelopController.getActiveColorGradingView()
                  if currentView ~= '3-way' or gradeFocus == 'global' then
                    if currentView ~= gradeFocus then
                      LrDevelopController.setActiveColorGradingView(gradeFocus)
                    end
                  end
                end
              elseif ACTIONS[param] then -- perform a one time action
                if tonumber(value) > BUTTON_ON then
                  ACTIONS[param]()
                end
              elseif SETTINGS[param] then -- do something requiring the transmitted value to be known
                SETTINGS[param](value)
              elseif Virtual[param] then -- handle a virtual command
                local lp = Virtual[param](value, UpdateParam)
                if lp then
                  LastParam = lp
                end
              elseif param:sub(1,4) == 'Crop'  then
                CU.RatioCrop(param,value,UpdateParam)
              elseif param:sub(1,5) == 'Reset' then -- perform a reset other than those explicitly coded in ACTIONS array
                if tonumber(value) > BUTTON_ON then
                  local resetparam = param:sub(6)
                  if Database.Parameters[resetparam] then -- sanitize input: is it really a parameter?
                    CU.execFOM(LrDevelopController.resetToDefault,resetparam)
                    if ProgramPreferences.ClientShowBezelOnChange then
                      local lrvalue = LrDevelopController.getValue(resetparam)
                      CU.showBezel(resetparam,lrvalue)
                    end
                    local gradeFocus = GradeFocusTable[resetparam] -- scroll to correct view on color grading
                    if gradeFocus then
                      local currentView = LrDevelopController.getActiveColorGradingView()
                      if currentView ~= '3-way' or gradeFocus == 'global' then
                        if currentView ~= gradeFocus then
                          LrDevelopController.setActiveColorGradingView(gradeFocus)
                        end
                      end
                    end
                  end
                end
              end
            end
          end,
          onClosed = function( socket )
            if MIDI2LR.RUNNING then
              -- MIDI2LR closed connection, allow for reconnection
              socket:reconnect()
              -- calling SERVER:reconnect causes LR to hang for some reason...
              MIDI2LR.SERVER:close()
              startServer(context)
            end
          end,
          onError = function(socket, err)
            if err == 'timeout' then -- reconnect if timed out
              socket:reconnect()
            end
          end
        }

        startServer(context)

        if WIN_ENV then
          LrShell.openFilesInApp({LrPathUtils.child(_PLUGIN.path, 'Info.lua')}, LrPathUtils.child(_PLUGIN.path, 'MIDI2LR.exe'))
        else
          LrShell.openFilesInApp({LrPathUtils.child(_PLUGIN.path, 'Info.lua')}, LrPathUtils.child(_PLUGIN.path, 'MIDI2LR.app'))
        end

        -- add an observer for develop param changes--needs to occur in develop module
        -- will drop out of loop if loadversion changes or if in develop module with selected photo
        while  MIDI2LR.RUNNING and ((LrApplicationView.getCurrentModuleName() ~= 'develop') or (LrApplication.activeCatalog():getTargetPhoto() == nil)) do
          LrTasks.sleep ( .29 )
          Profiles.checkProfile()
        end --sleep away until ended or until develop module activated
        LrTasks.sleep ( .2 ) --avoid "attempt to index field 'libraryImage' (a nil value) on fast machines: LR bug
        if MIDI2LR.RUNNING then --didn't drop out of loop because of program termination
          if ProgramPreferences.RevealAdjustedControls then --may be nil or false
            LrDevelopController.revealAdjustedControls( true ) -- reveal affected parameter in panel track
          end
          if ProgramPreferences.TrackingDelay ~= nil then
            LrDevelopController.setTrackingDelay(ProgramPreferences.TrackingDelay)
          end
          LrDevelopController.addAdjustmentChangeObserver(
            context,
            MIDI2LR.PARAM_OBSERVER,
            function ( observer )
              CurrentObserver(observer)
            end
          )
          while MIDI2LR.RUNNING do --detect halt or reload
            LrTasks.sleep( .29 )
            Profiles.checkProfile()
          end
        end
      end
    )
  end
)