27 lines
693 B
Plaintext
27 lines
693 B
Plaintext
|
(local Object (require :core.object))
|
||
|
|
|
||
|
|
(local SpaceOrb (Object:extend))
|
||
|
|
(fn SpaceOrb.new [self joystick]
|
||
|
|
(set self.joystick joystick))
|
||
|
|
|
||
|
|
; axes (with controller upright)
|
||
|
|
; x: -left +right
|
||
|
|
; z: -forward +backward
|
||
|
|
; y: -up +down
|
||
|
|
; xr: -up +down (twisting)
|
||
|
|
; yr: -right +left (twisting)
|
||
|
|
; zr: -right +left (turning)
|
||
|
|
(fn SpaceOrb.read [self]
|
||
|
|
(local (x z y xr yr zr) (self.joystick:getAxes))
|
||
|
|
{: x : y : z : xr : yr : zr})
|
||
|
|
(fn SpaceOrb.debug-draw [self]
|
||
|
|
(var iaxis 1)
|
||
|
|
(each [axis val (pairs (self:read))]
|
||
|
|
(love.graphics.print (.. axis ": " (tostring val)) 10 (* iaxis 15))
|
||
|
|
(set iaxis (+ iaxis 1))))
|
||
|
|
(fn SpaceOrb.update [self])
|
||
|
|
(fn SpaceOrb.draw [self] (self:debug-draw))
|
||
|
|
|
||
|
|
SpaceOrb
|
||
|
|
|