Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-12-02 14:50:17 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to SVN r331

Browse Source
This commit is contained in:
Leland Lucius
2021-01-28 02:13:05 -06:00
parent 29d35e46e9
commit 586b86a77f
11 changed files with 453 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
nyquist/seqfnint.lsp
View File

@@ -1,19 +1,19 @@
(setfn seq-tag first)
(setfn seq-time second)
(setfn seq-line third)
(setfn seq-channel fourth)
(defun seq-value1 (e) (nth 4 e))
(setfn seq-pitch seq-value1) ; pitch of a note
(setfn seq-control seq-value1) ; control number of a control change
(setfn seq-program seq-value1) ; program number of a program change
(setfn seq-bend seq-value1) ; pitch bend amount
(setfn seq-touch seq-value1) ; aftertouch amount
(defun seq-value2 (e) (nth 5 e))
(setfn seq-velocity seq-value2) ; velocity of a note
(setfn seq-value seq-value2) ; value of a control change
(defun seq-duration (e) (nth 6 e))
(setfn seq-tag first)
(setfn seq-time second)
(setfn seq-line third)
(setfn seq-channel fourth)
(defun seq-value1 (e) (nth 4 e))
(setfn seq-pitch seq-value1) ; pitch of a note
(setfn seq-control seq-value1) ; control number of a control change
(setfn seq-program seq-value1) ; program number of a program change
(setfn seq-bend seq-value1) ; pitch bend amount
(setfn seq-touch seq-value1) ; aftertouch amount
(defun seq-value2 (e) (nth 5 e))
(setfn seq-velocity seq-value2) ; velocity of a note
(setfn seq-value seq-value2) ; value of a control change
(defun seq-duration (e) (nth 6 e))
(setf seq-done-tag 0)