1 files changed, 11 insertions(+), 1 deletions(-)

M fairy.lisp

@@ 32,7 32,9 @@
            add-child
            get-child
            delete-child
-           delete-child-with-key))
+           delete-child-with-key
+           image
+           key))
 
 (cl:in-package :fairy)
 


@@ 128,3 130,11 @@
   (if test
       (setf (children el) (remove key (children el) :key #'car :test test))
       (setf (children el) (remove key (children el) :key #'car))))
+
+(defclass image (fairy:element)
+  ((key :initarg :key
+       :initform (error "must supply a resource key")
+       :accessor key)))
+
+(defdraw (el image)
+    (gamekit:draw-image (gamekit:vec2 0 0) (key el)))