'AccelBall
Sub Process_Globals
Dim Orientation As PhoneOrientation
Dim time As Timer
End Sub
Sub Globals
Dim can As Canvas
Dim ballx,bally,ballsize As Float
Dim targety As Float
End Sub
Sub Activity_Create(FirstTime As Boolean)
ballx=80 : bally=Activity.Height-Activity.Height/2
ballsize=42 : targety=bally
can.Initialize(Activity)
time.Initialize("Timer1",10)
End Sub
Sub Activity_Resume
Orientation.StartListening("Orientation")
time.Enabled=True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Orientation.StopListening
time.Enabled=False
End Sub
Sub Timer1_Tick
can.DrawColor(Colors.Black)
bally=bally+(targety-bally)/2.0
can.DrawLine(ballx,0,ballx,Activity.Height,Colors.Red,1.0)
can.DrawCircle(ballx+ballsize,bally,ballsize,Colors.White,True,0.0)
Activity.Invalidate
End Sub
Sub Orientation_OrientationChanged (Azimuth As Float, Pitch As Float, Roll As Float)
targety=targety-Pitch
If targety<ballsize Then targety=ballsize
If targety>(Activity.Height-ballsize) Then targety=(Activity.Height-ballsize)
End Sub