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)])