home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / MCLs-funniest-home-videos / video-players / P4200-vp.lisp < prev    next >
Encoding:
Text File  |  1992-01-23  |  1.3 KB  |  51 lines
  1. (in-package :oou)
  2. (oou-provide :P4200-vp)
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; P4200-vp.lisp
  5. ;;
  6. ;; Copyright ⌐ 1991 Northwestern University Institute for the Learning Sciences
  7. ;; All Rights Reserved
  8. ;;
  9. ;; author: Michael S. Engber
  10. ;;
  11. ;; video player class for Pioneer model 4200 laserdisc players
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (oou-dependencies
  15.  :Pioneer-vp
  16.  )
  17.  
  18. (export '(P4200-vp))
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21.  
  22. (defclass P4200-vp (Pioneer-vp) ())
  23.  
  24.  
  25. (defmethod vp-features ((vp P4200-vp))
  26.   (when (eq (disk-format vp) :CAV) '(:freeze :step :scan)))
  27.  
  28. (defmethod vp-freeze ((vp P4200-vp))
  29.   (when (eq (disk-format vp) :CAV)
  30.     (call-next-method)))
  31.  
  32. (defmethod vp-step ((vp P4200-vp) direction)
  33.   (declare (ignore direction))
  34.   (when (eq (disk-format vp) :CAV)
  35.     (call-next-method)))
  36.  
  37. (defmethod vp-scan ((vp P4200-vp) direction speed-x)
  38.   (declare (ignore end-frame direction speed-x))
  39.   (when (eq (disk-format vp) :CAV)
  40.     (call-next-method)))
  41.  
  42. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  43.  
  44. (defmethod pld-address-format ((ld P4200-vp) disk-format)
  45.   (ecase disk-format
  46.     (:CAV :frame)
  47.     (:CLV :hmmss)
  48.     (:CLV-E :hmmss)))
  49.  
  50. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  51.