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

Add (commented-out) debug aids

This commit is contained in:
Tony Garnock-Jones 2015-10-27 12:23:02 -04:00
parent 543a1753ca
commit e2dfe2fe78
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
prospect-gl/2d.rkt
View File

@ -299,6 +299,7 @@
;; Remove old sprites first, to recycle their texture identifiers (if any)
(for [(s removed)] (remove-sprite! sprites s))
(for [(s added)] (add-sprite! sprites s))
;; (log-info "~a sprites" (splay-tree-count sprites))
(flush-texture-cache!))
(define (process-stop-requests! p)

6
prospect-gl/texture.rkt
View File

@ -72,6 +72,7 @@
(define/public (dispose)
(set! ref-count (- ref-count 1))
(when (zero? ref-count)
;; (log-info "releasing texture cache entry for ~a" key)
(hash-remove! texture-cache key)
(hash-set! texture-second-chances key this)))
@ -85,11 +86,13 @@
(lambda ()
(define t (cond
[(hash-has-key? texture-second-chances key)
;; (log-info "recycling texture cache entry for ~a" key)
(define t (hash-ref texture-second-chances key))
(hash-remove! texture-second-chances key)
t]
[else
(define bm (key->bitmap key))
;; (log-info "allocating new texture cache entry for ~a" key)
(new entry% [key key] [texture (new texture% [bitmap bm])])]))
(hash-set! texture-cache key t)
t)))
@ -98,6 +101,9 @@
(define (flush-texture-cache!)
(define now (current-seconds))
;; (log-info "~a cache entries, ~a second-chances"
;; (hash-count texture-cache)
;; (hash-count texture-second-chances))
(when (> now (+ last-flush 10))
;; (log-info "flushing texture cache (~a entries)" (hash-count texture-second-chances))
(for [(entry (in-hash-values texture-second-chances))] (send entry *cleanup))