form caption("Fonts") size(580, 600), guiMode("queue"), pluginId("fon0"), colour(240, 240, 240), typeface("CutiveMono-Regular.ttf")
rslider bounds (20, 20, 50, 50), channel("detune"), range(0, 1, 0.1, 1, 0.001), text("Detune") $KNOB1 trackerColour(184, 0, 6), colour(240, 240, 240), markerColour(255, 188, 66), markerThickness(0), trackerInsideRadius(0.75), trackerOutsideRadius(1), markerStart(0), markerEnd(0.85), outlineColour(240, 240, 240), valueTextBox(0), popupText(0), textColour(0, 0, 0)
nslider bounds(20, 90, 120, 20), channel("pitchbend"), range(0, 48, 2, 1, 1), fontColour("black"), textColour("black"), outlineColour("black"), colour(240, 240, 240)
button bounds(20, 140, 50, 20), channel("noise"), text("noise") colour:0(240, 240, 240), fontColour:0("black"), colour:1(0, 0, 0), fontColour:1(240, 240, 240), outlineColour("black"), outlineThickness(2), corners(0)
optionbutton bounds(20, 180, 50, 20) channel("wfilter"), items("noise", "white", "pink") colour:0(240, 240, 240), colour:1(240, 240, 240), outlineColour("black"), outlineThickness(2), fontColour("black"), corners(0)
-n -d
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
instr 99
endin
i99 0 10