rescript-tone 0.1.0

package/src/ToneJs_Phaser.res

@@ -0,0 +1,28 @@
+// Bindings for Tone.Phaser
+open ToneJs_Types
+
+type t
+
+type options = {
+  frequency?: frequency,
+  octaves?: positive,
+  stages?: int,
+  q?: positive,
+  baseFrequency?: frequency,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "Phaser"
+@module("tone") @new external makeWithOptions: options => t = "Phaser"
+
+@get external frequency: t => ToneJs_Param.t = "frequency"
+@get external octaves: t => positive = "octaves"
+@set external setOctaves: (t, positive) => unit = "octaves"
+@get external q: t => ToneJs_Param.t = "Q"
+@get external baseFrequency: t => frequency = "baseFrequency"
+@set external setBaseFrequency: (t, frequency) => unit = "baseFrequency"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_PingPongDelay.res

@@ -0,0 +1,24 @@
+// Bindings for Tone.PingPongDelay
+open ToneJs_Types
+
+type t
+
+type options = {
+  delayTime?: time,
+  maxDelay?: time,
+  feedback?: normalRange,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "PingPongDelay"
+@module("tone") @new external makeWithTime: time => t = "PingPongDelay"
+@module("tone") @new external makeWithTimeFeedback: (time, normalRange) => t = "PingPongDelay"
+@module("tone") @new external makeWithOptions: options => t = "PingPongDelay"
+
+@get external delayTime: t => ToneJs_Param.t = "delayTime"
+@get external feedback: t => ToneJs_Param.t = "feedback"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_PitchShift.res

@@ -0,0 +1,27 @@
+// Bindings for Tone.PitchShift
+open ToneJs_Types
+
+type t
+
+type options = {
+  pitch?: float,
+  windowSize?: seconds,
+  delayTime?: time,
+  feedback?: normalRange,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "PitchShift"
+@module("tone") @new external makeWithOptions: options => t = "PitchShift"
+
+@get external pitch: t => float = "pitch"
+@set external setPitch: (t, float) => unit = "pitch"
+@get external windowSize: t => seconds = "windowSize"
+@set external setWindowSize: (t, seconds) => unit = "windowSize"
+@get external delayTime: t => ToneJs_Param.t = "delayTime"
+@get external feedback: t => ToneJs_Param.t = "feedback"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Player.res

@@ -0,0 +1,60 @@
+// Bindings for Tone.Player - audio file playback
+open ToneJs_Types
+
+type t
+
+type options = {
+  url?: string,
+  loop?: bool,
+  autostart?: bool,
+  playbackRate?: positive,
+  loopStart?: time,
+  loopEnd?: time,
+  reverse?: bool,
+  fadeIn?: time,
+  fadeOut?: time,
+  volume?: decibels,
+}
+
+@module("tone") @new external make: string => t = "Player"
+@module("tone") @new external makeWithOptions: options => t = "Player"
+
+// Source lifecycle
+@send external start: (t, ~time: time=?) => t = "start"
+@send external startWithOffset: (t, ~time: time=?, ~offset: time=?) => t = "start"
+@send external startWithOffsetDuration: (t, ~time: time=?, ~offset: time=?, ~duration: time=?) => t = "start"
+@send external stop: (t, ~time: time=?) => t = "stop"
+@send external restart: (t, ~time: time=?) => t = "restart"
+@send external seek: (t, time) => t = "seek"
+@send external seekAt: (t, time, ~when_: time=?) => t = "seek"
+@send external dispose: t => t = "dispose"
+
+// Loading
+@send external load: (t, string) => promise<t> = "load"
+
+// Properties
+@get external volume: t => ToneJs_Param.t = "volume"
+@get external loaded: t => bool = "loaded"
+@get external loop: t => bool = "loop"
+@set external setLoop: (t, bool) => unit = "loop"
+@get external loopStart: t => time = "loopStart"
+@set external setLoopStart: (t, time) => unit = "loopStart"
+@get external loopEnd: t => time = "loopEnd"
+@set external setLoopEnd: (t, time) => unit = "loopEnd"
+@send external setLoopPoints: (t, time, time) => t = "setLoopPoints"
+@get external playbackRate: t => positive = "playbackRate"
+@set external setPlaybackRate: (t, positive) => unit = "playbackRate"
+@get external reverse: t => bool = "reverse"
+@set external setReverse: (t, bool) => unit = "reverse"
+@get external autostart: t => bool = "autostart"
+@set external setAutostart: (t, bool) => unit = "autostart"
+@get external fadeIn: t => time = "fadeIn"
+@set external setFadeIn: (t, time) => unit = "fadeIn"
+@get external fadeOut: t => time = "fadeOut"
+@set external setFadeOut: (t, time) => unit = "fadeOut"
+
+// Sync
+@send external sync: t => t = "sync"
+@send external unsync: t => t = "unsync"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_PolySynth.res

@@ -0,0 +1,37 @@
+// Bindings for Tone.PolySynth - polyphonic synthesizer
+open ToneJs_Types
+
+type t
+
+type options = {
+  maxPolyphony?: int,
+  volume?: decibels,
+}
+
+@module("tone") @new external make: unit => t = "PolySynth"
+@module("tone") @new external makeWithOptions: options => t = "PolySynth"
+
+// PolySynth takes arrays of notes
+@send external triggerAttack: (t, array<frequency>) => t = "triggerAttack"
+@send external triggerAttackNote: (t, frequency) => t = "triggerAttack"
+@send external triggerAttackAt: (t, array<frequency>, ~time: time=?) => t = "triggerAttack"
+@send external triggerAttackAtVel: (t, array<frequency>, ~time: time=?, ~velocity: normalRange=?) => t = "triggerAttack"
+@send external triggerRelease: (t, array<frequency>) => t = "triggerRelease"
+@send external triggerReleaseNote: (t, frequency) => t = "triggerRelease"
+@send external triggerReleaseAt: (t, array<frequency>, ~time: time=?) => t = "triggerRelease"
+@send external triggerAttackRelease: (t, array<frequency>, time) => t = "triggerAttackRelease"
+@send external triggerAttackReleaseNote: (t, frequency, time) => t = "triggerAttackRelease"
+@send external triggerAttackReleaseAt: (t, array<frequency>, time, ~time: time=?) => t = "triggerAttackRelease"
+@send external triggerAttackReleaseAtVel: (t, array<frequency>, time, ~time: time=?, ~velocity: normalRange=?) => t = "triggerAttackRelease"
+@send external releaseAll: (t, ~time: time=?) => t = "releaseAll"
+
+@get external volume: t => ToneJs_Param.t = "volume"
+@get external activeVoices: t => int = "activeVoices"
+@get external maxPolyphony: t => int = "maxPolyphony"
+@set external setMaxPolyphony: (t, int) => unit = "maxPolyphony"
+
+@send external dispose: t => t = "dispose"
+@send external sync: t => t = "sync"
+@send external unsync: t => t = "unsync"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Reverb.res

@@ -0,0 +1,26 @@
+// Bindings for Tone.Reverb
+open ToneJs_Types
+
+type t
+
+type options = {
+  decay?: seconds,
+  preDelay?: seconds,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "Reverb"
+@module("tone") @new external makeWithDecay: seconds => t = "Reverb"
+@module("tone") @new external makeWithOptions: options => t = "Reverb"
+
+@get external decay: t => time = "decay"
+@set external setDecay: (t, time) => unit = "decay"
+@get external preDelay: t => time = "preDelay"
+@set external setPreDelay: (t, time) => unit = "preDelay"
+@get external wet: t => ToneJs_Param.t = "wet"
+@get external ready: t => promise<unit> = "ready"
+
+@send external generate: t => promise<t> = "generate"
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Sequence.res

@@ -0,0 +1,35 @@
+// Bindings for Tone.Sequence - a series of events in order
+open ToneJs_Types
+
+type t
+
+@module("tone") @new external make: ((seconds, 'a) => unit, array<'a>) => t = "Sequence"
+@module("tone") @new external makeWithSubdivision: ((seconds, 'a) => unit, array<'a>, time) => t = "Sequence"
+
+@send external start: (t, ~time: transportTime=?) => t = "start"
+@send external startWithOffset: (t, ~time: transportTime=?, ~offset: int=?) => t = "start"
+@send external stop: (t, ~time: transportTime=?) => t = "stop"
+@send external clear: t => t = "clear"
+@send external dispose: t => t = "dispose"
+
+@get external events: t => array<'a> = "events"
+@set external setEvents: (t, array<'a>) => unit = "events"
+@get external subdivision: t => seconds = "subdivision"
+@get external state: t => basicPlaybackState = "state"
+@get external progress: t => normalRange = "progress"
+@get external length: t => int = "length"
+@get external loop: t => bool = "loop"
+@set external setLoop: (t, bool) => unit = "loop"
+@set external setLoopCount: (t, int) => unit = "loop"
+@get external loopEnd: t => int = "loopEnd"
+@set external setLoopEnd: (t, int) => unit = "loopEnd"
+@get external loopStart: t => int = "loopStart"
+@set external setLoopStart: (t, int) => unit = "loopStart"
+@get external playbackRate: t => positive = "playbackRate"
+@set external setPlaybackRate: (t, positive) => unit = "playbackRate"
+@get external probability: t => normalRange = "probability"
+@set external setProbability: (t, normalRange) => unit = "probability"
+@get external mute: t => bool = "mute"
+@set external setMute: (t, bool) => unit = "mute"
+@get external humanize: t => bool = "humanize"
+@set external setHumanize: (t, bool) => unit = "humanize"

package/src/ToneJs_Signal.res

@@ -0,0 +1,47 @@
+// Bindings for Tone.Signal - a schedulable signal
+open ToneJs_Types
+
+type t
+
+type options = {
+  value?: float,
+  units?: string,
+}
+
+@module("tone") @new external make: unit => t = "Signal"
+@module("tone") @new external makeWithValue: float => t = "Signal"
+@module("tone") @new external makeWithOptions: options => t = "Signal"
+
+@get external getValue: t => float = "value"
+@set external setValue: (t, float) => unit = "value"
+@get external overridden: t => bool = "overridden"
+@set external setOverridden: (t, bool) => unit = "overridden"
+@get external maxValue: t => float = "maxValue"
+@get external minValue: t => float = "minValue"
+@get external units: t => string = "units"
+@get external convert: t => bool = "convert"
+@set external setConvert: (t, bool) => unit = "convert"
+
+// Scheduling methods (same as Param)
+@send external setValueAtTime: (t, float, time) => t = "setValueAtTime"
+@send external getValueAtTime: (t, time) => float = "getValueAtTime"
+@send external linearRampToValueAtTime: (t, float, time) => t = "linearRampToValueAtTime"
+@send external exponentialRampToValueAtTime: (t, float, time) => t = "exponentialRampToValueAtTime"
+@send external linearRampTo: (t, float, time) => t = "linearRampTo"
+@send external linearRampToFrom: (t, float, time, ~startTime: time=?) => t = "linearRampTo"
+@send external exponentialRampTo: (t, float, time) => t = "exponentialRampTo"
+@send external exponentialRampToFrom: (t, float, time, ~startTime: time=?) => t = "exponentialRampTo"
+@send external targetRampTo: (t, float, time) => t = "targetRampTo"
+@send external targetRampToFrom: (t, float, time, ~startTime: time=?) => t = "targetRampTo"
+@send external rampTo: (t, float, time) => t = "rampTo"
+@send external rampToFrom: (t, float, time, ~startTime: time=?) => t = "rampTo"
+@send external setRampPoint: (t, time) => t = "setRampPoint"
+@send external setTargetAtTime: (t, float, time, float) => t = "setTargetAtTime"
+@send external cancelScheduledValues: (t, time) => t = "cancelScheduledValues"
+@send external cancelAndHoldAtTime: (t, time) => t = "cancelAndHoldAtTime"
+
+@send external connect: (t, ToneJs_AudioNode.t) => t = "connect"
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"
+external asParam: t => ToneJs_Param.t = "%identity"

package/src/ToneJs_StereoWidener.res

@@ -0,0 +1,19 @@
+// Bindings for Tone.StereoWidener
+open ToneJs_Types
+
+type t
+
+type options = {
+  width?: normalRange,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "StereoWidener"
+@module("tone") @new external makeWithOptions: options => t = "StereoWidener"
+
+@get external width: t => ToneJs_Param.t = "width"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Synth.res

@@ -0,0 +1,35 @@
+// Bindings for Tone.Synth - a basic synthesizer
+open ToneJs_Types
+
+type t
+
+type options = {
+  oscillator?: oscillatorOptions,
+  envelope?: envelopeOptions,
+  volume?: decibels,
+}
+
+@module("tone") @new external make: unit => t = "Synth"
+@module("tone") @new external makeWithOptions: options => t = "Synth"
+
+// Instrument methods
+@send external triggerAttack: (t, frequency) => t = "triggerAttack"
+@send external triggerAttackAt: (t, frequency, ~time: time=?) => t = "triggerAttack"
+@send external triggerAttackAtVel: (t, frequency, ~time: time=?, ~velocity: normalRange=?) => t = "triggerAttack"
+@send external triggerRelease: (t, ~time: time=?) => t = "triggerRelease"
+@send external triggerAttackRelease: (t, frequency, time) => t = "triggerAttackRelease"
+@send external triggerAttackReleaseAt: (t, frequency, time, ~time: time=?) => t = "triggerAttackRelease"
+@send external triggerAttackReleaseAtVel: (t, frequency, time, ~time: time=?, ~velocity: normalRange=?) => t = "triggerAttackRelease"
+
+// Properties
+@get external volume: t => ToneJs_Param.t = "volume"
+@get external frequency: t => ToneJs_Param.t = "frequency"
+@get external detune: t => ToneJs_Param.t = "detune"
+
+// Lifecycle
+@send external dispose: t => t = "dispose"
+@send external sync: t => t = "sync"
+@send external unsync: t => t = "unsync"
+
+// AudioNode
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Tone.res

@@ -0,0 +1,12 @@
+// Top-level Tone.js module functions
+open ToneJs_Types
+
+@module("tone") external start: unit => promise<unit> = "start"
+@module("tone") external now: unit => seconds = "now"
+@module("tone") external immediate: unit => seconds = "immediate"
+@module("tone") external getContext: unit => ToneJs_Context.t = "getContext"
+@module("tone") external getTransport: unit => ToneJs_Transport.t = "getTransport"
+@module("tone") external getDestination: unit => ToneJs_Destination.t = "getDestination"
+@module("tone") external loaded: unit => promise<unit> = "loaded"
+@module("tone") external supported: unit => bool = "supported"
+@module("tone") external version: string = "version"

package/src/ToneJs_Transport.res

@@ -0,0 +1,67 @@
+// Bindings for Tone.js Transport - master timing and scheduling
+open ToneJs_Types
+
+type t
+
+// Lifecycle
+@send external start: t => t = "start"
+@send external startAt: (t, ~time: time=?) => t = "start"
+@send external startAtWithOffset: (t, ~time: time=?, ~offset: transportTime=?) => t = "start"
+@send external stop: t => t = "stop"
+@send external stopAt: (t, ~time: time=?) => t = "stop"
+@send external pause: t => t = "pause"
+@send external pauseAt: (t, ~time: time=?) => t = "pause"
+@send external toggle: t => t = "toggle"
+@send external toggleAt: (t, ~time: time=?) => t = "toggle"
+@send external cancel: t => t = "cancel"
+@send external cancelAfter: (t, ~after: transportTime=?) => t = "cancel"
+@send external dispose: t => t = "dispose"
+
+// Scheduling
+@send external schedule: (t, seconds => unit, transportTime) => int = "schedule"
+@send external scheduleRepeat: (t, seconds => unit, time) => int = "scheduleRepeat"
+@send external scheduleRepeatFrom: (t, seconds => unit, time, ~startTime: transportTime=?) => int = "scheduleRepeat"
+@send external scheduleRepeatFromFor: (t, seconds => unit, time, ~startTime: transportTime=?, ~duration: time=?) => int = "scheduleRepeat"
+@send external scheduleOnce: (t, seconds => unit, transportTime) => int = "scheduleOnce"
+@send external clear: (t, int) => t = "clear"
+
+// BPM
+@get external bpm: t => ToneJs_Param.t = "bpm"
+
+// Position
+@get external position: t => string = "position"
+@set external setPosition: (t, string) => unit = "position"
+@get external seconds: t => seconds = "seconds"
+@set external setSeconds: (t, seconds) => unit = "seconds"
+@get external progress: t => normalRange = "progress"
+@get external ticks: t => ticks = "ticks"
+@set external setTicks: (t, ticks) => unit = "ticks"
+
+// Loop
+@get external loop: t => bool = "loop"
+@set external setLoop: (t, bool) => unit = "loop"
+@get external loopStart: t => time = "loopStart"
+@set external setLoopStart: (t, time) => unit = "loopStart"
+@get external loopEnd: t => time = "loopEnd"
+@set external setLoopEnd: (t, time) => unit = "loopEnd"
+@send external setLoopPoints: (t, transportTime, transportTime) => t = "setLoopPoints"
+
+// Swing
+@get external swing: t => normalRange = "swing"
+@set external setSwing: (t, normalRange) => unit = "swing"
+
+// Time signature
+@get external timeSignature: t => int = "timeSignature"
+@set external setTimeSignature: (t, int) => unit = "timeSignature"
+
+// State
+@get external state: t => playbackState = "state"
+
+// PPQ
+@get external ppq: t => int = "PPQ"
+@set external setPPQ: (t, int) => unit = "PPQ"
+
+// Timing
+@send external getTicksAtTime: (t, time) => ticks = "getTicksAtTime"
+@send external getSecondsAtTime: (t, time) => seconds = "getSecondsAtTime"
+@send external nextSubdivision: (t, time) => seconds = "nextSubdivision"

package/src/ToneJs_Tremolo.res

@@ -0,0 +1,31 @@
+// Bindings for Tone.Tremolo
+open ToneJs_Types
+
+type t
+
+type options = {
+  frequency?: frequency,
+  \"type"?: oscillatorType,
+  depth?: normalRange,
+  spread?: degrees,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "Tremolo"
+@module("tone") @new external makeWithOptions: options => t = "Tremolo"
+
+@get external frequency: t => ToneJs_Param.t = "frequency"
+@get external depth: t => ToneJs_Param.t = "depth"
+@get external getType: t => oscillatorType = "type"
+@set external setType: (t, oscillatorType) => unit = "type"
+@get external spread: t => degrees = "spread"
+@set external setSpread: (t, degrees) => unit = "spread"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external start: (t, ~time: time=?) => t = "start"
+@send external stop: (t, ~time: time=?) => t = "stop"
+@send external sync: t => t = "sync"
+@send external unsync: t => t = "unsync"
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Types.res

@@ -0,0 +1,94 @@
+// Tone.js unit types
+// All of these are represented as floats or strings in JavaScript
+
+type seconds = float
+type milliseconds = float
+type decibels = float
+type normalRange = float
+type audioRange = float
+type frequency = float
+type hertz = float
+type cents = float
+type bpm = float
+type ticks = float
+type degrees = float
+type positive = float
+type gainFactor = float
+type samples = float
+
+// Time can be a number (seconds), a string notation ("4n", "8t", "1:2:3"), or a subdivision
+type time
+type transportTime = time
+
+// Playback state
+type playbackState =
+  | @as("started") Started
+  | @as("stopped") Stopped
+  | @as("paused") Paused
+
+type basicPlaybackState =
+  | @as("started") Started
+  | @as("stopped") Stopped
+
+// Oscillator types
+type oscillatorType =
+  | @as("sine") Sine
+  | @as("square") Square
+  | @as("triangle") Triangle
+  | @as("sawtooth") Sawtooth
+  | @as("custom") Custom
+
+// Noise types
+type noiseType =
+  | @as("white") White
+  | @as("brown") Brown
+  | @as("pink") Pink
+
+// Oversampling for distortion
+type oversampleType =
+  | @as("none") None
+  | @as("2x") TwoX
+  | @as("4x") FourX
+
+// Common option types shared across modules
+type envelopeOptions = {
+  attack?: time,
+  decay?: time,
+  sustain?: normalRange,
+  release?: time,
+}
+
+type filterEnvelopeOptions = {
+  attack?: time,
+  decay?: time,
+  sustain?: normalRange,
+  release?: time,
+  baseFrequency?: frequency,
+  octaves?: positive,
+  exponent?: positive,
+}
+
+type oscillatorOptions = {\"type"?: oscillatorType}
+
+type filterOptions = {
+  \"type"?: string,
+  frequency?: frequency,
+  rolloff?: int,
+  q?: positive,
+}
+
+// Helpers to create time values
+module Time = {
+  external fromFloat: float => time = "%identity"
+  external fromString: string => time = "%identity"
+  external toFloat: time => float = "%identity"
+
+  let seconds = (s: float): time => fromFloat(s)
+  let notation = (s: string): time => fromString(s)
+}
+
+// Helpers to create frequency values
+module Frequency = {
+  let hz = (f: float): frequency => f
+  external fromNotation: string => frequency = "%identity"
+}

package/src/ToneJs_Vibrato.res

@@ -0,0 +1,25 @@
+// Bindings for Tone.Vibrato
+open ToneJs_Types
+
+type t
+
+type options = {
+  frequency?: frequency,
+  \"type"?: oscillatorType,
+  depth?: normalRange,
+  maxDelay?: seconds,
+  wet?: normalRange,
+}
+
+@module("tone") @new external make: unit => t = "Vibrato"
+@module("tone") @new external makeWithOptions: options => t = "Vibrato"
+
+@get external frequency: t => ToneJs_Param.t = "frequency"
+@get external depth: t => ToneJs_Param.t = "depth"
+@get external getType: t => oscillatorType = "type"
+@set external setType: (t, oscillatorType) => unit = "type"
+@get external wet: t => ToneJs_Param.t = "wet"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"

package/src/ToneJs_Volume.res

@@ -0,0 +1,21 @@
+// Bindings for Tone.Volume
+open ToneJs_Types
+
+type t
+
+type options = {
+  volume?: decibels,
+  mute?: bool,
+}
+
+@module("tone") @new external make: unit => t = "Volume"
+@module("tone") @new external makeWithVolume: decibels => t = "Volume"
+@module("tone") @new external makeWithOptions: options => t = "Volume"
+
+@get external volume: t => ToneJs_Param.t = "volume"
+@get external mute: t => bool = "mute"
+@set external setMute: (t, bool) => unit = "mute"
+
+@send external dispose: t => t = "dispose"
+
+external asAudioNode: t => ToneJs_AudioNode.t = "%identity"