fixed rate argument for run-movie, Closes PR13642

collects/2htdp/tests/run-movie.rkt

@@ -0,0 +1,13 @@
+#lang racket
+
+(require 2htdp/universe 2htdp/image)
+
+(define (make-images i)
+  (cond
+    [(zero? i) '()]
+    [else (cons (place-image DOT 50 (* 50 i) BACKGROUND) (make-images (sub1 i)))]))
+
+(define DOT (circle 3 'solid 'red))
+(define BACKGROUND (empty-scene 100 400))
+
+(run-movie 8 (make-images 8))

collects/2htdp/universe.rkt

@@ -327,7 +327,7 @@
          [hgt (image-height fst)])
     (big-bang 
      m* 
-     (on-tick rest r) 
+     (on-tick rest (/ 1 r))
      (on-draw (lambda (m) (if (empty? m) (text "The End" 22 'red) (first m))))
      (stop-when empty?))))
 

collects/2htdp/xtest

@@ -11,6 +11,7 @@ run() {
 cd tests 
 
 run key-error.rkt
+run run-movie.rkt
 run bad-draw.rkt
 run error-in-tick.rkt
 run error-in-draw.rkt