Ooops
November 28, 2020, 11:43:28 AM

Author Topic: [bb] Heat shader Fake by Jan_ [ 1+ years ago ]  (Read 604 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Heat shader Fake by Jan_ [ 1+ years ago ]
« on: June 29, 2017, 12:28:41 AM »
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 :P


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal