[remove] affine functions

1 files changed, 2 insertions, 13 deletions

diff --git a/wheelwork.lisp b/wheelwork.lisp
index 8638c60..c9ce939 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -25,6 +25,7 @@
   whole groups of units"))
 
 (defgeneric drop-unit (unit))
+(defgeneric add-unit (container unit))
 
 (defmethod drop-unit ((unit unit))
   "Removes a unit from its container. Returns T if the unit actually was removed."
@@ -34,8 +35,6 @@
      (unit-container unit) nil)
     t))
 
-(defgeneric add-unit (container unit))
-
 (defmethod add-unit ((container container) (unit unit))
   "Adds a unit to the end of a container (thus affecting render
 order). Makes sure to remove the unit from its current container if
@@ -47,6 +46,7 @@ necessary."
                (list unit)))
   unit)
 
+
 (defclass/std event-handler ()
   ((event-type handler-function :ri))
   (:metaclass closer-mop:funcallable-standard-class))
@@ -290,17 +290,6 @@ necessary."
 
 
 
-(defgeneric translate-by (thing dx dy))
-(defgeneric rotate-by (thing radians))
-(defgeneric scale-by (thing sx sy))
-(defgeneric pixel-width (thing))
-(defgeneric (setf pixel-width) (newval thing))
-(defgeneric pixel-height (thing))
-(defgeneric (setf pixel-height) (newval thing))
-
-(defgeneric visible-pixel-at-p (object x y)
-  (:documentation "returns T if the visible pixel at screen
-  coordintaes x and y belogns to object. Used for event handling."))
 
 (defgeneric model-matrix (thing)
   (:documentation "Returns the model matrix"))