home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / work-in-progress / sprite-controller.lisp < prev   
Encoding:
Text File  |  1992-04-08  |  572 b   |  36 lines
  1.  
  2. (defclass sprite-controller ()
  3.   
  4.   
  5.   ((s3buf       :accessor s3buf)
  6.    (sprite-list :initarg :sprite-list
  7.                 :accessor sprite-list)
  8.    (controller-position )
  9.    (controller-size )
  10.    
  11.    
  12.    )
  13.   
  14.   (:default-initargs
  15.     
  16.     ))
  17.  
  18.  
  19. (defmethod initialize-instance :after ((sc sprite-controller) &rest initargs)
  20.   (declare (dynamic-extent initargs))
  21.  
  22. )
  23.  
  24. (defmethod show-sprites ((sc sprite-controller))
  25.  
  26. )
  27.  
  28. (defmethod set-controller-position ((sc sprite-controller) h &optional v)
  29.  
  30. )
  31.  
  32. (defmethod set-controller-size ((sc sprite-controller) h &optional v)
  33.  
  34. )
  35.  
  36.