Graphics3D 800,600,32,2
SetBuffer BackBuffer()

;var Allgemein 
Global camera
Global erde 
Global cube 
Global light
Global wframe 
Global texture_erde
Global sound 

;var CameraEntity 
Global ce_x = 0
Global ce_y = 0 
Global ce_z = 0

;lade & setze Sounds
sound = LoadSound("sound.mp3")
LoopSound sound 
PlaySound(sound) 

;erstelle Objekte
camera = CreateCamera()
erde = CreateSphere(100)
light = CreateLight()

;lade & setze Texturen
texture_erde = LoadTexture("welt2.jpg")
EntityTexture erde, texture_erde

;Hauptschleife
Repeat 
	
	;positioniere Objekte
	PositionEntity camera, ce_x,ce_y,ce_z
	PositionEntity erde, 0,0,6
	
	;bewege Objekte
	TurnEntity erde ,0,0.1,0
	
	;definiert Drahtgitter
	If KeyHit(57) Then
		wframe = 1 - wframe 
		WireFrame wframe
	End If 
	
	;Kamera Zoom 
	If KeyHit(17) Then ce_z = ce_z + 1
	If ce_z = 5 Then ce_z = 4 
	
	If KeyHit(31) Then ce_z = ce_z - 1
	If ce_z = -4 Then ce_z = -3
	
	RenderWorld
	
	;Ereignistext
	If ce_z = 4 Then Text 600,10,"max. Zoom erreicht!"
	If ce_z = -3 Then Text 600,10,"min. Zoom erreicht!"
	
	;Infotext
	Text 10,10, "Zoom In  [W]"
	Text 10,25, "Zoom Out [S]"
	Text 10,40, "Beenden [ESC]"
	
	Flip
	
Until KeyHit(1)
	
	
;~IDEal Editor Parameters:
;~C#Blitz3D