blob: 2bccb86c121108924a93030dbf70aabb4a4f0732 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
;;;; protocol.lisp
(in-package #:wheelwork)
(defgeneric boot (app)
(:documentation "Specialized for each subclass of
APPLICATION. Responsble for setting the app up once the system
resoruces are avaialble."))
(defgeneric shutdown (app)
(:documentation "Specialzied for each subclass of
APPLICATION. Called just before cleanup.")
(:method ((any t)) nil))
(defgeneric cleanup (thing)
(:documentation "Clean up applications, textures, and other foreign
resources. Called after shutodown.")
(:method ((any t)) nil))
(defgeneric render (thing)
(:documentation "Renders thing for visual display."))
(defgeneric model-matrix (thing)
(:documentation "Returns the model matrix for THING, representing
its position, scale, and orientation in the scene"))
(defgeneric ensure-loaded (asset)
(:documentation "Ensures that the asset is loaded into memory and
ready for use. Returns the asset."))
(defgeneric width (thing)
(:documentation "Returns the effective width, in screen coordinates, of the object in question"))
(defgeneric (setf width) (new-width thing)
(:documentation "Sets the effective width of thing to new-width."))
(defgeneric height (thing)
(:documentation "Returns effective height, in screen coordinates, of the object in question."))
(defgeneric (setf height) (new-height thing)
(:documentation "sets the effective height of thing to new-height"))
(defgeneric rotation (thing)
(:documentation "Rotational angle of thing in radians about its center."))
(defgeneric (setf rotation) (newval thing))
(defgeneric x (thing)
(:documentation "X position of the bottom left corner in scaled coordinates"))
(defgeneric (setf x) (newval thing))
(defgeneric y (thing)
(:documentation "Y position of bottom left corner in scaled coordinates"))
(defgeneric (setf y) (newval thing))
(defgeneric scale-x (thing)
(:documentation "Horizontal scale factor"))
(defgeneric (setf scale-x) (newvval thing))
(defgeneric scale-y (thing)
(:documentation "Vertical Scale Vactor"))
(defgeneric (setf scale-y) (newval thing))
(defgeneric get-rect (affine)
(:documentation "Returns a list of vectors representing the path of
the smallest rectangle that encloses the affine-unit. The rectangle
is scaled and rotated. These vectors have been made using 3D-VECTORS:VEC"))
|
