(defun make-resource-font (&key filename encoding)
`(:type font :filename ,filename :enconding ,encoding))
+(defun make-resource-sound (&key filename)
+ `(:type sound :filename ,filename))
+
+(defun make-resource-music (&key filename)
+ `(:type music :filename ,filename))
+
(defmacro get-rtime (key)
`(resource-time (gethash ,key resources-table)))
(do () ((quit?))
(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
(to-origin)
+ (refresh-visible-boxes)
(when (functionp game-code) (funcall game-code))
+ (render-boxes)
(SDL_GL_SwapBuffers)
(delay-frame)
(init-frame-time)
(free-all-resources)
(quit-audio)
(quit-video-mode)
- (quit-all-mobs)
+; (quit-all-mobs)
+ (quit-all-boxes)
; (clear-events)
; (quit-events)
(quit-sdl))