;Note: the global commands like Render() has already
;been explained in the previous tutorial. No big
;explinations here anymore.

Include "..\Includes\DevilShadowSystem.bb"
Include "..\Includes\ShadowVolumes.bb"
Include "..\Includes\UserInterface.bb"

Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()

;Camera
Cam = CreateCamera()
PositionEntity Cam, 0, 4, -8

;Shadows
InitShadows(Cam)

;Light
Light = CreateLight()
PositionEntity Light, 10, 10, 0
PointEntity Light, CreatePivot()
SetShadowLight(Light)

;Floor
c = CreateCube()
ScaleEntity c, 5, 1, 5
EntityColor c, 0, 0, 255
SetShadowMesh(c, False)

;Animated caster
Caster = LoadAnimMesh("..\Media\Mak.3ds")
ScaleEntity Caster, .1, .1, .1
PositionEntity Caster, 2, 1.2, 0

SetShadowMesh(Caster)


Caster1 = LoadAnimMesh("..\Media\Mak.3ds")
ScaleEntity Caster1, .1, .1, .1
PositionEntity Caster1, 2, 1.2, 3

SetShadowMesh(Caster1)



;Note: This shadow system doesn't matter about, whether it is animated or not.
;Just use SetShadowMesh() for animated and not animated objects.
;The other issue is, that b3d animations are not working. Only 3ds/x anims!

;Main loop
While Not KeyHit(1)
Cls
frames=frames+1
time=MilliSecs()

TurnEntity Caster, 0,0.5*time1, 0


If MilliSecs()-oldtime>1000
fps=frames
oldtime=MilliSecs()
frames=0



EndIf



Render(1, 1)
Text 1,1,fps
Flip 0








time1=MilliSecs()-time

Wend
FreeShadows()
End