summaryrefslogtreecommitdiff
path: root/game
diff options
context:
space:
mode:
Diffstat (limited to 'game')
-rw-r--r--game/main.scm38
1 files changed, 38 insertions, 0 deletions
diff --git a/game/main.scm b/game/main.scm
new file mode 100644
index 0000000..d2ee993
--- /dev/null
+++ b/game/main.scm
@@ -0,0 +1,38 @@
+;;; Licensed under the Apache License, Version 2.0 (the "License");
+;;; you may not use this file except in compliance with the License.
+;;; You may obtain a copy of the License at
+;;;
+;;; http://www.apache.org/licenses/LICENSE-2.0
+;;;
+;;; Unless required by applicable law or agreed to in writing, software
+;;; distributed under the License is distributed on an "AS IS" BASIS,
+;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+;;; See the License for the specific language governing permissions and
+;;; limitations under the License.
+
+(define-module (game main)
+ #:use-module (chickadee)
+ #:use-module (chickadee math vector)
+ #:use-module (chickadee graphics sprite)
+ #:use-module (chickadee graphics texture)
+ #:use-module (system repl coop-server)
+ #:export (launch-game))
+
+(define sprite-position (vec2 256.0 176.0))
+(define sprite-texture #f)
+(define repl #f)
+
+(define (load)
+ (set! sprite-texture (load-image "assets/images/chickadee.png"))
+ (set! repl (spawn-coop-repl-server)))
+
+(define (update _dt)
+ (poll-coop-repl-server repl))
+
+(define (draw _alpha)
+ (draw-sprite sprite-texture sprite-position))
+
+(define (launch-game args)
+ (run-game #:load load
+ #:update update
+ #:draw draw))