summary refs log tree commit diff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/game.fnl1
-rw-r--r--lib/main.fnl16
-rw-r--r--lib/transition.fnl2
3 files changed, 1 insertions, 18 deletions
diff --git a/lib/game.fnl b/lib/game.fnl
index 833de6b..bf4b857 100644
--- a/lib/game.fnl
+++ b/lib/game.fnl
@@ -5,7 +5,6 @@
 (local entity (require :lib.entity))
 (local player (require :lib.player))
 (local transition (require :lib.transition))
-(local fv (require :fennel.view))
 (local music-state (require :lib.music-state))
 
 (fn lerp* [a b c d x]
diff --git a/lib/main.fnl b/lib/main.fnl
index b657d94..90048d5 100644
--- a/lib/main.fnl
+++ b/lib/main.fnl
@@ -4,8 +4,6 @@
 (local game (require :lib.game))
 (local music (require :lib.music))
 (local font (require :lib.font))
-(local profi (require :vendor.ProFi))
-(local profi? false)
 
 ;; i am thinking we could actually do a really hacky thing (modules add themselves
 ;; to this list) with this later but
@@ -26,9 +24,6 @@
 
 (fn love.load []
   (music.load)
-  (when profi?
-    (profi:start)
-    (set love.frame 0))
   (love.keyboard.setKeyRepeat true)
   (global the-state (state.init game))
   (global messages (or messages {})))
@@ -57,13 +52,6 @@
 
 (fn love.update []
   (music.pre-update)
-  (when profi?
-    (profi:startHooks)
-    (set love.frame (+ love.frame 1))
-    (when (= (% love.frame 100) 0)
-      (profi:stop)
-      (profi:writeReport)
-      (os.exit)))
   ;; TODO: make state changes actually possible
   (match (pcall #(state.update the-state))
     (true next) (global the-state next)
@@ -73,9 +61,7 @@
                 (table.insert messages
                               {:ticks 1
                                :msg (.. "update: \n" x)})))
-  (music.update)
-  (when profi?
-    (profi:stopHooks)))
+  (music.update))
 
 (fn love.mousepressed [x y button]
   (match (pcall #(state.mousepressed the-state x y button))
diff --git a/lib/transition.fnl b/lib/transition.fnl
index c1a81a0..e48411d 100644
--- a/lib/transition.fnl
+++ b/lib/transition.fnl
@@ -105,9 +105,7 @@
         scale (get-scale)
         x (/ (- x (/ width 2)) scale)
         y (/ (- y (/ height 2)) scale)]
-    (print x y)
     (when (and (= button 1) (. boxes self.type))
-      (print :a)
       (each [i box (ipairs (. boxes self.type))]
         (when (and (>= x box.x)
                    (< x (+ box.x box.width))