//sin = ffunction(float sin(float), , ""); //floor = ffunction(float floor(float), , ""); PI = 3.141592653589; tablesize = 40000; samplingfreq = 44100.; time = (+(1)~_) - 1; sinwavform = time * (2 * PI)/tablesize : sin; decimal = _ <: -(floor); phase(freq) = freq / samplingfreq : mem : ( + : decimal) ~ _ : * (tablesize) : int; osc(freq) = phase(freq) : rdtable(tablesize, sinwavform); vol = 1; freq = 1000; process = osc(freq) * vol; //process = freq / samplingfreq : @(1): ( + : decimal) ~ _ : * (tablesize) : int ;