-
Notifications
You must be signed in to change notification settings - Fork 0
/
.lein-repl-history
38 lines (38 loc) · 1.01 KB
/
.lein-repl-history
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
(use 'overtone.live)
(envelope [0 0.5 1] [1 1] :step)
(demo (sin-osc))
(sorted-set [0 1])
(main [{:color 0 :dissonance 0 :gravity 0}])
main
voice-progression
(quit)
(require '[scherz.play :refer :all])
(quit)
main
-main
(main [{:color 0 :dissonance 0 :gravity 0}] [:lydian])
(quit)
(main [{:color 0 :dissonance 0 :gravity 0}] [:lydian])
`(def color [0 0.4 0 0])`
(def color [0 0.4 0 0])
(def dissonance [0 0.5 0.8 0])
(def gravity [0 0 0 0])
(def tensions (map (fn [c d g] {:color c :dissonance d :gravity g}) color dissonance gravity)])
(def tensions (map (fn [c d g] {:color c :dissonance d :gravity g}) color dissonance gravity))
(def scales [:major :diminished])
(main tensions scales)
(:require scherz.play)
(in-ns scherz.play)
(in-ns 'scherz.play)
color
(in-ns 'scherz.generate)
color
(:require 'scherz.play)
(:require 'scherz.play :refer)
play-progression
scherz.play/play-progression
(refer 'scherz.play)
play-progression
(require '[scherz.play :refer [play-progression]])
(play-progression (main tensions scales))
(quit)