(set! audio #f))))
+;;; Resources Cache
+
+(define resources-cache (make-weak-value-hash-table))
+
+(define get-resource-from-cache #f)
+(define insert-resource-into-cache #f)
+
+(let ()
+ (set! get-resource-from-cache
+ (lambda (key)
+ (hash-ref resources-cache key)))
+
+ (set! insert-resource-into-cache
+ (lambda (key res)
+ (hash-set! resources-cache key res))))
+
;;; GaCeLa Functions
(define set-frames-per-second #f)
(catch #t
(lambda () (game-code))
(lambda (key . args) #f)))
- (run-mobs-logic mobs)
(cond ((video-mode-on?)
- (render-mobs mobs)
+ (run-mobs mobs)
(SDL_GL_SwapBuffers)))
(delay-frame))))
(set! running #f)))