File: warp.lsp

package info (click to toggle)
nyquist 3.20%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 58,008 kB
  • sloc: ansic: 74,743; lisp: 17,929; java: 10,723; cpp: 6,690; sh: 171; xml: 58; makefile: 40; python: 15
file content (12 lines) | stat: -rw-r--r-- 254 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(defun line () (seqrep (i 20) (pluck1 (+ 24 (random 12)))))

(defun pluck1 (p)
  (display "pluck1" (local-to-global 0) (local-to-global 1))
  (pluck p))

(play (warp (mult (pwl 21 2.5) (pwl 21 2.5)) (line)))

(s-plot (mult (pwl 11 2.5) (pwl 11 2.5)))