diff --git a/Makefile b/Makefile index b2b6214..fbfc32d 100644 --- a/Makefile +++ b/Makefile @@ -11,6 +11,7 @@ modules = \ modules/ces/entity-manager.scm \ modules/ces/system-manager.scm \ modules/ces/system.scm \ + modules/ces/system/sprite-renderer.scm \ modules/ces/system/keyboard-reader.scm \ modules/ces/system/tilemap-renderer.scm \ modules/dom/canvas.scm \ diff --git a/game.scm b/game.scm index fc2d772..b8eea8c 100644 --- a/game.scm +++ b/game.scm @@ -37,7 +37,7 @@ (math vector) (ces entity) (ces system) - (ces system renderer) + (ces system sprite-renderer) (ces system keyboard-reader) (ces system tilemap-renderer) (ces system-manager) diff --git a/modules/ces/system/renderer.scm b/modules/ces/system/sprite-renderer.scm similarity index 93% rename from modules/ces/system/renderer.scm rename to modules/ces/system/sprite-renderer.scm index f00f891..416bc37 100644 --- a/modules/ces/system/renderer.scm +++ b/modules/ces/system/sprite-renderer.scm @@ -1,6 +1,6 @@ ;; Renders an entity to a canvas -(define-module (ces system renderer) +(define-module (ces system sprite-renderer) #:pure #:use-module (scheme base) #:use-module (ces system) @@ -35,7 +35,7 @@ "Renders the entity to context. dt is unused." (render-entity context entity)) -(define (create-rendering-system draw-context draw!) +(define (create-sprite-rendering-system draw-context draw!) "Renders an entity which has a position and sprite component to the draw context, and then immediately calls draw-callback. draw-callback should be a thunk, and executes after every entity has been processed."