From 08b6f399841c9896770e7b4386a2c286e74622b7 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 8 May 2026 09:09:14 +0300 Subject: [PATCH] Prepare for and publish --- retropikzel/spite/README.md | 47 +++++++++++++++++++++++++++++++++---- retropikzel/spite/VERSION | 2 +- 2 files changed, 43 insertions(+), 6 deletions(-) diff --git a/retropikzel/spite/README.md b/retropikzel/spite/README.md index 40568c0..3af0325 100644 --- a/retropikzel/spite/README.md +++ b/retropikzel/spite/README.md @@ -1,14 +1,51 @@ -Game library inspired by some other game library named after emotion built on -top of [(foreign c)](https://sr.ht/~retropikzel/foreign-c/). +Game library inspired by some other game library named after emotion Please note that Spite is currently in **alpha** stage. -[Issue tracker](https://todo.sr.ht/~retropikzel/Spite) +## Installation -[Mailing lists](https://sr.ht/~retropikzel/Spite/lists) + snow-chibi install --impls=$SCHEME retropikzel.spite -[Source](https://git.sr.ht/~retropikzel/spite) +## Usage + +Example: + + (import (scheme base) + (scheme write) + (scheme read) + (scheme file) + (foreign c) + (retropikzel spite)) + + (spite-init "Hello world" 400 400) + + (define black '(0 0 0)) + + (define player-x 64) + (define player-y 64) + + (define update + (lambda (delta-time events) + (for-each + (lambda (event) + (when (symbol=? (cdr (assoc 'type event)) 'key-down) + (let ((key (cdr (assoc 'key event)))) + (when (string=? key "W") (set! player-y (- player-y 8))) + (when (string=? key "A") (set! player-x (- player-x 8))) + (when (string=? key "S") (set! player-y (+ player-y 8))) + (when (string=? key "D") (set! player-x (+ player-x 8))) + ))) + events) + #t)) + + (define draw + (lambda () + (apply set-draw-color black) + (fill-rectangle player-x player-y 32 32))) + + + (spite-start update draw) ## Documentation - Spite diff --git a/retropikzel/spite/VERSION b/retropikzel/spite/VERSION index 17e51c3..d917d3e 100644 --- a/retropikzel/spite/VERSION +++ b/retropikzel/spite/VERSION @@ -1 +1 @@ -0.1.1 +0.1.2