Add hitbox component

This commit is contained in:
TakeV 2024-05-24 00:29:54 -04:00
parent 3718c7050c
commit d088e52400
Signed by: TakeV
GPG key ID: A64F41345C7400AF

View file

@ -0,0 +1,19 @@
(define-module (ces component hitbox)
#:pure
#:use-module (scheme base)
#:export (make-hitbox
hitbox?
hitbox-entity-id
hitbox-x
hitbox-y
hitbox-width
hitbox-height))
(define-record-type <hitbox>
(make-hitbox (entity-id x y width height))
hitbox?
(entity-id hitbox-entity-id)
(x hitbox-x)
(y hitbox-y)
(width hitbox-width)
(height hitbox-height))