; SLIME 2007-01-07
CL-USER> 
 /\\\          
---\\\---------
----\\\--------
----/\\\------- Common Music 2.10.0
---/--\\\------
--/----\\\-----
 /      \\\/   

; No value
CM> (cd "Users/labuser/Documents")
; Evaluation aborted
CM> (cd "/Users/labuser/Documents")
#P"/Users/labuser/Documents/"
CM> (load "week-03.lisp")
#P"/Users/labuser/Documents/week-03.lisp"
CM> (events (make-chord 5 3 7 50 0) "test.mid")
"test.mid"
CM> (events (make-chord 5 3 4 50 0) "test.mid")
"test.mid"
CM> (events (make-element 5 5 5 60 0) "test.mid")
"test.mid"
CM> (events (make-chord 5 3 7 50 0) "test.mid")
"test.mid"
CM> (events (make-chord 5 3 6 70 0) "test2.mid")
"test2.mid"
CM> (events (make-element 5 5 5 60 0) "test.mid")
"test.mid"
CM> (events (chord-sequence (list 1 2 3 5 8 13) 3.0 20 0) "test.mid")
"test.mid"
CM> (defparameter test-list (list 1 2 3 4))
TEST-LIST
CM> (CAR TEST-LIST)
1
CM> (car test-list)
1
CM> test-list
(1 2 3 4)
CM> (events (append (chord-sequence (list 4 7 9 11) 3.0 24 0) (chord-sequence (list 5 8 10 13) 3.0 36 0.2)) "test.mid")
"test.mid"
CM> (events (append (chord-sequence (list 4 7 9 11) 3.0 24 0) (chord-sequence (list 5 8 10 13) 3.0 36 12.33)) "test.mid")
"test.mid"
CM> (random 30)
3
CM> (random 30)
2
CM> (random 30)
17
CM> (random 30)
8
CM> (random 30)
26
CM> (random 30)
0
CM> (random 30)
24
CM> (random 30)
3
CM> (random 30)
13
CM> (random 30)
10
CM> (random 30.0)
4.9828143
CM> (random 30.0)
19.080564
CM> (random 30.0)
5.080966
CM> (random 30.0)
5.049157
CM> (random 30.0)
14.429806
CM> (random 30.0)
18.179108
CM> (random 30.0)
19.030403
CM> (random 30.0)
12.896997
CM> test-list
(1 2 3 4)
CM> (nth 0 test-list)
1
CM> (nth 1 test-list)
2
CM> (nth 2 test-list)
3
CM> (nth 3 test-list)
4
CM> (length test-list)
4
CM> (choose-from-gamut pitch-gamut)
7
CM> (choose-from-gamut pitch-gamut)
3
CM> (choose-from-gamut pitch-gamut)
6
CM> (choose-from-gamut pitch-gamut)
11
CM> (choose-from-gamut pitch-gamut)
3
CM> (choose-from-gamut amplitude-gamut)
0.35
CM> (choose-from-gamut amplitude-gamut)
0.3
CM> (choose-from-gamut amplitude-gamut)
0.2
CM> (choose-from-gamut amplitude-gamut)
0.3
CM> (choose-from-gamut amplitude-gamut)
0.4
CM> (choose-from-gamut amplitude-gamut)
0.3
CM> (choose-from-gamut amplitude-gamut)
0.3
CM> (events (generate-chord 5 pitch-gamut register-gamut 0 2 0.4) "test.mid")
"test.mid"
CM> (events (generate-chord 5 pitch-gamut register-gamut 0 2 0.4) "test.mid")
"test.mid"
CM> (events (gamut-chords 10 pitch-gamut register-gamut onset-gamut duration-gamut amplitude-gamut 0) "test.mid")
; Evaluation aborted
CM> (events (gamut-chords 10 pitch-gamut register-gamut onset-spacing-gamut duration-gamut amplitude-gamut 0) "test.mid")
"test.mid"
CM> (events (append 
	 (gamut-chords 20 pitch-gamut register-gamut onset-spacing-gamut duration-gamut amplitude-gamut 0.0) 
	 (gamut-chords 20 pitch-gamut register-gamut onset-spacing-gamut duration-gamut amplitude-gamut 0.0) 
	 (gamut-chords 20 pitch-gamut register-gamut onset-spacing-gamut duration-gamut amplitude-gamut 0.0))
	"test.mid")
"test.mid"
CM>