Code archives/3D Graphics - Effects/Furry ball effect

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

Download source code

Furry ball effect by Beaker
(Posted 24 years ago)
Creates the effect of fur on nearly any mesh.
Be warned: it's not particularly fast (when compared with doing it with vertex shaders - nVidia Wolfman).

Although not essential, the demo uses vertex alpha to enhance the effect.

(Create a splattered/stippled high-contrast image to use as the texture. Experiment!) 
;MasterBeakers Hairy Balls 2003
;credit is always nice. :)

Graphics3D 640,480
SetBuffer BackBuffer()

cam = CreateCamera ()
MoveEntity cam,0,0,-5

ball = CreateMesh()
EntityFX ball,32+2

ball2 = CreateSphere(5)
ScaleMesh ball2,3,3,3
EntityFX ball2,32+2
ClearTextureFilters 

tex = LoadTexture ("fur3.bmp",2+1)
EntityTexture ball,tex

surf = GetSurface(ball2,1)
For f# = 0 To -0.02 Step -0.001
	ScaleMesh ball2,1.008,1.008,1.008
	RotateMesh ball2,0,-(f*20.0),0
	n# = 1-(-(f)*100.0/2.0)
	For vert = 0 to CountVertices(surf)-1
		VertexColor surf,vert,255,255,255,n
	Next
	AddMesh ball2,ball
Next
FreeEntity ball2

While Not KeyDown(1)
	Flip False
	RenderWorld
	TurnEntity ball,0.03,0.12,0.03
Wend
End