aUCBLogo Demos and Tests / generate_eq_preset


to generate_eq_preset
   
in="D:/temp/right_response.raw
   
openReadBin in
   
setReader in
   
size=(FileSize in)/8
   
fa=readFloatArrayBin size
   
setReader []
   
close in
   
N0=20
   
N=N0+255
   
fa=resize lowpassfilter2 resize fa 26000 80 N

   
in="D:/temp/left_response.raw
   
openReadBin in
   
setReader in
   
size=(FileSize in)/8
   
fa2=readFloatArrayBin size
   
setReader []
   
close in
   
fa2=resize lowpassfilter2 resize fa2 26000 80 N
   
fa=fa+fa2
   
fa=(reciprocal fa/(max fa)+0.001)/50
   
fa=saturateAbove fa
;   fa=fa-(max fa)
;   fa=fa/(abs (min fa))*70
;   ia=Items N0 N UInt8Array fa+70+32
   
ia=Items N0 N UInt8Array fa*100+32+6
;stop   
   
out="C:/Programme/Winamp/Plugins/preset.neq
   
openWriteBin out
   
setWriter out
   
typeBin "[PRESETS]

   
typebin "meineDRC=
   
typebin UInt8Array ia
   
(print)
   
setWriter []
   
close out
end