diff --git a/two_player_cleaning_game/main.fnl b/two_player_cleaning_game/main.fnl index 6cf9098..7bf0156 100644 --- a/two_player_cleaning_game/main.fnl +++ b/two_player_cleaning_game/main.fnl @@ -303,7 +303,8 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start)) (fn love.draw [] (for [i 1 99 1] (let [draw-trigger (.. "draw" i)] - (pool:emit draw-trigger)))) + (pool:emit draw-trigger) + (when (and (= i 98) debug) (pool:emit "draw-debug"))))) ; (fn love.draw [] ; (love.graphics.setCanvas screen.canvas) diff --git a/two_player_cleaning_game/src/entities/player.fnl b/two_player_cleaning_game/src/entities/player.fnl index 3cbfa1c..07eaad3 100644 --- a/two_player_cleaning_game/src/entities/player.fnl +++ b/two_player_cleaning_game/src/entities/player.fnl @@ -1,5 +1,5 @@ (local beholder (require "libs/beholder")) -(local colors (require "src/colors.fnl")) +(local color (require "src/colors.fnl")) (local levels (require "levels.fnl")) (local assets (require "src/assets.fnl")) @@ -66,22 +66,22 @@ (fn player.draw50 [self] "draw player sprite and hitbox" - (colors:reset-color) + (color:reset-color) (love.graphics.draw assets.player-sprite (. self.quads (angle-to-direction player.rot)) - self.x self.y) - ;; draw player hitbox and direction line - ; (when state.debug - ; (colors:set-color :black) - ; (love.graphics.rectangle "line" self.x self.y self.w self.h) - ; (love.graphics.push) - ; (let [ox (+ self.x (/ 25 2)) oy (+ self.y (/ 25 2))] - ; (love.graphics.translate ox oy) - ; (love.graphics.rotate self.rot) - ; (love.graphics.line 0 0 35 0)) - ; (love.graphics.pop)) - ) + self.x self.y)) + +(fn player.draw-debug [self] + "draw player hitbox and direction line" + (color.set-color :black) + (love.graphics.rectangle "line" self.x self.y self.w self.h) + (love.graphics.push) + (let [ox (+ self.x (/ 25 2)) oy (+ self.y (/ 25 2))] + (love.graphics.translate ox oy) + (love.graphics.rotate self.rot) + (love.graphics.line 0 0 35 0)) + (love.graphics.pop)) player