Update existing animations to use the new onesheet tileset.

game.scm

@@ -76,8 +76,8 @@
 
 ;; Assets
 (define tileset
-  (make-tileset (make-image "assets/images/cirkoban.png")
-                320 (* 240 4)
+  (make-tileset (make-image "assets/images/cirkoban-onesheet.png")
+                320 240
                 (inexact->exact tile-width)
                 (inexact->exact tile-height)))
 (define* (load-sound-effect name #:key (volume 0.25))
@@ -358,30 +358,28 @@
   (define name
     (make-animation tileset (vector (make-frame tile duration) ...))))
 (define-animation anim:player
-  (0   2.25)
-  (300 2.25)
-  (600 2.25)
-  (900 0.15))
+  (0 6.75)
+  (40 0.15))
 (define-animation anim:electron-head
-  (4   .25)
-  (304 .25)
-  (604 .25)
-  (904 .25))
+  (4  .25)
+  (57 .25)
+  (77 .25)
+  (97 .25))
 (define-animation anim:electron-tail
-  (5   .25)
-  (305 .25)
-  (605 .25)
-  (905 .25))
+  (5  .25)
+  (58 .25)
+  (78 .25)
+  (98 .25))
 (define-animation anim:gem
-  (28  .25)
-  (328 .25)
-  (628 .25)
-  (928 .25))
+  (28 .25)
+  (55 .25)
+  (75 .25)
+  (95 .25))
 (define-animation anim:ghost-gem
-  (49  .25)
-  (349 .25)
-  (649 .25)
-  (949 .25))
+  (49 .25)
+  (56 .25)
+  (76 .25)
+  (96 .25))
 
 (define number->string*
   (let ((cache (make-eq-hashtable)))    ; assuming fixnums only