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