From 8efbd3e265d968e3c23440b899825987d394d5bc Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 19 May 2024 10:02:07 +0100 Subject: Add grass roadsides --- grass.png | Bin 0 -> 3706 bytes road.png | Bin 2114 -> 2091 bytes turbo.scm | 14 ++++++++++++-- 3 files changed, 12 insertions(+), 2 deletions(-) create mode 100644 grass.png diff --git a/grass.png b/grass.png new file mode 100644 index 0000000..64d1261 Binary files /dev/null and b/grass.png differ diff --git a/road.png b/road.png index 90f0446..c85bc43 100644 Binary files a/road.png and b/road.png differ diff --git a/turbo.scm b/turbo.scm index db4a8ba..50d007f 100644 --- a/turbo.scm +++ b/turbo.scm @@ -7,10 +7,12 @@ ;;;; Constants and variables (define lane-height 65) -(define lane-length 200) +(define lane-length 192) (define road-start-y 80) (define road-section-position 0) (define road (load-tileset "road.png" lane-length lane-height)) +(define grass (load-image "grass.png")) +(define grass-height 96) (define road-top (texture-atlas-ref road 2)) (define road-bottom (texture-atlas-ref road 0)) (define road-lane (texture-atlas-ref road 1)) @@ -41,11 +43,19 @@ (draw-lanes startx (+ lane-height starty) (- num-lanes 2)) (draw-sprite road-top (vec2 startx (+ starty (* lane-height (- num-lanes 1)))))) +(define (draw-grass-down x y) + (draw-sprite grass (vec2 x (- y grass-height)))) + +(define (draw-grass-up x y) + (draw-sprite grass (vec2 x y))) + (define (draw-road startx starty num-lanes) (if (< startx (window-width (current-window))) (begin + (draw-grass-down startx starty) (draw-road-section startx starty num-lanes) - (draw-road (+ startx lane-length) starty num-lanes)))) + (draw-road (+ startx lane-length) starty num-lanes) + (draw-grass-up startx (+ starty (* lane-height num-lanes)))))) (define (lane-y num-lane) (+ road-start-y -- cgit v1.2.3