efim/cl-patterns-study
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

day 3 - some instruments, and first recording

Browse Source
This commit is contained in:
efim
2022-08-20 12:59:29 +00:00
parent c563cae51b
commit da7eaa45b5
3 changed files with 327 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
2022-08-19-patterns-guide.lisp
View File

@@ -181,7 +181,7 @@
(pb :what-note
:note (pseq '(0 1 2 3 4 5 6 7 (0 7)) 1)
:octave 3
:octave 5
:dur (pseq (concatenate 'list (make-list 7 :initial-element 1) '(2 4)))
:play-quant 4
)
@@ -283,19 +283,24 @@
(all-scales)
(all-tunings)
(defparameter *some-chord* (chord "Major Triad"))
(chord-notes *some-chord*)
;;; can I just use chord as :note ?
(mapcar #'chord-notes (list (chord "Major Triad") (chord "Minor Triad")))
(pb :what-predef-chord
:note (pseq `((chord "Major Triad") (chord "Minor Triad")))
:note (pseq (mapcar #'chord-notes (list (chord "Major Triad") (chord "Minor Triad") (chord "Minor 7th") (chord "Major 7th") (chord "Diminished Triad") (chord "Major Triad"))) 1)
:octave 4
:root 2
:dur (pseq '(2 2) 1)
:dur (pseq '(2 2 4))
;; :play-quant 4
)
(play :what-predef-chord)
(end :what-predef-chord)
(in-package #:cl-collider)
(proxy :foo (sin-osc.ar 440 0 0.2))