Double big-bang tick frequency for faster computer

racket · Dec 28, 2024 · e5c320c · e5c320c
1 parent d54d3c7
commit e5c320c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/htdp-test/tests/stepper/test-cases.rkt b/htdp-test/tests/stepper/test-cases.rkt
@@ -1227,7 +1227,7 @@
        ,@defs
        (big-bang 4 [stop-when zero?] [close-on-stop #true]
          [to-draw draw]
-         [on-tick sub1 1/8])
+         [on-tick sub1 1/16])
        ;; The initial `draw` before the clock starts ticking
        :: ,@defs {(empty-scene 50 50)} -> ,@defs {,img}
        :: ... -> ,@defs {(empty-scene 50 50)} -> ,@defs {,img}   ;; `draw` for w = 3
@@ -1248,7 +1248,7 @@
          [to-draw (lambda (w)
                     (overlay (drawobj (first w))
                              (empty-scene 60 60)))]
-         [on-tick next 1/5])
+         [on-tick next 1/10])
        :: ,@defs {(circle 25 "solid" "red")} -> ,@defs {,img}
        :: ... -> ,@defs {(rest (list 25 18 11))}     ->  ,@defs {(list 18 11)} ;; next
        :: ... -> ,@defs {(circle 18 "solid" "red")}  ->  ,@defs {,img}         ;; drawobj