switch to nata

This commit is contained in:
Travis Shears 2026-04-23 17:46:53 +02:00
parent e7197f93fc
commit 0a1d655267
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
4 changed files with 588 additions and 51 deletions

View file

@ -10,7 +10,7 @@
; (utils.debug-print assets)
; (local network (require "network.fnl"))
(var world nil)
(var pool nil)
;; global vars
; (var level-key "tutorial")
@ -174,8 +174,8 @@
(fn love.load []
(love.window.setMode screen.screen-w screen.screen-h)
; (tset screen :canvas (love.graphics.newCanvas screen.canvas-w screen.canvas-h))
(set world (tutorial.load screen))
(utils.debug-print world)
(set pool (tutorial.load screen))
; (utils.debug-print world)
; (load-assets)
; (load-level :tutorial)
;; Initialize network
@ -203,9 +203,8 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
(fn love.update [dt]
(let [filter (tiny.requireAll :update)]
; (utils.debug-print filter)
(tiny.update world dt filter)))
(pool:flush)
(pool:emit :update dt))
; (fn love.update [dt]
; (each [_ obj (pairs objects.list)]
@ -317,11 +316,10 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
; ; (print (fennel.view obj))
; (obj:draw)))
(fn love.draw [dt]
(tiny.update world dt (tiny.requireAll :pre-draw))
(tiny.update world dt (tiny.requireAll :draw))
; (world:update dt (tiny.requireAll "post-draw"))
)
(fn love.draw []
(pool:emit :pre-draw)
(pool:emit :draw)
(pool:emit :post-draw))
; (fn love.draw []
; (love.graphics.setCanvas screen.canvas)
; (love.graphics.clear)