Add hitbox component
This commit is contained in:
parent
3718c7050c
commit
d088e52400
1 changed files with 19 additions and 0 deletions
19
modules/ces/component/hitbox.scm
Normal file
19
modules/ces/component/hitbox.scm
Normal 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))
|
Loading…
Reference in a new issue