File: delaytest.lsp

package info (click to toggle)
nyquist 3.12%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 58,036 kB
  • sloc: ansic: 74,355; lisp: 20,485; java: 9,390; cpp: 6,695; sh: 207; xml: 58; makefile: 39
file content (12 lines) | stat: -rw-r--r-- 282 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
 
; test delay using seq and s-rest

(setf *vc-score* '((0 1 (pluck c4))))

(defun long-delay (in)
  (sum in (seq (s-rest 0.3) (cue in))))

;(play (timed-seq *vc-score*))

;(play (long-delay (timed-seq *vc-score*)))

;(play (sim (timed-seq *vc-score*) (at 2 (timed-seq *vc-score*))))