travisshears/fennel_love2d_experiments
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add beholder and get drawing working

Browse source 
"
This commit is contained in:
Travis Shears 2026-04-23 18:41:57 +02:00
parent 0a1d655267
commit c4c33e4726
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
6 changed files with 246 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

20
two_player_cleaning_game/main.fnl
View file

@ -175,6 +175,7 @@
(love.window.setMode screen.screen-w screen.screen-h)
; (tset screen :canvas (love.graphics.newCanvas screen.canvas-w screen.canvas-h))
(set pool (tutorial.load screen))
(pool:emit :load :tutorial)
; (utils.debug-print world)
; (load-assets)
; (load-level :tutorial)
@ -292,25 +293,6 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
; (local directions [:e :se :s :sw :w :nw :n :ne])
; (. directions (+ (% section 8) 1)))
; (fn draw-player []
; "draw player sprite and hitbox"
; (reset-color)
; (love.graphics.draw
; player-art.player-sprite
; (. player-art.player1.quads (angle-to-direction player.rot))
; player.x player.y)
; ;; draw player hitbox and direction line
; (when debug
; (set-color :black)
; (love.graphics.rectangle "line" player.x player.y player.w player.h)
; (love.graphics.push)
; (let [ox (+ player.x (/ 25 2)) oy (+ player.y (/ 25 2))]
; (love.graphics.translate ox oy)
; (love.graphics.rotate player.rot)
; (love.graphics.line 0 0 35 0))
; (love.graphics.pop)
; ))
; (fn draw-objects []
; (each [_ obj (pairs objects.list)]
; ; (print (fennel.view obj))