Code archives/3D Graphics - Effects/Furry ball effect
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
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 |
Comments
| ||
Hey, this is cool. I have been randomally trying non-standard textures and getting interesting results. |
Code Archives Forum