Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
P3D.Initialize
P3D.RenderToView(Panel)
End Sub
Sub ButtonClear_Click
P3D.Initialize
P3D.RenderToView(Panel)
End Sub
Sub Button1Rotate_Click
For i=0 To 360 Step 10
P3D.RotateY(i).RotateZ(SeekBarZ.Value).RotateX(SeekBarX.Value).RenderToView(Panel)
Sleep(0)
Next
End Sub
Sub Panel_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
LastX=X
LastY=y
Case Activity.ACTION_MOVE
Dim ZoomFrac As Int = 5
Dim ZFront As Int = 0
Dim ZBack As Int = -15
Dim Xi As Int = (LastX-Panel.Width/2)/ZoomFrac
Dim Yi As Int = (LastY-Panel.Height/2)/ZoomFrac
Dim Xf As Int = (x-Panel.Width/2)/ZoomFrac
Dim Yf As Int = (Y-Panel.Height/2)/ZoomFrac
P3D.AddPolygon(1,Array As Point_Type(P3D.CtP(Xi,Yi,ZFront),P3D.CtP(Xf,Yf,ZFront),P3D.CtP(Xf,Yf,ZBack),P3D.CtP(Xi,Yi,ZBack)),xui.Color_Gray,xui.Color_White).RenderToView(Panel)
LastX=X
LastY=y
End Select
End Sub