home *** CD-ROM | disk | FTP | other *** search
/ Freelog 54 / Freelog054.iso / Solution / Audio / Audacity / Nyquist / seqfnint.lsp < prev    next >
Encoding:
Lisp/Scheme  |  2002-09-16  |  918 b   |  32 lines
  1.  
  2.         (setfn seq-tag first)
  3.         (setfn seq-time second)
  4.         (setfn seq-line third)
  5.         (setfn seq-channel fourth)
  6.         (defun seq-value1 (e) (nth 4 e))
  7.         (setfn seq-pitch seq-value1) ; pitch of a note
  8.         (setfn seq-control seq-value1) ; control number of a control change
  9.         (setfn seq-program seq-value1) ; program number of a program change
  10.         (setfn seq-bend seq-value1) ; pitch bend amount
  11.         (setfn seq-touch seq-value1) ; aftertouch amount
  12.         (defun seq-value2 (e) (nth 5 e))
  13.         (setfn seq-velocity seq-value2) ; velocity of a note
  14.         (setfn seq-value seq-value2) ; value of a control change
  15.         (defun seq-duration (e) (nth 6 e))
  16.         
  17.  
  18.  (setf seq-done-tag 0) 
  19.  
  20.  (setf seq-other-tag 1) 
  21.  
  22.  (setf seq-note-tag 2) 
  23.  
  24.  (setf seq-ctrl-tag 3) 
  25.  
  26.  (setf seq-prgm-tag 4) 
  27.  
  28.  (setf seq-touch-tag 5) 
  29.  
  30.  (setf seq-bend-tag 6) 
  31.  
  32.