Graphics3D 800, 600, 32, 2
Tex1 = CreateTexture(256, 256)

SetBuffer TextureBuffer(Tex1)

For Zaehler = 1 To 2000
	Color Rnd(255), Rnd(255), Rnd(255)
	Plot Rnd(255), Rnd(255)
Next

Tex2 = CreateTexture(256, 256)

SetBuffer TextureBuffer(Tex2)

For Zaehler = 1 To 2000
	Color 255, 255, 255
	;Color Rnd(255), Rnd(255), Rnd(255)
	Plot Rnd(255), Rnd(255)
Next

SetBuffer BackBuffer()


Kamera = CreateCamera()
CameraViewport Kamera, 0, 0, 800, 600
CameraClsColor Kamera, 0, 0, 0
CameraRange Kamera, 0.01, 10000
Licht = CreateLight(1, Kamera)
AmbientLight 255, 255, 255
MoveEntity Kamera, 0, 0, -10
CameraZoom Kamera, 1


Cylinder1 = CreateCylinder(80,0)
TurnEntity Cylinder1, 90, 0, 0
ScaleEntity Cylinder1, 1, 10, 1
EntityFX Cylinder1, 16
EntityAlpha Cylinder1, 1

Cylinder2 = CreateCylinder(80,0)
TurnEntity Cylinder2, 90, 0, 0
ScaleEntity Cylinder2, .9, 10, .9
EntityFX Cylinder2, 16
EntityAlpha Cylinder2, .5


EntityTexture Cylinder1, Tex1
EntityTexture Cylinder2, Tex2

While Not KeyHit(1)

	u# = u# + .0015
	v# = v# + .0015
	PositionTexture Tex1, u#, v#
	PositionTexture Tex2, u#*2, v#*2

	UpdateWorld()
	RenderWorld()
	
	Flip()
Wend

EndGraphics()
End()