sunflare without clipping problems

This code has been declared by its author to be Public Domain code.

Planet halo/sunflare without clipping problems by Rob

2002

This is useful in many situations. For example, you really do need a beautiful gentle hue around your object however you don't want to use sprites for a variety of reasons. Usually this will be due to clipping problems.

;bugs: rob@redflame.net
Graphics3D 640,480,16,2
camera=CreateCamera()
planet=CreateSphere()
glow=CreateSphere()
ScaleEntity glow,1.6,1.6,1.6

light=CreateLight(2)
MoveEntity light,1000,1000,-1000
MoveEntity camera,0,0,-10

tex=CreateTexture(64,64,48+64+512+2)
SetBuffer TextureBuffer(tex)
For i=1 To 64
	Color i*3,i*3,i*4
	Oval i/2,i/2,64-i,64-i,1
Next
EntityTexture glow,tex
EntityBlend glow,3

While Not KeyHit(1)
	UpdateWorld
	RenderWorld
	Flip
Wend
End

Comments

None.

Code Archives Forum