| "Blur-Verwasch"-Effekt von Freax von ??? |
| Hier ein Code von Freax der auf ein Bild den bekannten Blureffekt anwendet. Das Bild wird immer mehr verwaschen. [code:1:0df351ad62] Graphics 640,480,32,1 SetBuffer BackBuffer() Dim Pixel(2,2) FirstImg = LoadImage("s2.png") DrawImage FirstImg,0,0 : Flip WaitKey .start For X = 1 To ImageWidth(Firstimg) - 1 For Y = 1 To ImageHeight(FirstImg) - 1 LockBuffer Pixel(0,0) = ReadPixelFast(X - 1,Y - 1) Pixel(1,0) = ReadPixelFast(X,Y - 1) Pixel(2,0) = ReadPixelFast(X + 1,Y - 1) Pixel(0,1) = ReadPixelFast(X - 1,Y) Pixel(1,1) = 0 Pixel(2,1) = ReadPixelFast(X + 1,Y) Pixel(0,2) = ReadPixelFast(X - 1,Y + 1) Pixel(1,2) = ReadPixelFast(X,Y + 1) Pixel(2,2) = ReadPixelFast(X + 1,Y + 1) DurchschnittR = 0 DurchschnittG = 0 DurchschnittB = 0 For U = 0 To 2 For V = 0 To 2 If U = 1 And V = 1 Else DurchschnittR = DurchschnittR + GetR(Pixel(U,V)) DurchschnittG = DurchschnittG + GetG(Pixel(U,V)) DurchschnittB = DurchschnittB + GetB(Pixel(U,V)) EndIf Next Next DurchschnittR = DurchschnittR / 8 DurchschnittG = DurchschnittG / 8 DurchschnittB = DurchschnittB / 8 Durchschnitt = DurchschnittR * $10000 + DurchschnittG * $100 + DurchschnittB WritePixelFast X,Y,Durchschnitt UnlockBuffer Next Next Flip WaitKey If KeyDown(1) = 1 Then End Goto start Function GetR(RGB) Return (RGB And $FF0000) / $10000 End Function Function GetG(RGB) Return (RGB And $FF00) / $100 End Function Function GetB(RGB) Return RGB And $FF End Function [/code:1:0df351ad62] |
| von Vertex |
| Hi! habe mal das ganze mit Mediafile hochgeladen, code kommentiert und daraus noch eine funktion gemacht. http://mitglied.lycos.de/the_darkfuture/Blur.zip mfg olli |
| von ??? |
| jo, ist wirklich sehr schön. |