mirinda/plugins/mirinda_spline.xml

<Mods LoadCommand = "%xero(function(self)
  local maxindex = 39 -- probably best not to change, but if youre getting massive performance issues go ahead

  local validparams = {'x', 'y', 'z', 'rotx', 'roty', 'rotz', 'size', 'stealth', 'skew'}
  local parambindings = {
    x = 'XSpline',
    y = 'YSpline',
    z = 'ZSpline',

    rotx = 'RotXSpline',
    roty = 'RotYSpline',
    rotz = 'RotZSpline',

    size = 'SizeSpline',
    skew = 'SkewSpline',
    stealth = 'StealthSpline',
  }

  mirinda_splinetable = {}

  -- spline {name, function(a, ..., y, column, pn)}
  function spline(self)
    if type(self) ~= 'table' then
			screen_error('curly braces expected', 0, 'spline')
			return node
		end

    local name = self[1]
    local funct = self[2]

    local names = {name, name .. 0, name .. 1, name .. 2, name .. 3}
    for _,n in ipairs(names) do
      aux {n}
      mirinda_splinetable[n] = {}

      for pn = 1, 8 do
        mirinda_splinetable[n][pn] = {}
      end
    end

    node {name, function(a, pn)
      for c = 1, 4 do
        for i = 0, maxindex do
          local res = funct(a, i/maxindex, c, pn)
          if res ~= nil then
            for mod,b in pairs(res) do
              mirinda_splinetable[name][pn][mod] = mirinda_splinetable[name][pn][mod] or {}
              mirinda_splinetable[name][pn][mod][c] = mirinda_splinetable[name][pn][mod][c] or {}
              mirinda_splinetable[name][pn][mod][c][i] = b
            end
          end
        end
      end
    end}

    for c = 1, 4 do
      local c = c
      local name = name .. (c - 1)
      print(name)
      node {name, function(a, pn)
        for i = 0, maxindex do
          local res = funct(a, i/maxindex, c, pn)
          if res ~= nil then
            for mod,b in pairs(res) do
              mirinda_splinetable[name][pn][mod] = mirinda_splinetable[name][pn][mod] or {}
              mirinda_splinetable[name][pn][mod][c] = mirinda_splinetable[name][pn][mod][c] or {}
              mirinda_splinetable[name][pn][mod][c][i] = b
            end
          end
        end
      end}
    end
  end

  local usedsplines = {}
  local modinuse = {}
  func {0, 9e9, function(beat, poptions)
    -- reset splines
    for name,m in pairs(parambindings) do
      for pn = 1, 8 do
        if usedsplines[pn] and usedsplines[pn][name] then P[pn]['Reset' .. m .. 's'](P[pn], -1) end
        usedsplines[pn] = usedsplines[pn] or {}
        usedsplines[pn][name] = false
      end
    end

    -- recombine and apply
    local combined = {}

    for pn = 1, 8 do
      for mod,bind in pairs(parambindings) do
        for c = 1, 4 do
          for name,n in pairs(mirinda_splinetable) do
            if poptions[pn][name] ~= 0 then
              usedsplines[pn] = usedsplines[pn] or {}
              usedsplines[pn][mod] = true
              if mirinda_splinetable[name][pn][mod] and mirinda_splinetable[name][pn][mod][c] then
                combined[name] = combined[name] or {}
                combined[name][pn] = combined[name][pn] or {}
                combined[name][pn][mod] = combined[name][pn][mod] or {}
                combined[name][pn][mod][c] = combined[name][pn][mod][c] or {}

                for i = 0, maxindex do
                  combined[name][pn][mod][c][i] = (combined[name][pn][mod][c][i] or 0) + mirinda_splinetable[name][pn][mod][c][i]
                  P[pn]['Set' .. bind](P[pn], i, c - 1, combined[name][pn][mod][c][i], (i / maxindex) * 100 * 10, -1)
                end
              end
            end
          end
        end
      end
    end
  end}
end)"
Type = "ActorFrame"/>