Class tlComponent Abstract

Namespace myapp


Using std..
Using mojo..
Using timelinefx..

Class MyWindow Extends Window

	Field GameObject:tlGameObject
	Field ChildObject:tlGameObject

	Method New( title:String="tlGameObject example",width:Int=640,height:Int=480,flags:WindowFlags=Null )

		Super.New( title,width,height,flags )

		'Create a couple of new game objects
		GameObject = New tlGameObject
		ChildObject = New tlGameObject

		'Assign images using LoadShape
		GameObject.Image = LoadShape("asset::smoke.png")
		ChildObject.Image = LoadShape("asset::smoke.png")

		'Position the child object. This will be relative to the parent object.
		ChildObject.SetPosition(0, 200)
		'Scale it down a bit
		ChildObject.SetScale(0.5)

		'Add the child object to the parent object
		GameObject.AddChild(ChildObject)
		'Set the parent position
		GameObject.SetPosition(width/2, height/2)

		'Add the example component to the gameobject
		GameObject.AddComponent(New ComponentExample("Test Component"))

		'Update the gameobject to make sure everything is initialised in the correct positions
		GameObject.Update()

	End

	Method OnRender( canvas:Canvas ) Override

		App.RequestRender()

		canvas.Clear( New Color(0,0,0,1) )

		'Update the game object
		GameObject.Update()
		'Render the game object
		GameObject.Render(canvas)
	End

End

'Example component. Components can contain anything you want to update your game objects
Class ComponentExample Extends tlComponent
	Field counter:float
	'We need to add the default constructors
	Method New()
	End

	Method New(name:String)
		Self.name = name
	End

	'You can put whatever you need to in the init method, it will be called when the component is
	'added to the game object
	Method Init() Override
		Print "Component initiliased"
	End

	'This will be called everytime the object is updated with tlGameObject.Update()
	Method Update() Override
		Parent.Rotate(0.05)
		Parent.Move(Sin(counter)*10, Cos(counter)*10)
		counter+=0.1
	End
End

Function Main()

	New AppInstance

	New MyWindow

	App.Run()
End