syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove own GC tuning in favour of prospect-gl feature.

This commit is contained in:
Tony Garnock-Jones 2016-03-27 12:08:31 -04:00
parent 0e4473f430
commit d478403e7d
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
examples/platformer/main.rkt
View File

@ -577,7 +577,6 @@
(evaluate-jump-request id s)] (evaluate-jump-request id s)]
[(message (at-meta (at-meta (at-meta (frame-event counter _ elapsed-ms _))))) [(message (at-meta (at-meta (at-meta (frame-event counter _ elapsed-ms _)))))
(when (zero? (modulo counter 10)) (when (zero? (modulo counter 10))
(collect-garbage 'incremental)
(log-info "Instantaneous frame rate at frame ~a: ~a Hz" (log-info "Instantaneous frame rate at frame ~a: ~a Hz"
counter counter
(/ 1000.0 elapsed-ms))) (/ 1000.0 elapsed-ms)))
@ -933,18 +932,18 @@
))) )))
(define (spawn-numbered-level level-number) (define (spawn-numbered-level level-number)
(collect-garbage 'major) (list (message (at-meta (at-meta (request-gc))))
(if (< level-number (length (force levels))) (if (< level-number (length (force levels)))
(list-ref (force levels) level-number) (list-ref (force levels) level-number)
(spawn-standalone-assertions (spawn-standalone-assertions
(update-sprites #:meta-level 2 (update-sprites #:meta-level 2
(let ((message (text "You won!" 72 "red"))) (let ((message (text "You won!" 72 "red")))
(simple-sprite 0 (simple-sprite 0
10 10
100 100
(image-width message) (image-width message)
(image-height message) (image-height message)
message)))))) message)))))))
(define (spawn-level-spawner starting-level) (define (spawn-level-spawner starting-level)
(struct level-spawner-state (current-level level-complete?) #:prefab) (struct level-spawner-state (current-level level-complete?) #:prefab)