Graphics3D 1024,768,0,2

cam=createcamera()
PositionEntity cam,0,2,-12
cam2=createcamera()
CameraViewport cam2,0,0,200,200
PositionEntity cam2,0,20,0


boden=createplane()
PositionEntity boden,0,-2.4,0
EntityColor boden,255,50,50

schatten=createcone(30)
EntityColor schatten,0,0,0
schattenobjekt=createcone(100)
ScaleEntity schattenobjekt,1.1,1.1,1.1
EntityColor schattenobjekt,200,130,0
PointEntity cam,schattenobjekt
PointEntity cam2,schattenobjekt


licht=createsphere(100)
PositionEntity licht,0,2,3
ScaleEntity licht,0.3,0.3,0.3
EntityColor licht,0,255,0

SetBuffer BackBuffer()



Repeat


If KeyDown(200) Then MoveEntity licht,0,0,0.1
If KeyDown(208) Then MoveEntity licht,0,0,-0.1
If KeyDown(205) Then MoveEntity licht,0.1,0,0
If KeyDown(203) Then MoveEntity licht,-0.1,0,0



      surfaces=countsurfaces(schatten)
      
      For a=1 To surfaces
            surf=getsurface(schatten,a)
            punkte=countvertices(surf)
            For b=0 To (punkte-1)
                  x#=(VertexX#(surf,b)-EntityX#(licht))/10
                  z#=(VertexZ#(surf,b)-EntityZ#(licht))/10
                  While VertexY(surf,b)>(-2)
                        VertexCoords surf,b,VertexX(surf,b)+x,VertexY(surf,b)-0.2,z+vertexz(surf,b)
                        If KeyDown(1) Then End
                  Wend
            Next
      Next









UpdateWorld
RenderWorld

;FPS-----------------------------------
If (MilliSecs()-fpszeit)<200 Then     ;
fps=fps+1                             ;
Else                                  ;
fpsanzeige=fps*5                      ;
fpszeit=MilliSecs()                   ;
fps=0                                 ;
EndIf                                 ;
Text 0,0,"FPS: "+fpsanzeige           ;
;FPS-----------------------------------


FreeEntity(schatten)
schatten=createcone(100)
EntityColor schatten,0,0,0
Flip
Until KeyDown(1)
End