From c1d5240aecab77021c262b9ad1ac27df54b59017 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 24 May 2023 08:54:11 -0400 Subject: First commit! --- game/main.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 game/main.scm (limited to 'game') 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)) -- cgit v1.2.3