home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / work-in-progress / simple-sprite.lisp < prev    next >
Encoding:
Text File  |  1992-04-03  |  1.1 KB  |  61 lines
  1. (in-package  :oou)
  2. (oou-provide :simple-sprite)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; screen-3buf.Lisp
  5. ;;
  6. ;; Copyright ⌐ 1992 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; Class of sprites for animating graphics
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies )
  15.  
  16. (export '())
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19.  
  20. (defclass simple-sprite ()
  21.  
  22.   (
  23.    (image-bits :initarg :image-bits
  24.                :accessor image-bits)
  25.    (saved-bits :initarg :saved-bits
  26.                :accessor saved-bits)
  27.    (image-rect :initarg :image-rect
  28.                :accessor image-rect)
  29.    (saved-rect :initarg :saved-rect
  30.                :accessor saved-rect)
  31.    
  32. )
  33.  
  34. (:default-initargs
  35.  
  36. ))
  37.  
  38. (defmethod show-sprite ((s sprite))
  39.  
  40. )
  41.  
  42. (defmethod hide-sprite ((s sprite))
  43.  
  44. )
  45.  
  46. (defmethod move-sprite-to ((s sprite) h &optioanl v)
  47. )
  48.  
  49. (defmethod move-sprite ((s sprite) h &optioanl v)
  50. )
  51.  
  52.  
  53. (defmethod activate-sprite ((s sprite))
  54.  
  55. )
  56.  
  57. (defmethod deactivate-sprite ((s sprite))
  58.  
  59. )
  60.  
  61.