Code archives/3D Graphics - Effects/quick planet glow without entityorder

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

Download source code

quick planet glow without entityorder by Rob
(Posted 24 years ago)
planet gradient fx
Open in online IDE
;bugs: rob@redflame.net
Graphics3D 640,480,16,2
camera=CreateCamera()
planet=CreateSphere()
glow=CreateSprite()
ScaleSprite glow,2,2

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

tex=CreateTexture(64,64,48+2+512)
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)

	PositionEntity glow,EntityX(planet),EntityY(planet),EntityZ(planet)
	PointEntity glow,camera
	MoveEntity glow,0,0,-1


	UpdateWorld
	RenderWorld
	Flip
Wend
End

Comments

Clyde
(Posted 22 years ago)
Simple, yet cool :)

puki
(Posted 22 years ago)
Hmm, not sure what this is supposed to do? I ran it and saw a white ball, not too dissimilar to a white cue ball. So I removed the 'glow' effect and saw the same white cue ball.

Have I missed something here? By removing all of the code lines that contain the world 'glow', I see the same result.

Hope I didn't break it.

Code Archives Forum