Space Monkey

[PhatPeterParticipant]

Taking a pause from other programming to do some Monkey2. Great fun so far !
Making a simple space shootem’up and now I want to try out and use gestures for finding star systems that you need to go to.

I found a great banana example but it seems to have strange behaviour when you release the fingers it bounces back

Monkey

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<sdl2>" Using std.. Using mojo.. Using mojo3d.. Using sdl2.. Global instance:AppInstance Global mylist:List<star> = New List<star> Const w:=1920, h:=1080 Class star Field s:Vec2f Field m:Vec2f Method New() s.X = Rnd(0,w) s.Y = Rnd(0,h) m.X = Rnd(-6,-01) End Method Method update() s+=m If s.X < 0 Then s.X = w End Method Method draw(canvas:Canvas) canvas.Color = Color.White canvas.DrawPoint(s.X,s.Y) canvas.DrawPoint(s.X+1,s.Y) canvas.DrawPoint(s.X+1,s.Y+1) canvas.DrawPoint(s.X,s.Y+1) End Method End Class Class Myapp Extends Window Public Field gesturing:Bool Field g0:AffineMat3f Field oldg0:AffineMat3f Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field count:Int=1 Field cnt:=0 Method OnUpdate() RequestRender() cnt+=1 End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Escape App.Terminate() End End End Field canvas:Canvas Field wx:Int, wy:Int Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int Method New( title:String="Myapp",width:Int=w,height:Int=h,flags:WindowFlags=WindowFlags.Resizable | WindowFlags.Fullscreen ) Super.New(title,w,h,flags) ClearColor = Color.Black For Local i:=0 To 1000 mylist.AddLast(New star()) Next Mouse.PointerVisible=False End Method OnRender(canvas:Canvas) Override SDL_GetMouseState(Varptr xsdl, Varptr ysdl) ' xsdl & ysdl is fastest mouse App.RequestRender() ' ------------------------------------------------------------------------------------------------ ' GESTURE CODE Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' gesturing... gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0 Else If gesturing 'end gesturing gesturing=False Endif ' ------------------------------------------------------------------------------------------------ canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=Eachin mylist i.update() i.draw(canvas) Next canvas.PopMatrix() canvas.Flush() End End Function Main() New AppInstance New Myapp(w,h) App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<sdl2>" Using std.. Using mojo.. Using mojo3d.. Using sdl2.. Global instance:AppInstance Global mylist:List<star> = New List<star> Const w:=1920, h:=1080   Class star Field s:Vec2f Field m:Vec2f Method New() s.X = Rnd(0,w) s.Y = Rnd(0,h) m.X = Rnd(-6,-01) End Method Method update() s+=m If s.X < 0 Then s.X = w End Method Method draw(canvas:Canvas) canvas.Color = Color.White canvas.DrawPoint(s.X,s.Y) canvas.DrawPoint(s.X+1,s.Y) canvas.DrawPoint(s.X+1,s.Y+1) canvas.DrawPoint(s.X,s.Y+1) End Method End Class   Class Myapp Extends Window Public Field gesturing:Bool Field g0:AffineMat3f Field oldg0:AffineMat3f Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field count:Int=1 Field cnt:=0   Method OnUpdate() RequestRender() cnt+=1 End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Escape App.Terminate() End End End Field canvas:Canvas Field wx:Int, wy:Int Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int   Method New( title:String="Myapp",width:Int=w,height:Int=h,flags:WindowFlags=WindowFlags.Resizable | WindowFlags.Fullscreen ) Super.New(title,w,h,flags) ClearColor = Color.Black For Local i:=0 To 1000 mylist.AddLast(New star()) Next Mouse.PointerVisible=False End Method OnRender(canvas:Canvas) Override SDL_GetMouseState(Varptr xsdl, Varptr ysdl) ' xsdl & ysdl is fastest mouse App.RequestRender() ' ------------------------------------------------------------------------------------------------ ' GESTURE CODE Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' gesturing... gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0 Else If gesturing 'end gesturing gesturing=False Endif ' ------------------------------------------------------------------------------------------------ canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=Eachin mylist i.update() i.draw(canvas) Next canvas.PopMatrix() canvas.Flush() End End   Function Main() New AppInstance New Myapp(w,h) App.Run() End

[PakzParticipant]

I have not done any touch things yet but I noticed you use touchdown. Is there no touchup or release? I would. Look at that.

[PhatPeterParticipant]

No it’s not about finger up and down because I can do this to save the position (but it does not anything but a black screen if your device have no multitouch of course now).

It’s all about making the touch movement relative, you need to be able to “remember” the last position so to speak and “add” each additional movement and this works by using matrixes and I know nothing about matrixes?

Monkey

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<sdl2>" Using std.. Using mojo.. Using mojo3d.. Using sdl2.. Global instance:AppInstance Global mylist:List<star> = New List<star> Const w:=1920, h:=1080 Class star Field s:Vec2f Field m:Vec2f Method New() s.X = Rnd(0,w) s.Y = Rnd(0,h) m.X = Rnd(-6,-01) End Method Method update() s+=m If s.X < 0 Then s.X = w End Method Method draw(canvas:Canvas) canvas.Color = Color.White canvas.DrawPoint(s.X,s.Y) canvas.DrawPoint(s.X+1,s.Y) canvas.DrawPoint(s.X+1,s.Y+1) canvas.DrawPoint(s.X,s.Y+1) End Method End Class Class Myapp Extends Window Public Field gesturing:Bool Field g0:AffineMat3f Field oldg0:AffineMat3f Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field count:Int=1 Field cnt:=0 Method OnUpdate() RequestRender() cnt+=1 End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Escape App.Terminate() End End End Field canvas:Canvas Field wx:Int, wy:Int Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int Method New( title:String="Myapp",width:Int=w,height:Int=h,flags:WindowFlags=WindowFlags.Resizable | WindowFlags.Fullscreen ) Super.New(title,w,h,flags) ClearColor = Color.Black For Local i:=0 To 1000 mylist.AddLast(New star()) Next Mouse.PointerVisible=False End Method OnRender(canvas:Canvas) Override SDL_GetMouseState(Varptr xsdl, Varptr ysdl) ' xsdl & ysdl is fastest mouse App.RequestRender() ' ------------------------------------------------------------------------------------------------ ' GESTURE CODE Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' gesturing... Else If gesturing 'end gesturing gesturing=False Endif gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0 ' ------------------------------------------------------------------------------------------------ canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=Eachin mylist i.update() i.draw(canvas) Next canvas.PopMatrix() canvas.Flush() End End Function Main() New AppInstance New Myapp(w,h) App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<sdl2>" Using std.. Using mojo.. Using mojo3d.. Using sdl2.. Global instance:AppInstance Global mylist:List<star> = New List<star> Const w:=1920, h:=1080 Class star Field s:Vec2f Field m:Vec2f Method New() s.X = Rnd(0,w) s.Y = Rnd(0,h) m.X = Rnd(-6,-01) End Method Method update() s+=m If s.X < 0 Then s.X = w End Method Method draw(canvas:Canvas) canvas.Color = Color.White canvas.DrawPoint(s.X,s.Y) canvas.DrawPoint(s.X+1,s.Y) canvas.DrawPoint(s.X+1,s.Y+1) canvas.DrawPoint(s.X,s.Y+1) End Method End Class Class Myapp Extends Window Public Field gesturing:Bool Field g0:AffineMat3f Field oldg0:AffineMat3f Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field count:Int=1 Field cnt:=0 Method OnUpdate() RequestRender() cnt+=1 End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Escape App.Terminate() End End End Field canvas:Canvas Field wx:Int, wy:Int Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int Method New( title:String="Myapp",width:Int=w,height:Int=h,flags:WindowFlags=WindowFlags.Resizable | WindowFlags.Fullscreen ) Super.New(title,w,h,flags) ClearColor = Color.Black For Local i:=0 To 1000 mylist.AddLast(New star()) Next Mouse.PointerVisible=False End Method OnRender(canvas:Canvas) Override SDL_GetMouseState(Varptr xsdl, Varptr ysdl) ' xsdl & ysdl is fastest mouse App.RequestRender() ' ------------------------------------------------------------------------------------------------ ' GESTURE CODE Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) ' gesturing... Else If gesturing 'end gesturing gesturing=False Endif gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0   ' ------------------------------------------------------------------------------------------------ canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=Eachin mylist i.update() i.draw(canvas) Next canvas.PopMatrix() canvas.Flush() End End Function Main() New AppInstance New Myapp(w,h) App.Run() End

[GwenelParticipant]

One can use this general formula

‘ Rotation
var startVector = point#0.start – point#1.start
var currentVector = point#0.current – point#1.current
var startAngle = math.atan2( startVector.Y, startVector.X )
var endAngle = math.atan2( currentVector.Y, currentVector.X )
var deltaAngle = endAngle – startAngle

‘ Panning
var startCenter = (point#0.start – point#1.start)/2 + point#1.start
var currentCenter = (point#0.current – point#1.current)/2 + point#1.current
var rawTrans = currentCenter – startCenter
‘ Now add rotation to rawtrans and call it translation
var rotationMatrix = matrix.rotationZ(-angle)
var translation = vector.transform(rawTrans, rotationMatrix)

‘ Zooming
var startVector = point#0.start – point#1.start
var currentVector = point#0.current – point#1.current
var scale = vector.length(currentVector) / vector.length(startVector)
var translation = vector.transform(rawTrans, rotationMatrix) / scale

[Author]

Posts