// Octave-band Spectrum Analyzer and CPU Heater, by PRC, April 1-epsilon 2008
BPF b[10];
Gain g[10];
OnePole p[10];

MAUI_View myWinder;
myWinder.size(230.0,160.0);
MAUI_Button disp[10];

2.0 => adc.gain;	// global gain control

for (0=>int i;i<10;1+=>i)	{
    adc => b[i] => g[i] => p[i] => blackhole;
    b[i] => g[i];		// make a
    3 => g[i].op;		// squarer
    0.999 => p[i].pole; // and smoothing filter
    2.0 => b[i].Q;
    20.0 * Math.pow(2.0,i) => b[i].freq; // octave bands
	disp[i].size(56.0,30.0);
	disp[i].position(20.0*i,80.0);
    myWinder.addElement(disp[i]);
}

myWinder.display();

float temp;

while (1)	{
    0.020 :: second => now;
	for (0=>int i;i<10;1+=>i)	{
		100.0 * (0.5 * (Math.log10(p[i].last() + 0.01) + 2.0)) => temp;
		disp[i].size(56.0,temp+42.0);
		disp[i].position(20.0*i,100.0-temp);
		myWinder.addElement(disp[i]);
	}
}