Glow Effect


Tweet blitz3d shaders code-archives effects
(Posted 8 months ago) RonTek

Simple Glow Effect in Blitz3D without shaders.

Author: mag, Barliesque

Image

;Glow effect
;Code by Mag. Idea from Sswift.

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
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
EntityTexture cube,tex0
SetBuffer BackBuffer()

;glow setup
s=1
Global sizex=640/s
Global sizey=480/s
Global glowtexture=CreateTexture (384,384,256)
Global sp=CreateSprite(camera)
MoveEntity sp,-.25,-0.06,1.21
ScaleTexture glowtexture,GraphicsWidth()/sizex,GraphicsHeight()/sizey
EntityTexture sp,glowtexture

TextureBlend glowtexture, 5    ;Also try mode 2 ...and increase the Alpha from 0.44 to about 0.80
EntityAlpha sp, 0.44

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

Reply To Topic (minimum 10 characters)

Please log in to reply