Graphics3D 640,480,0,2
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
PositionEntity camera,0,0,-10
RotateEntity light,90,0,0
Backround=CreateCube()
EntityColor Backround,0,0,0
ScaleEntity Backround,20,15,0.2
EntityPickMode Backround,2
PositionEntity Backround,0,0,10
control=CreateCube()
EntityColor control,64,255,128
ScaleEntity control,1,3,0.2
PositionEntity control,17,0,8
window=CreateCube()
EntityColor window,16,64,64
ScaleEntity window,6,18,0.2
PositionEntity window,16,0,10


a = -40
Dim List(137)
For i = 1 To 16
   a = a + 3
   List(i)=CreateCube()
   EntityColor List(i),Rnd(255),Rnd(255),Rnd(255)
   PositionEntity List(i),12,a,10
Next
   

While Not KeyDown(1)

   ent=CameraPick(camera,MouseX(),MouseY())
   old_y# = y#
   y#=PickedY()
   PositionEntity control,17,y,8
   ; Begrenzung der Reglerposition
   If EntityY(control) < -11 Then PositionEntity control,17,-11,8
   If EntityY(control) > 11 Then PositionEntity control,17,11,8

   ; die Objekte verschieben
   For i = 1 To 16
      If old_Y < y Then a = y - old_y :MoveEntity List(i),0,a,0
      If old_Y > y Then b = old_y - y :MoveEntity List(i),0,-b,0
   Next

UpdateWorld
RenderWorld

Flip
Wend
End