while fiddling around with the need of some blurry-test-code, I came up
with this... Just a fake blur which transparency and multiple Sprite3D.
Possibly you need to change the screen accordingly, and give it a
"hintergrund.png" with the same size.
Function keys F1/F2 change the disorder in steps of 1 until it reaches +/- 4.
Function keys F3/F4 change the transparency between 32 and 192.
Space switches between
Comments are highly welcome
Maybe there is a better or faster wayto accomplish some blur... (just checked blur in the forum... Here is a tutorial
about it in C: http://nehe.gamedev.net/data/lessons/le ... ?lesson=36)
Works on my MacBook using PB 4.20 PPC (good) AND PB 4.30A1 X86 (great)
Code: Select all
If InitSprite() = 0 : MessageRequester("Error", "Can't initilalize OpenGL", 0) : End : EndIf
If InitKeyboard() = 0 : MessageRequester("Error", "Can't initilalize Keyboard", 0) : End : EndIf
If UsePNGImageDecoder() = 0 : MessageRequester("Error", "Can't initilalize PNG-Decoder", 0) : End : EndIf
If InitSprite3D() = 0 : MessageRequester("Error", "Can't initilalize OpenGL-3D", 0) : End : EndIf
; change to fit your screen
If OpenScreen(1280, 800, 32, "Blurtest")
LoadSprite(1, "hintergrund.png",#PB_Sprite_Texture)
DisplaySprite(1,0,0)
; change to fit your screen
GrabSprite(2,0,0,1280,400,#PB_Sprite_Texture) : CreateSprite3D(1,2)
GrabSprite(3,0,400,1280,400,#PB_Sprite_Texture) : CreateSprite3D(2,3)
Sprite3DQuality(1)
x = 0
blurx = 2
maxblur = 4
trans = 32
mintrans = 32
maxtrans = 192
Repeat
If Start3D()
DisplaySprite3D(1, x + blurx, blurx, trans)
DisplaySprite3D(1, x - blurx, -blurx, trans)
DisplaySprite3D(1, x + blurx, -blurx,trans)
DisplaySprite3D(1, x - blurx, blurx, trans)
DisplaySprite3D(1, x, 0, 128)
DisplaySprite3D(2, x, 400)
Stop3D()
EndIf
ExamineKeyboard()
If KeyboardReleased(#PB_Key_Space)
If blurx = 0 : blurx = maxblur : Else : blurx = 0 : EndIf
EndIf
If KeyboardReleased(#PB_Key_F1) : blurx = blurx + 1 : If blurx > maxblur : blurx = maxblur : EndIf : EndIf
If KeyboardReleased(#PB_Key_F2) : blurx = blurx - 1 : If blurx < -maxblur : blurx = -maxblur : EndIf : EndIf
If KeyboardPushed(#PB_Key_F3) : trans = trans + 2 : If trans > maxtrans : trans = maxtrans : EndIf : EndIf
If KeyboardPushed(#PB_Key_F4) : trans = trans - 2 : If trans < mintrans : trans = mintrans : EndIf : EndIf
FlipBuffers(#PB_Screen_SmartSynchronization)
Until KeyboardPushed(#PB_Key_Escape)
EndIf
End
