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

just cleanup

Browse Source
This commit is contained in:
efim
2022-09-05 17:54:18 +00:00
parent 38eab3f355
commit 0ae86a5f51
3 changed files with 32 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
2022-09-04-more-synths-and-chord-progressions.lisp
View File

@@ -236,9 +236,9 @@
:instrument :fmrhodes1
:octave 3
:degree (pseq (list 0 1 4 8 (prest 0) 0 2 4 7 4 2) 1))
(play :hm-lallaa)
(end :hm-lallaa)
(stop :hm-lallaa)
;; (play :hm-lallaa)
;; (end :hm-lallaa)
;; (stop :hm-lallaa)
;; yup, that's a pause, cool
;; so, do I bring that stuff into a separate file?
@@ -265,9 +265,9 @@
:base 2
:root 5
)
(play :hm-chords-progression)
(end :hm-chords-progression)
(stop :hm-chords-progression)
;; (play :hm-chords-progression)
;; (end :hm-chords-progression)
;; (stop :hm-chords-progression)
;; so, what's a good way to use them? just wrap separately into #'CHORD-NOTES
;; maybe at least for now
@@ -291,9 +291,9 @@
:base 2
:root 5
)
(play :hm-chords-progress-em-g-am-c)
(end :hm-chords-progress-em-g-am-c)
(stop :hm-chords-progress-em-g-am-c)
;; (play :hm-chords-progress-em-g-am-c)
;; (end :hm-chords-progress-em-g-am-c)
;; (stop :hm-chords-progress-em-g-am-c)
;; Am – F – C – G (i – VI – III – VII)
(pb :hm-chords-progress-am-f-c-g
@@ -306,24 +306,27 @@
:base 2
:root 5
)
(play :hm-chords-progress-am-f-c-g)
(end :hm-chords-progress-am-f-c-g)
(stop :hm-chords-progress-am-f-c-g)
;; (play :hm-chords-progress-am-f-c-g)
;; (end :hm-chords-progress-am-f-c-g)
;; (stop :hm-chords-progress-am-f-c-g)
;; IV V iii vi (from video on japan's favourite chord progression)
;; https://youtu.be/6aezSL_GvZA
(pb :hm-chords-progress-golden-road
:instrument :strings
;; :instrument :violin
:instrument :fmrhodes1
:octave 4
:amp 0.2
:legato 1
;; :degree (pseq (mapcar #'chord-notes (list :major :minor :maj7 :major)) 1) ; works, but can't insert (prest 0) among chords
;; :degree (pseq (list (chord :major) (chord :minor) (chord :maj7) (chord :major)) 1) ; doesn't seem to work
:degree (pseq (list (nchord :major 3) (nchord :major 4) (nchord :minor 2) (nchord :minor 5) ) 1) ; doesn't seem to work
;; :degree (pseq (list 1 2 3) 1) ; doesn't seem to work
:dur (pseq (list 4 4 4 4 ))
:root 0)
(play :hm-chords-progress-golden-road)
(end :hm-chords-progress-golden-road)
(stop :hm-chords-progress-golden-road)
;; (play :hm-chords-progress-golden-road)
;; (end :hm-chords-progress-golden-road)
;; (stop :hm-chords-progress-golden-road)
;; does it sound like in the video then?
@@ -332,3 +335,11 @@
;; - giving (note/chord) and rhythm to get form that single note
;; latter should be possible from defining a subpattern? with static note?
;;; now, I'd like to use (render (pdef :your-pattern) "/path/to/output.wav" :dur 4)
;; for that I'd need to use more recent version than I get from quicklisp, so clone repo
quicklisp:*local-project-directories*
(ql:register-local-projects)
(ql:where-is-system :cl-patterns) ;; #P"/home/efim/quicklisp/local-projects/cl-patterns/"
;; (render (pdef :hm-chords-progress-golden-road) "/tmp/chords-4.wav" :dur 16)