blasting through making a buncha stuff today! wish me luck at finishing on time ;u;
transmutrix
@transmutrix.bsky.social
2K followers 2.7K following 1.8K posts
🎮 programmer / game dev / game preservationist 💻 transmutrix.com 🕹️ transmutrix.itch.io Contact: 💌 transmutrix@hey.com
![(fn []
(lib.lock-input)
(let [player (lib.player?)]
(player.aseprite:play "sleep")
(do
(local audio (require :g.systems.audio))
(audio.play-stream-looped "data/sounds/ambience/crickets.ogg" 0.4))
(camera.on-level-loaded)
(lib.wait 2)
(let [lamp? (lib.entity? :08ea5750-96d0-11f1-bf9f-fdcdda05203b)]
(when lamp? (lamp-trails.light! lamp?)))
(lib.wait 1)
(player.aseprite:play "wake")
(lib.wait 3)
(player.aseprite:play "idle")
(lib.unlock-input)
(lib.say "WASD / Arrows")))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreigcs63lesvlf63o5jjrq3or3ecrc5oskstn6qjnecwt5m7df2vhhq)
![(local util (require :g.util))
(local components (require :g.components))
(fn [ent data]
(components.add ent :transform {
:x data.spawn-x
:y data.spawn-y
})
(components.add ent :sprite {
:path "data/images/player/anims.png"
:off-x -10 :off-y -16
:lit true
})
(components.add ent :aseprite {
:path "data/images/player/anims.json"
:default "idle"
})
(components.add ent :shadow {
:size 30
})
(components.add ent :controllable)
ent)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreidzgjzq5f4nb5pdggay32enettfwptzjrbedfyratvmewdxlgddsa)
![;; a 2d "slerp" ("clerp?") on a circle. works with non-unit
;; vectors so that it's nice for something controlling both
;; speed and angle with the same vector.
(fn util.v2-slerp [v1 v2 t]
(let [a1 (math.atan2 v1.y v1.x) ; angle of v1
a2 (math.atan2 v2.y v2.x) ; angle of v2
; shortest signed difference, wrapped to [-pi, pi)
d (- (% (+ (- a2 a1) math.pi) (* 2 math.pi)) math.pi)
a (+ a1 (* t d)) ; lerped angle
r1 (math.sqrt (+ (* v1.x v1.x) (* v1.y v1.y))) ; magnitude of v1
r2 (math.sqrt (+ (* v2.x v2.x) (* v2.y v2.y))) ; magnitude of v2
r (+ r1 (* t (- r2 r1)))] ; lerped magnitude
; convert from polar back to v2
{:x (* r (math.cos a)) :y (* r (math.sin a))}))
-- plain lua version
function v2_slerp (v1, v2, t)
local a1 = math.atan2(v1.y, v1.x)
local a2 = math.atan2(v2.y, v2.x)
local d = ((((a2 - a1) + math.pi) % (math.pi * 2)) - math.pi)
local a = (a1 + (t * d))
local r1 = math.sqrt(((v1.x * v1.x) + (v1.y * v1.y)))
local r2 = math.sqrt(((v2.x * v2.x) + (v2.y * v2.y)))
local r = (r1 + (t * (r2 - r1)))
return {x = (r * math.cos(a)), y = (r * math.sin(a))}
end](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreigjj4ldle3cdd5jsblltvjesuuojfcphawo2xoj5uby4fenjczusm)
![; original
(let [el-typ (string.match typ "<(.+)>")
items []]
(each [_ el (ipairs val)]
(table.insert items
(load-single-field el-typ el grid-size)))
items)
;rewrite
(let [el-typ (string.match typ "<(.+)>")]
(icollect [_ el (ipairs val)]
(load-single-field el-typ el grid-size)))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreihkbcxrhgtn3pczma7wdbyhuptscu2665qeybda5cku7zkvna3npi)
![(fn get-tileset-cache [tex-path]
(local tex (textures.get tex-path))
(assert tex) ; TODO: be more graceful lol
; build a cache if one doesn't exist yet
(when (not (. cache tex-path))
(let [entry {}]
; load the texture, make a batch, etc.
(set entry.batch (love.graphics.newSpriteBatch tex batch-max))
(set entry.quads {})
; store the new cache
(tset cache tex-path entry)))
; get and return the cache for this texture
(let [entry (. cache tex-path)]
; set the texture on the batch (in case of reload)
(entry.batch:setTexture tex)
entry))
(fn get-tile-quad [ts-cache x y size tex-w tex-h]
(util.get-or-default
(util.get-or-default ts-cache.quads y []) x
(love.graphics.newQuad x y size size tex-w tex-h)))
(fn draw-tile-layer [layer]
; TODO: camera system integration
; TODO: account for layer offsets in the cull & in draw!
(let [cam-left 0
cam-top 0
cam-right (+ cam-left cfg.game-w)
cam-bottom (+ cam-top cfg.game-h)
ts (. ldtk.tilesets layer.tileset-uid)
tex (textures.get ts.img-path)]
(when tex
; build up the sprite batch and draw it
(let [ts-cache (get-tileset-cache ts.img-path)
batch ts-cache.batch
tex-w (tex:getWidth)
tex-h (tex:getHeight)]
(batch:clear)
(each [_ t (ipairs layer.tiles)]
(when (bounds-overlap? cam-left cam-top cam-right cam-bottom
t.x t.y
(+ t.x ts.tile-size)
(+ t.y ts.tile-size))
(batch:add (get-tile-quad ts-cache
t.src-x t.src-y
ts.tile-size tex-w tex-h)
t.x t.y)))
(batch:flush)
(love.graphics.draw batch 0 0)))))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreicvr6kgybfvjevvzcr3myhclyeakav75lmf5oq5k3p37minqtu7mq)
![(local cfg (require :g.config))
(local state (require :g.state))
(local util (require :g.util.misc))
(local textures (or state.textures
{:cache {} :modtimes {} :to-reload {}}))
(set state.textures textures)
(fn file-modtime [path]
(or (. (love.filesystem.getInfo path) :modtime) 0))
(fn load-texture [path]
(let [(ok loaded-or-err) (pcall love.graphics.newImage path)]
(if ok
(do (print "[textures] loaded " path)
(tset textures.cache path loaded-or-err)
(tset textures.modtimes path (file-modtime path))
(util.blat (util.tkeys textures.cache))
loaded-or-err)
(do (print "- [ERROR]: textures : couldn't load image:" path " error: " loaded-or-err)
nil))))
(fn textures.get [path]
(or (. textures.cache path) (load-texture path)))
(fn textures.sys-tick-start []
(when cfg.debug
(each [path _ (pairs textures.cache)]
(let [known-modtime (. textures.modtimes path)
new-modtime (file-modtime path)]
(when (< known-modtime new-modtime)
(tset textures.to-reload path true)
(tset textures.modtimes path new-modtime))))))
(fn textures.sys-tick-earliest []
(when cfg.debug
(each [path _ (pairs textures.to-reload)]
(when (load-texture path)
(tset textures.to-reload path nil)))))
textures](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreibnnq66vb3x55hhjlmeqkc6rswovaklhohpszt7oui6ho6vbdana4)
![;; ldtk test
; i'm gonna write my own LDtk library probably lol
; but for now i'm trying out this semi-blessed, old one.
(local ldtk-world (ldtk:load "data/levels/world.ldtk"))
(ldtk:setFlipped true) ; if the layer order isn't back-to-front
(var objects [])
(var layers [])
(fn object-create [entity]
(local result {})
; FIXME: could we do something more elegant here like destructuring?
(set result.x entity.x)
(set result.y entity.y)
(set result.w entity.width)
(set result.height entity.height)
(set result.visible entity.visible)
(table.insert objects result)
result)
(fn objects-draw []
(local rect love.graphics.rectangle)
(love.graphics.setColor .8 1 .8)
(each [_ obj (ipairs objects)]
(rect "line" obj.x obj.y obj.w obj.h)))
(fn layers-draw []
(each [_ layer (ipairs layers)]
(layer:draw)))
(fn ldtk.onEntity [entity] (object-create entity))
(fn ldtk.onLayer [layer] (table.insert layers layer))
(fn ldtk.onLevelLoaded [level]
(set objects [])
(set layers []))
; select the level
(ldtk:goTo 1)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:wt5jnss43slmbjzdh4ucyhqw/bafkreib2aouonhbfvzf3kks7u6t6nuj2wikrv2xd7xm45th4qw4yp4y5eu)
