1 ;;; Copyright 2009 Christoph Senjak
3 (in-package :uxul-world)
5 (defclass leaf (bottom)
6 ((animation :initarg :animation
8 :initform (make-animation 0 |leaf|))
12 (height :initarg :height
15 (animation-translation :initarg :animation-translation
16 :accessor animation-translation
17 :initform (make-xy -7 -30))
20 (defclass tulip (standing-item)
21 ((animation :initarg :animation
23 :initform (make-animation 10 |tulip| |tulip2| |tulip| |tulip3|))
24 (width :initarg :width
27 (height :initarg :height