If only Blitz had a blur...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|641\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> If only Blitz had a blur...
Thu, 10 Apr 2008, 07:49
Jayenkai	Or "The topic of kick-ass swirly stuff!" Half based on Spinal's "Sine wave" topic, and half because I was chatting to Yo Wazzup about desktops, earlier! Global scrw=800 Global scrh=600 Global rscrw,rscrh Global CanDrawLocked=1 ; Switch off if you see nothing! Global effect=0 ; 0=standard, 1=scaled, 2=cloned Global suck=2 ; 0=nothing, 1=pinch, 2=punch Global Trails=100 ; 1->?! Global spd1#=4 ; Move Global spd2#=2 ; Trailmove Global spd3#=12 ; Color change Global spd4=2 ; Suckage! SeedRnd MilliSecs() If effect=2 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh scrw=scrw/2 scrh=scrh/2 EndIf If effect=1 Graphics scrw,scrh,32,2 Graphics scrw/3,scrh/3,32,3 scrw=scrw/3 scrh=scrh/3 rscrw=scrw:rscrh=scrh EndIf If effect=0 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh EndIf SetBuffer BackBuffer() Dim trail#(Trails+1,4) x1=Rand(0,scrw):y1=Rand(0,scrh) x2=Rand(0,scrw):y2=Rand(0,scrh) For n=1 To Trails+1 trail(n,1)=x1 trail(n,2)=y1 trail(n,3)=x2 trail(n,4)=y2 Next gx1#=Rnd(-2,2):If Abs(gx1)<.25 Then gx1=.25 gy1#=Rnd(-2,2):If Abs(gy1)<.25 Then gy1=.25 gx2#=Rnd(-2,2):If Abs(gx2)<.25 Then gx2=.25 gy2#=Rnd(-2,2):If Abs(gy2)<.25 Then gy2=.25 Global r#,g#,b# ; color Global rg#,gg#,bg# ; color Go!! r=Rand(255):b=Rand(255):g=Rand(255) rg=Rnd(0.1,1.5):gg=Rnd(0.1,1.5):bg=Rnd(0.1,1.5) Repeat ;Cls ; Sort out colors r=r+rgspd3 If r<0 Then r=0:rg=Rnd(0.1,1.5) If r>255 Then r=255:rg=-Rnd(0.1,1.5) g=g+ggspd3 If g<0 Then g=0:gg=Rnd(0.1,1.5) If g>255 Then g=255:gg=-Rnd(0.1,1.5) b=b+bgspd3 If b<0 Then b=0:bg=Rnd(0.1,1.5) If b>255 Then b=255:bg=-Rnd(0.1,1.5) If CanDrawLocked=1 Then LockBuffer BackBuffer() For n=1 To Trails ur=r+n/4:If ur>255 Then ur=255 ug=g+n/4:If ug>255 Then ug=255 ub=b+n/4:If ub>255 Then ub=255 ur=(rn)/trails ug=(gn)/trails ub=(bn)/trails Color ur,ug,ub Line trail(n,1),trail(n,2),trail(n,3),trail(n,4) If effect=2 Line (scrw2)-trail(n,1),trail(n,2),(scrw2)-trail(n,3),trail(n,4) Line trail(n,1),(scrh2)-trail(n,2),trail(n,3),(scrh2)-trail(n,4) Line (scrw2)-trail(n,1),(scrh2)-trail(n,2),(scrw2)-trail(n,3),(scrh2)-trail(n,4) EndIf trail(n,1)=trail(n+1,1):trail(n,2)=trail(n+1,2):trail(n,3)=trail(n+1,3):trail(n,4)=trail(n+1,4) trail(n,1)=trail(n,1)+Sin(n+trail(n,4))spd2 trail(n,2)=trail(n,2)-Cos(n+trail(n,3))spd2 trail(n,3)=trail(n,3)-Sin(n+trail(n,2))spd2 trail(n,4)=trail(n,4)+Cos(n+trail(n,1))spd2 Next If CanDrawLocked=1 Then UnlockBuffer BackBuffer() trail(n,1)=trail(n,1)+gx1spd1 trail(n,2)=trail(n,2)+gy1spd1 trail(n,3)=trail(n,3)+gx2spd1 trail(n,4)=trail(n,4)+gy2spd1 If trail(n,1)<0 Then gx1#=Rnd(0.25,2) If trail(n,1)>scrw Then gx1#=-Rnd(0.25,2) If trail(n,2)<0 Then gy1#=Rnd(0.25,2) If trail(n,2)>scrh Then gy1#=-Rnd(0.25,2) If trail(n,3)<0 Then gx2#=Rnd(0.25,2) If trail(n,3)>scrw Then gx2#=-Rnd(0.25,2) If trail(n,4)<0 Then gy2#=Rnd(0.25,2) If trail(n,4)>scrh Then gy2#=-Rnd(0.25,2) If suck=1 df#=360/32 w=(rscrw/2)-spd4 h=(rscrh/2)-spd4 x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 CopyRect x1,y1,w,h,x2,y2 x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x1,y1,w,h,x2,y2 x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 CopyRect x1,y1,w,h,x2,y2 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x1,y1,w,h,x2,y2 For n=1 To 32 x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) y2=y1-Cos(ndf)spd4 CopyRect x1,y1,w,h,x2,y2 Next EndIf If suck=2 df#=360/32 w=(rscrw/2)-spd4 h=(rscrh/2)-spd4 x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 For n=1 To 32 x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) y2=y1-Cos(ndf)spd4 CopyRect x2,y2,w,h,x1,y1 Next EndIf Flip Until KeyDown(1) --v Play about with those globals at the top, and see what you can come up with... (and/or fiddle with the rest of it!) -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 09:15
Jayenkai	If you have a good system, turn on Debugmode (to see the percentage!!), wait a bit, hit space, and then wait wait wait!!! Global scrw=800 Global scrh=600 ; change to the res you desire.. Global rscrw,rscrh Global CanDrawLocked=1 ; Switch off if you see nothing! Global effect=2 ; 0=standard, 1=scaled, 2=cloned Global suck=2 ; 0=nothing, 1=pinch, 2=punch Global Trails=100 ; 1->?! Global spd1#=4 ; Move Global spd2#=2 ; Trailmove Global spd3#=12 ; Color change Global spd4=2 ; Suckage! Global BufferLayers=4 ; How many layers will be used in the blending Global BufferSpeed=12 ; How long between each frame grab, during blending. Global Blurry=1 ; <-- only turn this on if you have a good system!! ; It's ok without, just not as blurry! SeedRnd MilliSecs() If effect=2 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh scrw=scrw/2 scrh=scrh/2 EndIf If effect=1 Graphics scrw,scrh,32,2 Graphics scrw/3,scrh/3,32,3 scrw=scrw/3 scrh=scrh/3 rscrw=scrw:rscrh=scrh EndIf If effect=0 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh EndIf SetBuffer BackBuffer() Dim trail#(Trails+1,4) x1=Rand(0,scrw):y1=Rand(0,scrh) x2=Rand(0,scrw):y2=Rand(0,scrh) For n=1 To Trails+1 trail(n,1)=x1 trail(n,2)=y1 trail(n,3)=x2 trail(n,4)=y2 Next gx1#=Rnd(-2,2):If Abs(gx1)<.25 Then gx1=.25 gy1#=Rnd(-2,2):If Abs(gy1)<.25 Then gy1=.25 gx2#=Rnd(-2,2):If Abs(gx2)<.25 Then gx2=.25 gy2#=Rnd(-2,2):If Abs(gy2)<.25 Then gy2=.25 Global r#,g#,b# ; color Global rg#,gg#,bg# ; color Go!! r=Rand(255):b=Rand(255):g=Rand(255) rg=Rnd(0.1,1.5):gg=Rnd(0.1,1.5):bg=Rnd(0.1,1.5) Dim ibuf(BufferLayers) ; Cooool! For n=1 To BufferLayers:ibuf(n)=CreateImage(rscrw,rscrh):Next ubuf=1 Repeat ;Cls ; Sort out colors r=r+rgspd3 If r<0 Then r=0:rg=Rnd(0.1,1.5) If r>255 Then r=255:rg=-Rnd(0.1,1.5) g=g+ggspd3 If g<0 Then g=0:gg=Rnd(0.1,1.5) If g>255 Then g=255:gg=-Rnd(0.1,1.5) b=b+bgspd3 If b<0 Then b=0:bg=Rnd(0.1,1.5) If b>255 Then b=255:bg=-Rnd(0.1,1.5) If CanDrawLocked=1 Then LockBuffer BackBuffer() For n=1 To Trails ur=r+n/4:If ur>255 Then ur=255 ug=g+n/4:If ug>255 Then ug=255 ub=b+n/4:If ub>255 Then ub=255 ur=(rn)/trails ug=(gn)/trails ub=(bn)/trails Color ur,ug,ub Line trail(n,1),trail(n,2),trail(n,3),trail(n,4) If effect=2 Line (scrw2)-trail(n,1),trail(n,2),(scrw2)-trail(n,3),trail(n,4) Line trail(n,1),(scrh2)-trail(n,2),trail(n,3),(scrh2)-trail(n,4) Line (scrw2)-trail(n,1),(scrh2)-trail(n,2),(scrw2)-trail(n,3),(scrh2)-trail(n,4) EndIf trail(n,1)=trail(n+1,1):trail(n,2)=trail(n+1,2):trail(n,3)=trail(n+1,3):trail(n,4)=trail(n+1,4) trail(n,1)=trail(n,1)+Sin(n+trail(n,4))spd2 trail(n,2)=trail(n,2)-Cos(n+trail(n,3))spd2 trail(n,3)=trail(n,3)-Sin(n+trail(n,2))spd2 trail(n,4)=trail(n,4)+Cos(n+trail(n,1))spd2 Next If CanDrawLocked=1 Then UnlockBuffer BackBuffer() trail(n,1)=trail(n,1)+gx1spd1 trail(n,2)=trail(n,2)+gy1spd1 trail(n,3)=trail(n,3)+gx2spd1 trail(n,4)=trail(n,4)+gy2spd1 If trail(n,1)<0 Then gx1#=Rnd(0.25,2) If trail(n,1)>scrw Then gx1#=-Rnd(0.25,2) If trail(n,2)<0 Then gy1#=Rnd(0.25,2) If trail(n,2)>scrh Then gy1#=-Rnd(0.25,2) If trail(n,3)<0 Then gx2#=Rnd(0.25,2) If trail(n,3)>scrw Then gx2#=-Rnd(0.25,2) If trail(n,4)<0 Then gy2#=Rnd(0.25,2) If trail(n,4)>scrh Then gy2#=-Rnd(0.25,2) If suck=1 df#=360/32 w=(rscrw/2)-spd4 h=(rscrh/2)-spd4 x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 CopyRect x1,y1,w,h,x2,y2 x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x1,y1,w,h,x2,y2 x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 CopyRect x1,y1,w,h,x2,y2 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x1,y1,w,h,x2,y2 For n=1 To 32 x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) y2=y1-Cos(ndf)spd4 CopyRect x1,y1,w,h,x2,y2 Next EndIf If suck=2 df#=360/32 w=(rscrw/2)-spd4 h=(rscrh/2)-spd4 x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 For n=1 To 32 x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) y2=y1-Cos(ndf)spd4 CopyRect x2,y2,w,h,x1,y1 Next EndIf If KeyDown(57) And save=0 Then save=BufferLayersBufferSpeed:ubuf=1 If save>0 save=save-1 If (save Mod BufferSpeed)=1 CopyRect 0,0,rscrw,rscrh,0,0,BackBuffer(),ImageBuffer(ibuf(ubuf)) ubuf=ubuf+1 DebugLog ubuf EndIf If ubuf=BufferLayers Then Gosub Well_Buffer_Me:save=1:ubuf=1 EndIf Flip Until KeyDown(1) End .Well_Buffer_Me For n=1 To BufferLayers:LockBuffer ImageBuffer(ibuf(n)):Next LockBuffer BackBuffer() For x=0 To rscrw-1 For y=0 To rscrh-1 outr=0:outg=0:outb=0 For n=1 To BufferLayers ; Remove the next line, if you wish. bluruse=blurry:If n=BufferLayers Then bluruse=0 ; For last buffer, don't do blur! ; Maybe better with.. Maybe better without.. Who knows!! Select bluruse Case 1 d#=Float(Float(n+1)/Float(BufferLayers))/2 ox=x:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) d=d/2 If x>1 Then ox=x-2:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) If y>1 Then ox=x:oy=y-2:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) ; You might even turn these back on.. Not really needed, goes a little slower, just makes things a little neater. ; If x<rscrw-2 Then ox=x+2:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) ; If y<rscrh-2 Then ox=x:oy=y+2:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) Case 0 d#=Float(Float(n+1)/Float(BufferLayers)) ox=x:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) End Select Next If outr>255 Then outr=255 If outg>255 Then outg=255 If outb>255 Then outb=255 argb=(255 Shr 24)+(outr Shl 16)+(outg Shl 8)+outb WritePixelFast x,y,argb,BackBuffer() Next If x Mod 25=0 Then DebugLog "Working : "+Right$("000"+((x100)/(rscrw-1)),3)+"%" Next UnlockBuffer BackBuffer() For n=1 To BufferLayers:UnlockBuffer ImageBuffer(ibuf(n)):Next Delay 100 Flip Repeat:Until KeyDown(57)=0 Repeat:Until KeyDown(57) Repeat:Until KeyDown(57)=0 Return --v -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 10:47
JL235	Looks very nice, and it's yet another effect I'll probably steal and then mess about with and use for my own purposes. I was thinking maybe doing the line flying stuff as small enemies. But could you write some sort of explination of what is actually going on? It's just a big block of maths and drawing.
Thu, 10 Apr 2008, 10:54
Jayenkai	And wtf's up with a block of maths!?!? I'll explain it all later, gotta go to work! -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 16:25
Jayenkai	Should be easier to follow, now.. Global scrw=800 Global scrh=600 ; change to the res you desire.. Global rscrw,rscrh Global CanDrawLocked=1 ; Switch off if you see nothing! Global effect=2 ; 0=standard, 1=scaled, 2=cloned, 3=cloned v2 Global suck=2 ; 0=nothing, 1=pinch, 2=punch Global Trails=20 ; 1->?! Global spd1#=4 ; Move Global spd2#=3 ; Trailmove Global spd3#=20 ; Color change Global spd4=1 ; Suckage! Global BufferLayers=6 ; How many layers will be used in the blending Global BufferSpeed=60 ; How long between each frame grab, during blending. Global Blurry=1 ; <-- only turn this on if you have a good system!! ; It's ok without, just not as blurry! SeedRnd MilliSecs() ; These are our screen resolution thingums.. If effect=2 Or effect=3 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh scrw=scrw/2 ; If we're on the "Cloned" thing, we'll only want to use 1/2 the screen for our effect. scrh=scrh/2 ; That then copies to everywhere else.. EndIf If effect=1 Graphics scrw,scrh,32,2 Graphics scrw/3,scrh/3,32,3 scrw=scrw/3 ; If we use scaled, we only end up with a 1/3rd size image. scrh=scrh/3 rscrw=scrw:rscrh=scrh EndIf If effect=0 Graphics scrw,scrh,32,2 rscrw=scrw:rscrh=scrh EndIf ; And plain is plain.. SetBuffer BackBuffer() ; Trail will be our generic trail effect. ; Set x,y,x2 And y2 at Last Trail, then copy that down the line. ; In this case, though, we also move each point a bit at a time, just for that added effect. Dim trail#(Trails+1,4) x1=Rand(0,scrw):y1=Rand(0,scrh) x2=Rand(0,scrw):y2=Rand(0,scrh) For n=1 To Trails+1 trail(n,1)=x1 trail(n,2)=y1 trail(n,3)=x2 trail(n,4)=y2 ; Set them all at the start point Next gx1#=Rnd(-2,2):If Abs(gx1)<.25 Then gx1=.25 ; gx = GoX gy1#=Rnd(-2,2):If Abs(gy1)<.25 Then gy1=.25 ; and so on.. gx2#=Rnd(-2,2):If Abs(gx2)<.25 Then gx2=.25 gy2#=Rnd(-2,2):If Abs(gy2)<.25 Then gy2=.25 Global r#,g#,b# ; color Global rg#,gg#,bg# ; color Go!! ;Note, here I used Color Go, whereas a minute ago I used Go X.. That's reversed! ;That's because I nicked this bit from that Sine Anim I did the other day!! r=Rand(255):b=Rand(255):g=Rand(255) rg=Rnd(0.1,1.5):gg=Rnd(0.1,1.5):bg=Rnd(0.1,1.5) Dim ibuf(BufferLayers) ; These are our image buffers.. We'll use these for blending later.. For n=1 To BufferLayers:ibuf(n)=CreateImage(rscrw,rscrh):Next ubuf=1 Repeat ;Cls ; Sort out colors r=r+rgspd3 If r<0 Then r=0:rg=Rnd(0.1,1.5) If r>255 Then r=255:rg=-Rnd(0.1,1.5) g=g+ggspd3 If g<0 Then g=0:gg=Rnd(0.1,1.5) If g>255 Then g=255:gg=-Rnd(0.1,1.5) b=b+bgspd3 If b<0 Then b=0:bg=Rnd(0.1,1.5) If b>255 Then b=255:bg=-Rnd(0.1,1.5) ; Lock buffer If CanDrawLocked=1 Then LockBuffer BackBuffer() For n=1 To Trails ; I removed this, it wasn't doing anything! ;ur=r+n/4:If ur>255 Then ur=255 ;ug=g+n/4:If ug>255 Then ug=255 ;ub=b+n/4:If ub>255 Then ub=255 ; Make the progressively lighter.. ur=(rn)/trails ug=(gn)/trails ub=(bn)/trails ; This bit draws it! Color ur,ug,ub Line trail(n,1),trail(n,2),trail(n,3),trail(n,4) ; This bit copies it.. If effect=2 Line (scrw2)-trail(n,1),trail(n,2),(scrw2)-trail(n,3),trail(n,4) Line trail(n,1),(scrh2)-trail(n,2),trail(n,3),(scrh2)-trail(n,4) Line (scrw2)-trail(n,1),(scrh2)-trail(n,2),(scrw2)-trail(n,3),(scrh2)-trail(n,4) EndIf If effect=3 Line (scrw)+trail(n,1),trail(n,2),(scrw)+trail(n,3),trail(n,4) Line trail(n,1),(scrh)+trail(n,2),trail(n,3),(scrh)+trail(n,4) Line (scrw)+trail(n,1),(scrh)+trail(n,2),(scrw)+trail(n,3),(scrh)+trail(n,4) EndIf ; Shift the trail down the line.. trail(n,1)=trail(n+1,1):trail(n,2)=trail(n+1,2):trail(n,3)=trail(n+1,3):trail(n,4)=trail(n+1,4) ; And wiggle it a bit.. trail(n,1)=trail(n,1)+Sin(n+trail(n,4))spd2 trail(n,2)=trail(n,2)-Cos(n+trail(n,3))spd2 trail(n,3)=trail(n,3)-Sin(n+trail(n,2))spd2 trail(n,4)=trail(n,4)+Cos(n+trail(n,1))spd2 Next ;Unlock Buffer If CanDrawLocked=1 Then UnlockBuffer BackBuffer() ; Set the last point of the trail trail(n,1)=trail(n,1)+gx1spd1 trail(n,2)=trail(n,2)+gy1spd1 trail(n,3)=trail(n,3)+gx2spd1 trail(n,4)=trail(n,4)+gy2spd1 ; And check for screen boundaries. If trail(n,1)<0 Then gx1#=Rnd(0.25,2) If trail(n,1)>scrw Then gx1#=-Rnd(0.25,2) If trail(n,2)<0 Then gy1#=Rnd(0.25,2) If trail(n,2)>scrh Then gy1#=-Rnd(0.25,2) If trail(n,3)<0 Then gx2#=Rnd(0.25,2) If trail(n,3)>scrw Then gx2#=-Rnd(0.25,2) If trail(n,4)<0 Then gy2#=Rnd(0.25,2) If trail(n,4)>scrh Then gy2#=-Rnd(0.25,2) ; This sucks! If suck=1 df#=360/32 ; Df = Difference between the steps of a circle.. We'll get to that in a sec.. w=(rscrw/2)-spd4 h=(rscrh/2)-spd4 ; Width and height of boxes. They should cover just under 1/4 the screen.. x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 ; The top left corner CopyRect x1,y1,w,h,x2,y2 ; goes down and right a bit.. x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 ; The top right CopyRect x1,y1,w,h,x2,y2 ; goes down and left a bit.. x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 ; and so on for the other 2 1/4s of the screen. CopyRect x1,y1,w,h,x2,y2 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x1,y1,w,h,x2,y2 For n=1 To 32 ; This is that 32 from a minute ago! We're doing 32 steps of a circle.. x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) ; Same as those above, this finds a nice 1/4 that represents y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) ; part of a circular area within the screen. y2=y1-Cos(ndf)spd4 ; Push them all in, and we get a neat pinching effect. CopyRect x1,y1,w,h,x2,y2 Next EndIf If suck=2 ; This blows!! df#=360/32 ; Everything below is pretty much the same as the sucking w=(rscrw/2)-spd4 ; Except where we copied from A to B, we instead copy it from B to A, to give the opposite effect.. h=(rscrh/2)-spd4 x1=0:x2=x1+spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=0:x2=x1+spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=0:y2=y1+spd42 CopyRect x2,y2,w,h,x1,y1 x1=(rscrw/2):x2=x1-spd42:y1=(rscrh/2):y2=y1-spd42 CopyRect x2,y2,w,h,x1,y1 For n=1 To 32 x1=(rscrw/4)-(Sin(ndf)(rscrw/4)) x2=x1+(Sin(ndf)spd4) y1=(rscrh/4)+(Cos(ndf)(rscrh/4)) y2=y1-Cos(ndf)spd4 CopyRect x2,y2,w,h,x1,y1 Next ; Sorted! EndIf ; I'd originally got it to save plain images, hence the variable name Save... If KeyDown(57) And save=0 Then save=BufferLayersBufferSpeed:ubuf=1 ; But now, this grabs our buffers. If save>0 ; Save!!! save=save-1 If (save Mod BufferSpeed)=1 ; Grab a buffer every so often. CopyRect 0,0,rscrw,rscrh,0,0,BackBuffer(),ImageBuffer(ibuf(ubuf)) ; <- like so DebugLog ubuf ubuf=ubuf+1 EndIf If ubuf=BufferLayers+1 Then Gosub Well_Buffer_Me:save=1:ubuf=1 ; Then gosub Well Buffer Me!! EndIf Flip Until KeyDown(1) ; Nothing happens here.. End ; And then it ends.. .Well_Buffer_Me For n=1 To BufferLayers:LockBuffer ImageBuffer(ibuf(n)):Next LockBuffer BackBuffer() ; Lock everything. For x=0 To rscrw-1 For y=0 To rscrh-1 outr=0:outg=0:outb=0 For n=1 To BufferLayers bluruse=blurry ; Remove if you like.. If n=BufferLayers Then bluruse=0 ; Makes the top layer clearer.. outr2=0:outg2=0:outb2=0 ; Newly added! for averaging! Select bluruse Case 1 d#=Float(Float(n+1)/Float(BufferLayers)) ; D is low for the lower layers, and high for the high layers. ox=x:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr2=outr2+((( inp And $FF0000 ) Shr 16)d):outg2=outg2+((( inp And $00FF00 ) Shr 8)d):outb2=outb2+((( inp And $0000FF ) Shr 0)d) ; Read the pixel X,Y, pluck it's colours, and multiply them by D. ; Next, read the 4 adjacent pixels, in a + style.. If x>0 Then ox=x-1:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr2=outr2+((( inp And $FF0000 ) Shr 16)d):outg2=outg2+((( inp And $00FF00 ) Shr 8)d):outb2=outb2+((( inp And $0000FF ) Shr 0)d) If y>0 Then ox=x:oy=y-1:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr2=outr2+((( inp And $FF0000 ) Shr 16)d):outg2=outg2+((( inp And $00FF00 ) Shr 8)d):outb2=outb2+((( inp And $0000FF ) Shr 0)d) If x<rscrw-1 Then ox=x+1:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr2=outr2+((( inp And $FF0000 ) Shr 16)d):outg2=outg2+((( inp And $00FF00 ) Shr 8)d):outb2=outb2+((( inp And $0000FF ) Shr 0)d) If y<rscrh-1 Then ox=x:oy=y+1:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr2=outr2+((( inp And $FF0000 ) Shr 16)d):outg2=outg2+((( inp And $00FF00 ) Shr 8)d):outb2=outb2+((( inp And $0000FF ) Shr 0)d) ; Get their averages, and add them to the total. outr=outr+outr2/5 outg=outg+outg2/5 outb=outb+outb2/5 ; We do this for all the same pixels of all the layers. Case 0 ; Or alternatively, just pluck the single pixel, and add it's color using the same premise as above. d#=Float(Float(n+1)/Float(BufferLayers)) ox=x:oy=y:inp=ReadPixelFast(ox,oy,ImageBuffer(ibuf(n))):outr=outr+((( inp And $FF0000 ) Shr 16)d):outg=outg+((( inp And $00FF00 ) Shr 8)d):outb=outb+((( inp And $0000FF ) Shr 0)d) End Select Next ; Check we've not gone overboard.. If outr>255 Then outr=255 If outg>255 Then outg=255 If outb>255 Then outb=255 ; Then shove that colored pixel back into our backbuffer. argb=(255 Shr 24)+(outr Shl 16)+(outg Shl 8)+outb WritePixelFast x,y,argb,BackBuffer() ; Repeat for every pixel on the screen, taking sodding ages to do so... Next If x Mod 25=0 Then DebugLog "Working : "+Right$("000"+((x100)/(rscrw-1)),3)+"%" Next ; And we're all blended. ; Luvely stuff.. UnlockBuffer BackBuffer() For n=1 To BufferLayers:UnlockBuffer ImageBuffer(ibuf(n)):Next ; unlock, pause for a sec.. Delay 100 ; Show it.. Flip ; Done! Repeat:Until KeyDown(57)=0 Repeat:Until KeyDown(57) Repeat:Until KeyDown(57)=0 Return --v -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 17:15
spinal	I did some blurry things a while ago, I'll see if I can find them later, I do remember it being super slow though. -=-=- Check out my excellent homepage!
Wed, 23 Apr 2008, 18:43
spinal	Global RESW% = 640 Global RESH% = 480 Global hsize%=640 Global vsize%=480 Graphics RESW,RESH,16,2 test_image=CreateImage(hsize,vsize) MaskImage test_image,255,0,255 SetBuffer ImageBuffer(test_image) Global x1,x2,y1,y2,c1x,c1y,c2x,c2y,dx1,dx2,dy1,dy2,cdx1,cdx2,cdy1,cdy2 r=255 setup_curve() While Not KeyHit(1) Color 0,0,0 Rect 0,0,hsize,vsize,0 r=r+dr:g=g+dg:b=b+db If r=tr Then tr=Rand(0,255) If g=tg Then tg=Rand(0,255) If b=tb Then tb=Rand(0,255) If r>tr Then dr=-1 Else dr=1 If g>tg Then dg=-1 Else dg=1 If b>tb Then db=-1 Else db=1 Color r,g,b DrawBezier x1, y1, x2, y2, c1x, c1y, c2x, c2y x1=x1+dx1: If x1<0 Or x1>hsize Then dx1=-dx1 y1=y1+dy1: If y1<0 Or y1>vsize Then dy1=-dy1 x2=x2+dx2: If x2<0 Or x2>hsize Then dx2=-dx2 y2=y2+dy2: If y2<0 Or y2>vsize Then dy2=-dy2 c1x=c1x+cdx1: If c1x<0 Or c1x>hsize Then cdx1=-cdx1 c1y=c1y+cdy1: If c1y<0 Or c1y>vsize Then cdy1=-cdy1 c2x=c2x+cdx2: If c2x<0 Or c2x>hsize Then cdx2=-cdx2 c2y=c2y+cdy2: If c2y<0 Or c2y>vsize Then cdy2=-cdy2 BlurScreen(0,0,RESW%,RESH%) SetBuffer FrontBuffer() DrawImage test_image,0,0 SetBuffer ImageBuffer(test_image) Wend End Function BlurScreen(xx1,yy1,RESW,RESH) Local screen%[640480] Local x%,y%,pos%,rgb% Local red%,green%,blue% LockBuffer For y = yy1 To RESH - 1 For x = xx1 To RESW - 1 screen[pos] = ReadPixelFast(x,y) pos = pos + 1 Next Next pos = RESW For y = yy1+1 To RESH - 2 pos = pos + 1 For x = xx1+1 To RESW - 2 ; Center rgb = screen[pos] red = (rgb Shr 16 And $FF) Shl 2 green = (rgb Shr 8 And $FF) Shl 2 blue = (rgb And $FF) Shl 2 ; Up rgb = screen[pos - RESW] red = red + (rgb Shr 16 And $FF) green = green + (rgb Shr 8 And $FF) blue = blue + (rgb And $FF) ; Down rgb = screen[pos + RESW] red = red + (rgb Shr 16 And $FF) green = green + (rgb Shr 8 And $FF) blue = blue + (rgb And $FF) ; Left rgb = screen[pos - 1] red = red + (rgb Shr 16 And $FF) green = green + (rgb Shr 8 And $FF) blue = blue + (rgb And $FF) ; Right rgb = screen[pos + 1] red = red + (rgb Shr 16 And $FF) green = green + (rgb Shr 8 And $FF) blue = blue + (rgb And $FF) WritePixelFast x,y,(red Shr 3 Shl 16) Or (green Shr 3 Shl 8) Or (blue Shr 3) pos = pos + 1 Next pos = pos + 1 Next UnlockBuffer End Function Function DrawBezier (x1, y1, x2, y2, c1x, c1y, c2x, c2y) x = x1 y = y1 cx = 3 (c1x - x1) bx = 3 * (c2x - c1x) - cx ax = x2 - x1 - cx - bx cy# = 3 * (c1y - y1) by# = 3 * (c2y - c1y) - cy ay# = y2 - y1 - cy - by Plot x, y ox=x:oy=y For t# = 0 To 1 Step .05 x = ((ax * t# + bx) * t# + cx) * t# + x1 y = ((ay * t# + by) * t# + cy) * t# + y1 If x<min_x Then min_x=x If y<min_y Then min_y=y If x>max_x Then max_x=x If y>max_y Then max_y=y ; Color t#200,255-(t#200),255 Line ox,oy,x,y ox=x:oy=y Next End Function Function setup_curve() x1 = Rand(1,hsize) y1 = Rand(1,vsize) x2 = Rand(1,hsize) y2 = Rand(1,vsize) c1x = Rand(1,hsize) c1y = Rand(1,vsize) c2x = Rand(1,hsize) c2y = Rand(1,vsize) t=Rand(-3,2):If t>=0 Then t=t+1 dx1=t: t=Rand(-1,0):If t>=0 Then t=t+1 dy1=t: t=Rand(-1,0):If t>=0 Then t=t+1 dx2=t: t=Rand(-1,0):If t>=0 Then t=t+1 dy2=t: t=Rand(-1,0):If t>=0 Then t=t+1 cdx1=t:t=Rand(-1,0):If t>=0 Then t=t+1 cdy1=t:t=Rand(-1,0):If t>=0 Then t=t+1 cdx2=t:t=Rand(-1,0):If t>=0 Then t=t+1 cdy2=t End Function --v fount it. -=-=- Check out my excellent homepage!
Thu, 24 Apr 2008, 04:20
Yo! Wazzup?	As I was watching the blurry line move, all I aws saying was "cool" Cuz it is. -=-=- Hi everyone! I'm new to Blitz and only 10 years old so all things coding is gush to me