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 1 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