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
|
; init.lsp -- default Nyquist startup file
(print "nyquist/test/init.lsp is loading...")
(load "nyinit.lsp")
(setf *breakenable* t)
(setf *tracenable* t)
; add your customizations here:
; e.g. (setf *default-sf-dir* "...")
;(echoenabled nil)
;(play (pluck c4 0.1))
;(print "type something to continue")
;(read)
;(load "convolve")
;(setf echoes (simrep (i 3) (at (* i 0.2) (cue impulse))))
;(setf echoes (sim (cue impulse) (at (/ 32768.0 44100) (cue impulse))))
;(display "len" (snd-length echoes ny:all))
;(play (snd-convolve (pluck c4 4.0) echoes))
;(echoenabled nil)
;(sal-load "phasevocoder.sal")
;(load "long.lsp")
(setf *gc-flag* nil)
;(snd-set-max-audio-mem 5000000)
;(gc)
;(info)
;(play (setf xxx (osc c4 35)))
;(setf xx (snd-from-array 0 100.0 (vector 0 1 2 3 4 5 6 7 8 9)))
;(setf yy (force-srate 70 xx))
;(print (snd-samples yy 100))
;(s-plot (convolve (pluck c4) (osc c7 0.01)))
;(sal)
;(load "typecheck-gen.lsp")
;(load "typecheck-fns.lsp")
;(load "typechecks.lsp")
;(load "xmtest.lsp")
;(load "regression-test.lsp" :verbose t)
;(sal-load "convolve-extract.sal")
;(sal-load "sndsamples-test.sal")
;(load "trigger.lsp")
;(load "pianotest")
(load "pvtest2")
(print "----------- END OF INIT.LSP -----------")
(print "----------- EXIT NYQUIST NOW ----------")
(exit)
|
