@audio/shift-pvoc-lock 1.0.0

package/index.js

@@ -0,0 +1,39 @@
+import { makeStftShift } from '@audio/shift-core/stft'
+import { findPeaks, scatterLocked, makeFrameRatio } from '@audio/shift-core'
+
+// Peak-locked phase vocoder (Laroche-Dolson style, adapted to direct bin-shift pitch shifting).
+// Phase coherence across a region of influence is preserved by locking non-peak bins' phase
+// relative to the nearest magnitude peak, rather than advancing every bin independently.
+// Batch and stream share this exact per-frame kernel (see shift-core's scatterLocked energy
+// policy) so no post-hoc gain correction is needed.
+
+function process(mag, phase, state, ctx) {
+  if (!state.fr) state.fr = makeFrameRatio(ctx.ratioFn || ctx.ratio || 1)
+  let { half } = ctx
+  let ratio = state.fr.at(ctx.frameStart, ctx.sampleRate)
+  if (!state.prev) {
+    state.prev = new Float64Array(half + 1)
+    state.syn = new Float64Array(half + 1)
+    state.newMag = new Float64Array(half + 1)
+    state.newPhase = new Float64Array(half + 1)
+    state.peakMag = new Float64Array(half + 1)
+    state.peakDest = new Int32Array(half)
+    state.peakSynPhase = new Float64Array(half)
+    state.first = true
+  }
+
+  let { prev, syn, newMag, newPhase, peakMag, peakDest, peakSynPhase } = state
+  newMag.fill(0)
+  newPhase.fill(0)
+  peakMag.fill(0)
+
+  let peaks = findPeaks(mag, half)
+  scatterLocked(mag, phase, prev, state.first, peaks, ratio, ctx, syn, newMag, newPhase, peakDest, peakSynPhase, peakMag)
+
+  for (let k = 0; k <= half; k++) prev[k] = phase[k]
+  state.first = false
+
+  return { mag: newMag, phase: newPhase }
+}
+
+export default makeStftShift(process, { post: (out) => out })

package/package.json

@@ -0,0 +1,40 @@
+{
+  "name": "@audio/shift-pvoc-lock",
+  "version": "1.0.0",
+  "description": "Peak-locked phase vocoder (Laroche-Dolson) pitch shift",
+  "type": "module",
+  "sideEffects": false,
+  "main": "index.js",
+  "exports": {
+    ".": "./index.js",
+    "./package.json": "./package.json"
+  },
+  "files": [
+    "index.js"
+  ],
+  "dependencies": {
+    "@audio/shift-core": "^1.0.0"
+  },
+  "publishConfig": {
+    "access": "public"
+  },
+  "license": "MIT",
+  "author": "audiojs",
+  "homepage": "https://github.com/audiojs/shift/tree/main/packages/shift-pvoc-lock#readme",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/audiojs/shift.git",
+    "directory": "packages/shift-pvoc-lock"
+  },
+  "keywords": [
+    "audio",
+    "pitch-shift",
+    "phase-vocoder",
+    "peak-locked",
+    "laroche-dolson",
+    "dsp"
+  ],
+  "engines": {
+    "node": ">=18"
+  }
+}