Bloom Effect help me! - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|428\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Bloom Effect help me!
Tue, 18 Sep 2007, 13:06
DeathKnight	I have a bloom effect code but not a controlled effect. I want to press H key enable after press H key disable. code Graphics3D 640,480,32,2 SetBuffer BackBuffer() ; Create camera Global camera=CreateCamera() MoveEntity camera,3,3,0 RotateEntity camera,30,30,0 light=CreateLight() Global cube=LoadMesh("rose.b3d") PositionEntity cube,0,0,5 ScaleEntity cube,0.01,0.01,0.01 tex0=CreateTexture(300,300) SetBuffer TextureBuffer(tex0) ClsColor 255,255,255 Cls SeedRnd(MilliSecs()) For k=1 To 50 Color Rand(256),Rand(256),Rand(256) Rect Rand(600),Rand(600),Rand(600),Rand(600) Next SetBuffer BackBuffer() s=1 Global sizex=640/s Global sizey=480/s Global glowtexture=CreateTexture (384,384,256) sp=CreateSprite(camera) MoveEntity sp,-.25,-0.06,1.18 EntityAlpha sp,.32 ScaleTexture glowtexture,GraphicsWidth()/sizex,GraphicsHeight()/sizey EntityTexture sp,glowtexture TextureBlend glowtexture, 5 While Not KeyDown( 1 ) TurnEntity cube,0.5,0.5,0.5 CameraViewport camera,0,0,sizex,sizey RenderWorld CopyRect 0,0,sizex,sizey,0,0,BackBuffer(),TextureBuffer(glowtexture) CameraViewport camera,0,0,GraphicsWidth(),GraphicsHeight() RenderWorld Flip Wend End --v
Tue, 18 Sep 2007, 13:22
Phoenix	This does the job: Graphics3D 640,480,32,2 SetBuffer BackBuffer() ; Create camera Global camera=CreateCamera() MoveEntity camera,3,3,0 RotateEntity camera,30,30,0 light=CreateLight() Global cube=CreateCube() PositionEntity cube,0,0,5 ScaleEntity cube,1,1,1 tex0=CreateTexture(300,300) SetBuffer TextureBuffer(tex0) ClsColor 255,255,255 Cls SeedRnd(MilliSecs()) For k=1 To 50 Color Rand(256),Rand(256),Rand(256) Rect Rand(600),Rand(600),Rand(600),Rand(600) Next SetBuffer BackBuffer() s=1 Global sizex=640/s Global sizey=480/s Global glowtexture=CreateTexture (384,384,256) sp=CreateSprite(camera) MoveEntity sp,-.25,-0.06,1.18 EntityAlpha sp,.32 ScaleTexture glowtexture,GraphicsWidth()/sizex,GraphicsHeight()/sizey EntityTexture sp,glowtexture TextureBlend glowtexture, 5 active=1 ; If we should show the blur ClsColor( 0, 0, 0 ) While Not KeyDown( 1 ) angle=angle+1 TurnEntity cube,Sin(angle0.9),Sin(angle0.6),Sin(angle*0.3) CameraViewport camera,0,0,sizex,sizey RenderWorld If( KeyHit(35) ) Then active=1-active If( active ) CopyRect 0,0,sizex,sizey,0,0,BackBuffer(),TextureBuffer(glowtexture) Else SetBuffer( TextureBuffer( glowtexture ) ) Cls SetBuffer( BackBuffer() ) EndIf CameraViewport camera,0,0,GraphicsWidth(),GraphicsHeight() RenderWorld Flip Wend End --v
Tue, 18 Sep 2007, 13:28
DeathKnight	thank you very much Phoenix.It works.