blitz-research
47 lines
914 B
BlitzBasic
47 lines
914 B
BlitzBasic
; simple bumpmapping effect demo in blitz3d
|
|
; works on all graphics cards!
|
|
;
|
|
; by Rob Cummings (bloodlocust@blueyonder.co.uk)
|
|
|
|
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
|
|
|
|
|