From aad9e0e8c9934d70b4befadb42c410a7ef935908 Mon Sep 17 00:00:00 2001 From: mehbark Date: Sat, 23 Dec 2023 13:37:00 -0500 Subject: [PATCH] fancier wiggletest --- main.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/main.scm b/main.scm index 95b79c9..efc56f2 100644 --- a/main.scm +++ b/main.scm @@ -386,7 +386,8 @@ (define (blit-from-skin skin rect pos) ;; (display skin) (display " ") (display rect) (display " ") (display pos) ;; (newline) - (draw-texture-rec skin rect (vector2+ pos (vector2 (* (random 4) (sin *t*)) (* (random 4) (cos *t*)))) WHITE)) + (random-seed (* 1000 (add1 (inexact->exact (+ (rectangle-x rect) (rectangle-y rect)))))) + (draw-texture-rec skin rect (vector2+ pos (vector2 (* (random 8) (sin *t*)) (* (random 8) (cos *t*)))) WHITE)) (define (blit-number skin n pos) (let ([rect (vector-ref number-rects n)])