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

Update Nyquist system.lsp to the r288 version

Browse Source 
It removes the "s-plot" function which, when defined as it was in
our system.lsp, caused Nyquist initialization to fail.
This commit is contained in:
Leland Lucius
2020-01-14 09:44:32 -06:00
parent caf36b42ca
commit 333c6905b1
1 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
nyquist/system.lsp
View File

@@ -77,14 +77,25 @@
;; we also need to save the location of this file so we can find
;; nyquist-plot.txt, the command file for gnuplot
;;
(setf *runtime-path* (current-path))
(display "system.lsp" *runtime-path*)
(setfn standard-s-plot s-plot)
(defun s-plot (s &optional (n 1000) (dur 2.0))
(let (plot-file)
(standard-s-plot s n dur) ;; this calculates the data points
(setf plot-file (strcat *runtime-path* "nyquist-plot.txt"))
(system (strcat "gnuplot -persist " plot-file))))
;; This code is broken in the following ways:
;; it tries to run gnuplot even when plotting can be done by NyquistIDE
;; it plots "points.dat", but "points.dat" may not be correct
;; (see *default-plot-file*)
;; it assumes the plot file is in the current directory, but it
;; by default goes to the sound file directory
;;
;; Fix this code or complain if you want to plot with gnuplot while
;; running ny (or even NyquistIDE (jny) if you want). Otherwise, use
;; NyquistIDE to get s-plot to work.
;;
;(setf *runtime-path* (current-path))
;(display "system.lsp" *runtime-path*)
;
;(setfn standard-s-plot s-plot)
;
;(defun s-plot (s &optional (dur 2.0) (n 1000))
; (let (plot-file)
; (standard-s-plot s dur n) ;; this calculates the data points
; (setf plot-file (strcat *runtime-path* "nyquist-plot.txt"))
; (system (strcat "gnuplot -persist " plot-file))))