;; this is what's called entity or plane space. Here when the grid is
;; set to 100 the position (6 . 7) means the 6th square horizontally and
;; 7th square vertically, or 600 pixels horiz. and 700 pixels vert.
-;(defmethod x ((s screen) &optional (p t))
-; "returns the x position in real space (or in a grid of 1 pixel span)"
-; (car (slot-value s 'coordinate)))
-;(defmethod y ((s screen) &optional (p t))
-; "returns the y position in real space (or in a grid of 1 pixel span)"
-; (cdr (slot-value s 'coordinate)))
-;(defmethod width ((s screen) &optional (p t))
-; "returns the width in real space (or in a grid of 1 pixel span)"
-; (car (slot-value s 'size)))
-;(defmethod height ((s screen) &optional (p t))
-; "returns the height in real space (or in a grid of 1 pixel span)"
-; (cdr (slot-value s 'size)))
(defmethod x ((s screen))
"returns the x position in real space (or in a grid of 1 pixel span)"
(car (slot-value s 'coordinate)))
(defmethod initialize-instance :after ((s screen) &rest args)
(setf (surface s) (sdl2-image:load-image (slot-value s 'path))))
-;(defmethod source ((s screen))
-; "return the source rectangle, the portion of texture to display (standard all)"
-; nil)
-
(defmethod screen-source ((s screen))
"return the source rectangle, the portion of texture to display (standard all)"
nil)
-;; the functions x, y, w and h are meant to be tampered with, in the entity this
-;; function will be redifined to account for size and grid size, while planes will
-;; use the surface width and height
-;(defmethod destination ((s screen) &optional (p nil))
-; "returns the destination rectangle, or where the screen should be displayed"
-; (sdl2:make-rect (x s p) (y s p) (width s p) (height s p)))
-
(defmethod screen-destination ((s screen) (p t))
+ "Without a plane of reference screens are printed full size offset of x and y
+pixels from the upper left angle of the window"
(sdl2:make-rect (x s) (y s) (width s) (height s))
)
OSDN Git Service
