StartSimulationEngine  "SimState/basicsim.xml"

AddGraphicSpriteEntity    sprite1
	/Position:0  0.01  0
	/Orientation:-90    180    0
	/Width:5
	/Height:5
	/TextureWidth:500
	/TextureHeight:500
	/BackgroundColor:255  255  255  255
	/SpritePivotType:Fixed

AddPioneer3DX    p3dx1  	/Position:0  0  0


UpdateCameraView  
	/EyePosition:2  4  4  	/LookAtPoint:0  0  0

FlushScript  

call proc1 with concur

Procedure  proc1

	call proc2
	
	call proc3
	
End

Procedure  proc2

	for (i = 0; i < 1000; i++)
	{
		left = 0.0 + i * 0.002
		right = 0.2 + i * 0.002

		p3dx1.Go(left, right)
		
		wait 100
	}

End

Procedure  proc3

	while (true)
	{
		p_x = p3dx1.Position.X 
		p_z = p3dx1.Position.Z 
	
		p_x = p_x * 100 + 250
		p_z = p_z * 100 + 250
	
		pos_x = Util.ToInt(p_x)
		pos_z = Util.ToInt(p_z)
				
		sprite1.SpriteDrawLine("tag1", "Blue", pos_x, pos_z, 5)
	
		wait 500
	}

End