--track0:ΈΑ•‘¬“x,0,200,10,1 --track1:ΈΑ•”δ—¦,0,500,250,1 --track2:ΈΑΚίΈ‘¬,0,1000,100,1 --track3:Šξ€’l,0,2048,120,1 --check0:Guid ONΜOFF,0 --dialog:‰Ή•ͺŠ„”,local div=40;Buf•β³,local bcor=20;–³‰ΉŽžŠΤˆ—,local diftc=0.30;‘File”,local fileN=5;‰ŠϊFile,local file="F:\\temp0\\M002a.PNG";File––”φ‰pΜ”/chk,chk1=1;ΈΑ•ΐ²Μί/chk,chk2=0; -------------------------------------set local t0=math.floor(obj.track0) local t1=math.floor(obj.track1) local t2=math.floor(obj.track2)/100 local t3=math.floor(obj.track3) local ogvzm=obj.getvalue("zoom")/100 if(ogvzm==0)then ogvzm=0.1 end local sw,sh=obj.screen_w*ogvzm,obj.screen_h*ogvzm ------------------------------------ buf={} local abt="spectrum" local n,rate=obj.getaudio(buf,"audiobuffer",abt,div) -------------------------------------script obj.setoption("drawtarget","tempbuffer",sw,sh) if(obj.check0)then obj.load("figure","ŽlŠpŒ`",0x00ffff,200) local x0,y0,z0=-sw/2,-sh/144+sh/2-t3,0 local x1,y1,z1=sw/2,y0,0 local x2,y2,z2=x1,sh/144+sh/2-t3,0 local x3,y3,z3=x0,y2,0 obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3) else end if(obj.frame==0)then time0,time1=0,0 idx2=0 end local fgs0,fgs1=sh/36,2 local idx=0 for i=1,div do bv=math.floor(buf[i]/bcor) dx=(i-1)*fgs0-div*fgs0/2+fgs0/2 dy=-bv+sh/2-fgs0 if(obj.check0)then obj.setfont("",fgs0,0,0xffffff,0x000000) output=i obj.load("text",output) obj.draw(dx,dy) obj.setfont("",fgs0,0,0xff0000,0x000000) output=bv obj.load("text",output) obj.draw(dx,dy-fgs0) else end if(bv+fgs0>t3)then if(idx==0)then idx=idx+1 idx2=idx2+1 time0=obj.time else end else if(idx==0)then time1=obj.time end end end local dift=math.floor((time1-time0)*100)/100 if(dift>diftc)then idx2=0 t0=0 end local spd=t2 local lastS if(chk1==1)then if(fileN>26)then fileN=26 end lastS=string.char(97+math.floor(idx2*spd)%fileN) else if(fileN>10)then fileN=10 end lastS=math.floor(idx2*spd)%fileN end local fLen=string.len(file) local fName=string.sub(file,1,fLen-5) local kaku=string.sub(file,fLen-3,fLen) if(obj.check0)then obj.setfont("",sh/24,0,0xff0000,0x000000) output="Value:"..(math.floor(idx2*spd)%fileN).."/"..dift.."/"..fName..lastS..kaku obj.load("text",output) obj.draw(0,-sh/2+fgs0) else end local f=fName..lastS..kaku obj.load("image",f) obj.draw() obj.load("tempbuffer") local t1=obj.rand(0,t1,sd,obj.time*t0)/1000 local as if(chk2==0)then else -- as=math.sin(math.rad(obj.time*t0))*t1 as=(math.sin(math.rad(obj.time*t0))+1)*t1 end if(idx2==0)then as=0 end obj.aspect=as --[[http://madeinpc.blog50.fc2.com/]]--