don't divide fps by column

Author: ppkn

builtin-programs/sprites.folk

@@ -25,7 +25,7 @@ When the image library is /imageLib/ &\
   set spriteHeight [/ $sheetHeight $rows]
 
   When -atomicallyWithKey [list sprite $p $path] the clock time is /t/ {
-      set frameNumber [expr {round ($t * $fps / $columns) % $frames}]
+      set frameNumber [expr {round ($t * $fps) % $frames}]
       set x [expr {($frameNumber % $columns) * $spriteWidth}]
       set y [expr {($frameNumber % $rows) * $spriteHeight}]