[bb] Heat shader Fake by Jan_ [ 1+ years ago ]

[BlitzBot]

Title : Heat shader Fake
Author : Jan_
Posted : 1+ years ago

Description : Download with media:
http://www.blitz-pasting.net/index.php?content=bp_showupload&id=443

Code :

Code: BlitzBasic

1. Graphics3D 640,480,32,2
2. SetBuffer BackBuffer()
3.  
4. cam=CreateCamera()
5.  
6. MoveEntity cam,0,0,-3
7. Zombie=LoadMesh("zombie.b3d")
8. EntityFX zombie, 1+2
9. ;EntityColor zombie,255,255,255
10. tex=CreateTexture(1,1)
11. For x#= 0 To TextureWidth(tex)-1
12.   For y#=0 To TextureHeight(tex)-1
13.     WritePixel x,y,$FFFFFFFF,TextureBuffer(tex)
14.   Next
15. Next
16. EntityTexture zombie,tex
17. FitMesh zombie,-2,-2,-2,4,4,4,1
18. EntityPickMode zombie,2
19. Repeat
20.   t2=t1
21.   t1=MilliSecs()
22.   TurnEntity zombie,0,5,0
23.   sc=CountSurfaces(zombie)
24.   For i = 1 To sc
25.     surf=GetSurface(zombie,i)
26.     vc=CountVertices(surf)
27.     For g =0 To vc-1
28.       x#=VertexX#(surf,g)
29.       y#=VertexY#(surf,g)
30.       z#=VertexX#(surf,g)
31.  
32.       LinePick x#,y#,z#,-x#,-y#,-z#
33.       dis#=0
34.       If PickedEntity()
35.          dis#=z#-PickedZ#()
36.       EndIf
37.       ende=0
38.      
39.  
40.       If Abs(dis) < 0.1 Vcolor = $00FF0000
41.       If Abs(dis) > 0.1 Vcolor = $0000FF00
42.       If Abs(dis) > 0.4 Vcolor = $000000FF
43.  
44.       VertexColor Surf, g,(VColor And $00FF0000) Shr 16 , (VColor And $0000FF00) Shr 8, VColor And $000000FF ,255
45.  
46.     Next
47.   Next
48.   ;UpdateWorld
49.   RenderWorld
50.   Text 0,0,(1000.0/(t1-t2))
51.   Flip 0
52. Until KeyHit(1)
53. End

Comments :


Gabriel(Posted 1+ years ago)

 Link to download with media does not work.


Yo! Wazzup?(Posted 1+ years ago)

 uhhh... [url]? how about you do [a httpyourwebsite]here[a](use a forward slash)


bytecode77(Posted 1+ years ago)

 why are people always 'faking' something?cant they do anything real?sry, no offence


Damien Sturdy(Posted 1+ years ago)

 Go ON Devil, Show us how to not "fake it" in b3D..?I mean,There is no "fake" really. its just another way to do it :)in this term, "Shader" is fake, because obviously Blitz3D cannot do shaders.So, if you manage to pull this off, you're "faking" it too