blob: 12ff4873c8623860c2e1a89ee8708c0eb776e9f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
;; equalizer.lsp -- support functions for equalizer editor in jNyqIDE
#| This is modeled after envelopes.lsp, which details how envelope data is
exchanged between Nyquist and jNyqIDE.
The jNyqIDE code needs some work to make it look like the envelope
editor (which also needs work, but that's another matter). For consistency,
both should support named envelopes and equalizers.
However, for now, we have equalizers numbered from 0 to 9. The format for
exchange will be:
get-eq-data: begin
name parameters newline
name parameters newline
...
get-eq-data: end
and when the IDE wants to save a definition, it should call
(DEFINE-EQ 'NAME 'PARAMETER-LIST)
|#
(cond ((not (boundp '*equalizers*))
(setf *equalizers* nil)))
;; DEFINE-EQ -- save the eq data and make corresponding function
;;
(defun define-eq (name expression)
(setf *equalizers* (remove name *equalizers*
:test #'(lambda (key item) (eql key (car item)))))
(push (list name expression) *equalizers*)
(make-eq-function name expression)
; make sure equalizers are redefined when workspace is loaded
(add-to-workspace '*equalizers*)
(describe '*equalizers* "data for equalizers in jNyqIDE")
(add-action-to-workspace 'make-eq-functions)
nil)
;; MAKE-EQ-FUNCTION -- convert data to a defined function
;;
(defun make-eq-function (name parameters)
(cond ((numberp name)
(setf name (intern (format nil "EQ-~A" name)))))
(if (not (boundp '*grapheq-loaded*)) (load "grapheq.lsp"))
(setf (symbol-function name)
(eval `(lambda (s) (nband-range s ',parameters 60 14000)))))
;; MAKE-EQ-FUNCTIONS -- convert data to defined functions
;;
(defun make-eq-functions ()
(let (name type parameters)
(dolist (eq *equalizers*)
(setf name (car eq))
(setf parameters (second parameters))
(make-eq-function name parameters))))
;; GET-EQ-DATA -- print env data for IDE
;;
(defun get-eq-data ()
(let (parameters)
(princ "get-eq-data: begin\n")
(dolist (env *equalizers*)
(format t "~A" (car env))
(setf parameters (second env))
(dotimes (i (length parameters))
(format t " ~A" (aref parameters i)))
(format t "~%"))
(princ "get-eq-data: end\n")
nil))
|
