@audio/stretch-paulstretch 1.0.0

package/LICENSE

@@ -0,0 +1,25 @@
+MIT License
+
+Copyright (c) Dmitry Iv
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+---
+
+This work is offered under the Krishnized License (https://github.com/krishnized/license).

package/README.md

@@ -0,0 +1,25 @@
+# @audio/stretch-paulstretch
+
+Extreme time stretching via phase randomization (Nasca, 2006). Preserves magnitudes but replaces all phases with a deterministic PRNG, producing smooth, dreamlike textures. Designed for large factors.
+
+```js
+import paulstretch from '@audio/stretch-paulstretch'
+
+paulstretch(data, { factor: 8 })
+paulstretch(data, { factor: 100, frameSize: 8192 })
+```
+
+| Param | Default | |
+|---|---|---|
+| `factor` | `8` | Time stretch ratio (best >2×) |
+| `frameSize` | `4096` | FFT size (larger = smoother) |
+| `seed` | `0x1f123bb5` | PRNG seed (deterministic output) |
+
+**Use when:** ambient music, sound design, drone generation, 8×–1000× stretch.<br>
+**Not for:** small ratios (<2× sounds washed out), preserving rhythm or transients.
+
+Part of [`@audio/stretch`](../..).
+
+## License
+
+[MIT](./LICENSE) · [ॐ](https://github.com/krishnized/license/)

package/package.json

@@ -0,0 +1,47 @@
+{
+  "name": "@audio/stretch-paulstretch",
+  "version": "1.0.0",
+  "description": "Paulstretch — Paul Nasca's extreme stretch (8×+) for ambient/drone material",
+  "type": "module",
+  "sideEffects": false,
+  "main": "paulstretch.js",
+  "types": "paulstretch.d.ts",
+  "exports": {
+    ".": "./paulstretch.js",
+    "./package.json": "./package.json"
+  },
+  "files": [
+    "paulstretch.js",
+    "paulstretch.d.ts",
+    "README.md",
+    "LICENSE"
+  ],
+  "dependencies": {
+    "@audio/stretch-core": "^1.0.0",
+    "fourier-transform": "^2.3.0"
+  },
+  "keywords": [
+    "audio",
+    "dsp",
+    "time-stretch",
+    "paulstretch",
+    "ambient",
+    "drone",
+    "stft"
+  ],
+  "publishConfig": {
+    "access": "public"
+  },
+  "license": "MIT",
+  "author": "Dmitry Iv. <dfcreative@gmail.com>",
+  "homepage": "https://github.com/audiojs/stretch/tree/main/packages/stretch-paulstretch",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/audiojs/stretch.git",
+    "directory": "packages/stretch-paulstretch"
+  },
+  "bugs": "https://github.com/audiojs/stretch/issues",
+  "engines": {
+    "node": ">=18"
+  }
+}

package/paulstretch.d.ts

@@ -0,0 +1,13 @@
+import type { StreamWriter } from '@audio/stretch-core'
+
+export interface PaulstretchOpts {
+  factor?: number
+  frameSize?: number
+  seed?: number
+}
+
+declare const paulstretch: {
+  (data: Float32Array, opts?: PaulstretchOpts): Float32Array
+  (opts?: PaulstretchOpts): StreamWriter
+}
+export default paulstretch

package/paulstretch.js

@@ -0,0 +1,40 @@
+// Paul Nasca's "extreme stretch" — replaces STFT phase with uniform noise each
+// frame. Destroys temporal structure; magnitudes alone reconstruct a smeared,
+// ambient drone. Designed for factors ≥ 8×.
+
+import { stftBatch, stftStream } from 'fourier-transform/stft'
+import { writer } from '@audio/stretch-core'
+
+function createRandom(seed) {
+  let value = (seed >>> 0) || 1
+  return () => {
+    value = (value * 1664525 + 1013904223) >>> 0
+    return value / 4294967296
+  }
+}
+
+function makeProcess(seed) {
+  return (mag, phase, state, ctx) => {
+    let rand = state.rand || (state.rand = createRandom(seed))
+    let p = state.p || (state.p = new Float64Array(ctx.half + 1))
+    for (let k = 0; k <= ctx.half; k++) p[k] = rand() * Math.PI * 2
+    return { mag, phase: p }
+  }
+}
+
+export default function paulstretch(data, opts) {
+  if (!(data instanceof Float32Array)) {
+    opts = data
+    let factor = opts?.factor ?? 8
+    let frameSize = opts?.frameSize ?? 4096
+    let synHop = frameSize >> 1
+    let seed = opts?.seed ?? 0x1f123bb5
+    return writer(stftStream(makeProcess(seed), { frameSize, synHop, anaHop: synHop / factor }))
+  }
+  let factor = opts?.factor ?? 8
+  if (factor === 1) return new Float32Array(data)
+  let frameSize = opts?.frameSize ?? 4096
+  let synHop = frameSize >> 1
+  let seed = opts?.seed ?? 0x1f123bb5
+  return stftBatch(data, makeProcess(seed), { frameSize, synHop, anaHop: synHop / factor })
+}