small-classes.lisp

   1 ;;; Copyright 2009 Christoph Senjak
   2
   3 (in-package :uxul-world)
   4
   5 (defclass leaf (bottom)
   6   ((animation :initarg :animation
   7               :accessor animation
   8               :initform (make-animation 0 |leaf|))
   9    (width :initarg :width
  10           :accessor :width
  11           :initform 128)
  12    (height :initarg :height
  13            :accessor :height
  14            :initform 3)
  15    (animation-translation :initarg :animation-translation
  16                           :accessor animation-translation
  17                           :initform (make-xy -7 -30))
  18    ))
  19
  20 (defclass tulip (standing-item)
  21   ((animation :initarg :animation
  22               :accessor animation
  23               :initform (make-animation 10 |tulip| |tulip2| |tulip| |tulip3|))
  24    (width :initarg :width
  25           :accessor :width
  26           :initform 128)
  27    (height :initarg :height
  28            :accessor :height
  29            :initform 128)))