home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / examples / video-example.lisp < prev   
Encoding:
Text File  |  1992-02-13  |  3.5 KB  |  86 lines
  1. ;a modest example - video view w/ controls
  2. ;has been tested with:
  3. ; Pioneer 8000 lasedisc player
  4. ; RasterOps 364 video digitizer
  5. ; MoonRaker video digitizer
  6.  
  7. (oou-dependencies :video-wm
  8.                   :video-svm
  9.                   
  10.                   :P8000-vp
  11.                   
  12.                   :MR-vd
  13.                   :RO364-vd)
  14.  
  15.  
  16. (defclass vview (video-svm simple-view) ())
  17.  
  18. (progn
  19.   (defparameter *test-w* nil)
  20.   (setf *test-w*
  21.     (make-instance
  22.      'video-dialog
  23.      :window-type :document
  24.      :view-size #@(320 340)
  25.      :window-title "video demo"
  26.      :color-p t
  27.      :view-subviews
  28.      (list
  29.        (make-instance 'vview
  30. ;                      :digitizer-class 'RO364-vd
  31.                        :digitizer-class 'MR-vd
  32.                        :player-class    'P8000-vp
  33.                        :port :printer
  34.                        :view-position   #@(10 10)
  35.                        :view-size       #@(300 250)                  
  36.                        :view-nick-name  :vview
  37.                        :framehook-fn #'(lambda (frame)
  38.                                          (set-dialog-item-text (view-named :cur-frame *test-w*) (princ-to-string frame)))
  39.                        )
  40.        (make-instance 'button-dialog-item
  41.                        :view-size #@(30 20)
  42.                        :dialog-item-text "<<<"
  43.                        :dialog-item-action #'(lambda (di) (vp-jump (view-named :vview (view-container di)) :reverse 500)))
  44.        (make-instance 'button-dialog-item
  45.                        :view-size #@(30 20)
  46.                        :dialog-item-text "<<"
  47.                        :dialog-item-action #'(lambda (di) (vp-scan (view-named :vview (view-container di)) :reverse 4)))
  48.        (make-instance 'button-dialog-item
  49.                        :view-size #@(30 20)
  50.                        :dialog-item-text "|<"
  51.                        :dialog-item-action #'(lambda (di) (vp-step (view-named :vview (view-container di)) :reverse)))
  52.        (make-instance 'button-dialog-item
  53.                        :view-size #@(30 20)
  54.                        :dialog-item-text "Ñ"
  55.                        :dialog-item-action #'(lambda (di) (vp-stop (view-named :vview (view-container di)))))
  56.        (make-instance 'button-dialog-item
  57.                        :view-size #@(30 20)
  58.                        :dialog-item-text ">|"
  59.                        :dialog-item-action #'(lambda (di) (vp-step (view-named :vview (view-container di)) :forward)))
  60.        (make-instance 'button-dialog-item
  61.                        :view-size #@(30 20)
  62.                        :dialog-item-text ">"
  63.                        :dialog-item-action #'(lambda (di) (vp-play (view-named :vview (view-container di)))))
  64.        (make-instance 'button-dialog-item
  65.                        :view-size #@(30 20)
  66.                        :dialog-item-text ">>"
  67.                        :dialog-item-action #'(lambda (di) (vp-scan (view-named :vview (view-container di)) :forward 4)))
  68.        (make-instance 'button-dialog-item
  69.                        :view-size #@(30 20)
  70.                        :dialog-item-text ">>>"
  71.                        :dialog-item-action #'(lambda (di) (vp-jump (view-named :vview (view-container di)) :forward 500)))
  72.        (make-instance 'static-text-dialog-item
  73.                        :dialog-item-text "current frame number:")
  74.        (make-instance 'static-text-dialog-item
  75.                        :view-nick-name :cur-frame
  76.                        :view-size #@(100 20)
  77.                        :dialog-item-text "????????")
  78.        )))
  79.   (vp-load (view-named :vview *test-w*))
  80.   )
  81.  
  82. #|
  83.  
  84. (vp-play-clip (view-named :vview *test-w*) 10 50)
  85.  
  86. |#