summary refs log tree commit diff
path: root/lib
diff options
context:
space:
mode:
authorequa <equaa@protonmail.com>2021-04-25 14:17:22 -0500
committerequa <equaa@protonmail.com>2021-04-25 14:17:50 -0500
commita7ca0c7a8fcb4bd2a20e195c57a82327df7a16bc (patch)
treef689086299475d4d111525ec21d484765dd9bc80 /lib
parentccbfdf1f1ef7e6a6fa81bcc5b12188c37fec788b (diff)
disable vsync and tighten controls a bit HEAD main
Diffstat (limited to 'lib')
-rw-r--r--lib/main.fnl29
-rw-r--r--lib/player.fnl4
2 files changed, 19 insertions, 14 deletions
diff --git a/lib/main.fnl b/lib/main.fnl
index bc3be16..8185f10 100644
--- a/lib/main.fnl
+++ b/lib/main.fnl
@@ -50,18 +50,23 @@
           (table.remove messages i)
           (set v.ticks (- v.ticks 1))))))
 
-(fn love.update []
-  (music.pre-update)
-  ;; TODO: make state changes actually possible
-  (match (pcall #(state.update the-state))
-    (true next) (global the-state next)
-    (true nil) nil
-    (false x) (do
-                (print (.. "update: \n" x))
-                (table.insert messages
-                              {:ticks 1
-                               :msg (.. "update: \n" x)})))
-  (music.update))
+(var dt-acc 0)
+
+(fn love.update [dt]
+  (set dt-acc (math.min (/ 20) (+ dt-acc dt)))
+  (while (> dt-acc (/ 60))
+    (set dt-acc (- dt-acc (/ 60)))
+    (music.pre-update)
+    ;; TODO: make state changes actually possible
+    (match (pcall #(state.update the-state))
+      (true next) (global the-state next)
+      (true nil) nil
+      (false x) (do
+                  (print (.. "update: \n" x))
+                  (table.insert messages
+                                {:ticks 1
+                                 :msg (.. "update: \n" x)})))
+    (music.update)))
 
 (fn love.mousepressed [x y button]
   (match (pcall #(state.mousepressed the-state x y button))
diff --git a/lib/player.fnl b/lib/player.fnl
index d40e980..d10fe81 100644
--- a/lib/player.fnl
+++ b/lib/player.fnl
@@ -23,8 +23,8 @@
     ;; (set self.direction (% (- self.direction 0.1) (* math.pi 2)))
   (when controls.right
     (set self.target-spin (+ self.target-spin 0.15)))
-  (set self.direction (% (+ self.direction (* self.target-spin 0.1)) (* math.pi 2)))
-  (set self.target-spin (* self.target-spin 0.9))
+  (set self.direction (% (+ self.direction (* self.target-spin 0.2)) (* math.pi 2)))
+  (set self.target-spin (* self.target-spin 0.8))
   (set music-state.forward controls.up)
   (when controls.up
     (local v (entity.velocity self))