| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- ; simple bumpmapping effect demo in blitz3d
- ; works on all graphics cards!
- ;
- ; by Rob Cummings ([email protected])
- Global camera,plane,mx,my,c,b,s,l
- HidePointer
- AppTitle "Blitz3D Bump"
- Graphics3D 640,480,16,2
- camera=CreateCamera()
- plane=CreateSprite(camera)
- MoveEntity plane,0,0,2
- ScaleEntity plane,500,500,500
- EntityFX plane,1 ;fullbright
- c=LoadTexture("c.jpg",3)
- b=LoadTexture("b.jpg",3)
- s=LoadTexture("s.jpg",3)
- l=LoadTexture("glow.bmp",48)
- While Not KeyHit(1)
- mx=MouseX()-320
- my=MouseY()-240
- UpdateBump()
- UpdateWorld
- RenderWorld
- Text 0,0,"Move mouse to see bump effect!"
- Flip
- Wend
- End
- Function UpdateBump()
- offset#=0.00006
- TextureBlend l,3
- EntityTexture plane,c,0,0
- EntityTexture plane,s,0,1
- EntityTexture plane,b,0,2
- EntityTexture plane,l,0,3
-
- PositionTexture b,-mx*offset,-my*offset
- PositionTexture s,mx*offset,my*offset
- PositionTexture l,mx*0.002,my*0.002
- End Function
-
-
|
