Graphics3D 640,480,32,1
SetBuffer BackBuffer()
cam=CreateCamera()
tex=CreateTexture(1,8,512+256+2)
tx=TextureWidth(tex)
ty=TextureHeight(tex)
For x=0 To tx-1
	For y=0 To ty-1
		rgb=Sin#((y*180.0)/ty)*255.0
		rgb=rgb+((rgb) Shl 24)+(150 Shl 16)+(150 Shl 8)
		WritePixel(x,y,rgb,TextureBuffer(tex))
	Next
Next
seqmente = 500
tolleranz# = 0.3
speed#=2.5
breite#=1.5
Breitendiv#=0.01
ausbreitung#=0.1
Repeat
	
	xs=xs+1
	PositionEntity cam,Sin(xs)*50.0,10,-5,1
	mesh=CreateMesh()
	surf=CreateSurface(mesh)
	xo#=0
	yo#=0
	zo#=0
	For  i = 1 To seqmente
		v0=AddVertex(surf,xo#,yo#,zo#,i,0)
		v1=AddVertex(surf,xo#,yo#-breite#/(i*Breitendiv#),zo#,i,1)
		xo#=xo#+Rnd(-tolleranz#,tolleranz#)*(i*ausbreitung#)
		yo#=yo#+Rnd(-tolleranz#,tolleranz#)*(i*ausbreitung#)
		zo#=zo#+Rnd(-tolleranz#,tolleranz#)+speed#
		v2=AddVertex(surf,xo#,yo#,zo#,i+1,0)
		v3=AddVertex(surf,xo#,yo#-breite#/((i+1)*Breitendiv#),zo#,i+1,1)
		AddTriangle(surf,v0,v1,v2)
		AddTriangle(surf,v3,v1,v2)
	Next
	t2=t1
	t1=MilliSecs()
	EntityTexture mesh,tex
	EntityFX mesh,17
	RenderWorld
	FreeEntity mesh
	Text 0,0,\"FPS: \"+(1000.0/(t1-t2))
	Text 0,20,\"Poly: \"+TrisRendered()
	Flip 0
Until KeyHit(1)
End