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 Frac As Int = 5
Dim ZFront As Int = 0
Dim ZBack As Int = -20
Dim Xi As Int = (LastX-Panel.Width/2)/Frac
Dim Yi As Int = (LastY-Panel.Height/2)/Frac
Dim Xf As Int = (x-Panel.Width/2)/Frac
Dim Yf As Int = (Y-Panel.Height/2)/Frac
P3D.AddPolygon( 1 ,Array As Point3D_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,Panel.Width/2,Panel.Height/2,1,1)
LastX=X
LastY=y
End Select
End Sub