You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.4 KiB
61 lines
1.4 KiB
; New microcode
|
|
name "K-Noise";
|
|
copyright "Copyright (c) 2004.";
|
|
created "05/28/2009";
|
|
engine "kX";
|
|
; comment "";
|
|
guid "3ecfb8c9-1b88-48e3-9e81-63189ee521d4";
|
|
; -- generated GUID
|
|
|
|
|
|
; itramsize 0
|
|
; xtramsize 0
|
|
|
|
; code
|
|
|
|
output Out
|
|
|
|
control Colour
|
|
|
|
temp pink
|
|
temp white
|
|
temp tempout
|
|
|
|
const alpha1=0.003; ; These are 1-A
|
|
const alpha2=0.015;
|
|
const alpha3=0.05;
|
|
const alpha4=0.15;
|
|
const alpha5=0.38;
|
|
const alpha6=0.75;
|
|
|
|
const gain1=0.986366666666666; ; These are 0.1 * B / (1-A)
|
|
const gain2=0.216893333333333;
|
|
const gain3=0.096112;
|
|
const gain4=0.060386;
|
|
const gain5=0.028681578947368;
|
|
const gain6=0.034104533333333;
|
|
|
|
static state1;
|
|
static state2;
|
|
static state3;
|
|
static state4;
|
|
static state5;
|
|
static state6;
|
|
|
|
macs white,noise1,0.0,0.0
|
|
interp state1,state1,alpha1,white
|
|
interp state2,state2,alpha2,white
|
|
interp state3,state3,alpha3,white
|
|
interp state4,state4,alpha4,white
|
|
interp state5,state5,alpha5,white
|
|
interp state6,state6,alpha6,white
|
|
macs pink,0.0,state1,gain1
|
|
macs pink,pink,state2,gain2
|
|
macs pink,pink,state3,gain3
|
|
macs pink,pink,state4,gain4
|
|
macs pink,pink,state5,gain5
|
|
macs pink,pink,state6,gain6
|
|
macints pink,0.0,pink,0x5
|
|
interp out,noise2,colour,pink
|
|
|
|
end
|