From 8a8ee5e1c16a1f6729bcbe22a147b79b25eac08c Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 17 May 2024 21:18:25 +0100 Subject: Start doing things --- cars_racer.png | Bin 0 -> 21598 bytes cars_racer.svg | 848 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ red_racer.png | Bin 0 -> 4924 bytes turbo.scm | 15 + 4 files changed, 863 insertions(+) create mode 100644 cars_racer.png create mode 100644 cars_racer.svg create mode 100644 red_racer.png create mode 100644 turbo.scm diff --git a/cars_racer.png b/cars_racer.png new file mode 100644 index 0000000..71f81c8 Binary files /dev/null and b/cars_racer.png differ diff --git a/cars_racer.svg b/cars_racer.svg new file mode 100644 index 0000000..d1b3e56 --- /dev/null +++ b/cars_racer.svg @@ -0,0 +1,848 @@ + + + + + + + + + + image/svg+xml + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/red_racer.png b/red_racer.png new file mode 100644 index 0000000..040f983 Binary files /dev/null and b/red_racer.png differ diff --git a/turbo.scm b/turbo.scm new file mode 100644 index 0000000..32661b5 --- /dev/null +++ b/turbo.scm @@ -0,0 +1,15 @@ +(use-modules (chickadee graphics sprite) + (chickadee) + (chickadee graphics viewport)) + +(define red-car (load-image "red_racer.png")) + +(define car-pos-y 0.0) +(define car-speed 4.0) + +(define (draw alpha) + (draw-sprite red-car (vec2 0 car-pos-y)) + (draw-text "Turbo racers!" (vec2 260.0 240.0)) + (set! car-pos-y (+ car-speed car-pos-y)) + (if (> car-pos-y (window-height (current-window))) + (set! car-pos-y 0.0))) -- cgit v1.2.3