85 lines
2.4 KiB
Nim
85 lines
2.4 KiB
Nim
## A FAUST standard library 2-pole lowpass filter LV2 plugin
|
|
|
|
import nymph
|
|
import faustlpf
|
|
|
|
const
|
|
PluginUri = "urn:nymph:examples:faustlpf"
|
|
|
|
type
|
|
PluginPort {.pure.} = enum
|
|
Input, Output, Frequency
|
|
|
|
FaustLPFPlugin = object
|
|
input: ptr SampleBuffer
|
|
output: ptr SampleBuffer
|
|
freq: ptr cfloat
|
|
flt: ptr faustlpf
|
|
|
|
proc NimMain() {.cdecl, importc.}
|
|
|
|
|
|
proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble;
|
|
bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]):
|
|
Lv2Handle {.cdecl.} =
|
|
try:
|
|
let plug = cast[ptr FaustLPFPlugin](createShared(FaustLPFPlugin))
|
|
plug.flt = newfaustlpf()
|
|
initfaustlpf(plug.flt, sampleRate.cint)
|
|
return cast[Lv2Handle](plug)
|
|
except OutOfMemDefect:
|
|
return nil
|
|
|
|
|
|
proc connectPort(instance: Lv2Handle; port: cuint;
|
|
dataLocation: pointer) {.cdecl.} =
|
|
let plug = cast[ptr FaustLPFPlugin](instance)
|
|
case cast[PluginPort](port)
|
|
of PluginPort.Input:
|
|
plug.input = cast[ptr SampleBuffer](dataLocation)
|
|
of PluginPort.Output:
|
|
plug.output = cast[ptr SampleBuffer](dataLocation)
|
|
of PluginPort.Frequency:
|
|
plug.freq = cast[ptr cfloat](dataLocation)
|
|
|
|
|
|
proc activate(instance: Lv2Handle) {.cdecl.} =
|
|
let plug = cast[ptr FaustLPFPlugin](instance)
|
|
instanceClearfaustlpf(plug.flt)
|
|
|
|
|
|
proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
|
|
let plug = cast[ptr FaustLPFPlugin](instance)
|
|
plug.flt.set_cutoff(plug.freq[])
|
|
computefaustlpf(plug.flt, nSamples.cint, addr plug.input, addr plug.output)
|
|
|
|
|
|
proc deactivate(instance: Lv2Handle) {.cdecl.} =
|
|
discard
|
|
|
|
|
|
proc cleanup(instance: Lv2Handle) {.cdecl.} =
|
|
let plug = cast[ptr FaustLPFPlugin](instance)
|
|
deletefaustlpf(plug.flt)
|
|
freeShared(plug)
|
|
|
|
|
|
proc extensionData(uri: cstring): pointer {.cdecl.} =
|
|
return nil
|
|
|
|
|
|
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
|
|
cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
|
|
NimMain()
|
|
|
|
if index == 0:
|
|
result = createShared(Lv2Descriptor)
|
|
result.uri = cstring(PluginUri)
|
|
result.instantiate = instantiate
|
|
result.connectPort = connectPort
|
|
result.activate = activate
|
|
result.run = run
|
|
result.deactivate = deactivate
|
|
result.cleanup = cleanup
|
|
result.extensionData = extensionData
|