- ((images :initarg :images
- :initform (make-array (list 0) :element-type 'sdl:surface)
- :accessor images
-; :type (simple-array 'sdl:surface (*))
- :documentation "Array with the images")
+ (
+;; (images :initarg :images
+;; :initform (make-array (list 0) :element-type 'sdl:surface)
+;; :accessor images
+;; ; :type (simple-array 'sdl:surface (*))
+;; :documentation "Array with the images")
+ (images-2x :initarg :images-2x
+ :initform (make-array (list 0) :element-type 'sdl:surface)
+ :accessor images-2x
+ :documentation "Array of double-sized images")
+ (images-1x :initarg :images-1x
+ :initform (make-array (list 0) :element-type 'sdl:surface)
+ :accessor images-1x
+ :documentation "Array of normal-sized images")
+ (images-.5x :initarg :images-.5x
+ :initform (make-array (list 0) :element-type 'sdl:surface)
+ :accessor images-.5x
+ :documentation "Array of half-sized images")
+ (images-.25x :initarg :images-.25x
+ :initform (make-array (list 0) :element-type 'sdl:surface)
+ :accessor images-.25x
+ :documentation "Array of quarter-sized images")