-+K -+P sr = 44100 kr = 441 ksmps = 100 nchnls = 1 FLpanel "This Panel contains VU-meter",300,100 gk1,gih1 FLslider "VU-meter", 0,32000,0,1, -1, 250,30, 30,30 FLsetColor2 50, 50, 255, gih1 FLpanel_end FLrun ga1 init 0 instr 1 kenv linsegr 0,.5,1,.5,.5,.2,0 ifreq cpsmidi a1 oscili 10000*kenv, ifreq, 1 ga1 = ga1+a1 endin instr 2 out ga1 ktrig metro 15 kval max_k ga1, ktrig, 0 FLsetVal ktrig, kval, gih1 ga1 = 0 endin f1 0 1024 10 1 i2 0 3600 f0 3600 e