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

; No value
CM> (cd "Desktop")
#P"/Users/labuser/Desktop/"
CM> (load "week-06.lisp")
#P"/Users/labuser/Desktop/week-06.lisp"
CM> (make-phrase 0 
	     (list (list 60 67 72 78) (list 62 67 73 77) (list 65 67 74 76) 68)
	     (list 0.6 0.7 0.8 0.9)
	     (list 1.5 1.0 0.5 3))
(#i(midi time 0 keynum 60 duration 1.5 amplitude 0.6 channel 0) #i(midi time 0 keynum 67 duration 1.5 amplitude 0.6 channel 0) #i(midi time 0 keynum 72 duration 1.5 amplitude 0.6 channel 0) #i(midi time 0 keynum 78 duration 1.5 amplitude 0.6 channel 0) #i(midi time 1.5 keynum 62 duration 1.0 amplitude 0.7 channel 0) #i(midi time 1.5 keynum 67 duration 1.0 amplitude 0.7 channel 0) #i(midi time 1.5 keynum 73 duration 1.0 amplitude 0.7 channel 0) #i(midi time 1.5 keynum 77 duration 1.0 amplitude 0.7 channel 0) #i(midi time 2.5 keynum 65 duration 0.5 amplitude 0.8 channel 0) #i(midi time 2.5 keynum 67 duration 0.5 amplitude 0.8 channel 0) #i(midi time 2.5 keynum 74 duration 0.5 amplitude 0.8 channel 0) #i(midi time 2.5 keynum 76 duration 0.5 amplitude 0.8 channel 0) #i(midi time 3.0 keynum 68 duration 3 amplitude 0.9 channel 0))
CM> (events (make-phrase 0 
		     (list (list 60 67 72 78) (list 62 67 73 77) (list 65 67 74 76) 68)
		     (list 0.6 0.7 0.8 0.9)
		     (list 1.5 1.0 0.5 3))
	"test.mid")
"test.mid"
CM> (events (make-phrase 0 
		     (list (list 60 67 72 78) (list 62 67 73 77) (list 65 67 74 76) 75)
		     (list 0.6 0.7 0.8 0.9)
		     (list 1.5 1.0 0.5 3))
	"test.mid")
"test.mid"
CM> (mapcar #'(lambda (x) (* x x)) (list 1 2 3 4)
	    )
(1 4 9 16)
CM> (load "elements.lisp")
;Compiler warnings :
;   Undeclared free variable META-PITCH-SET, in SIMULTANEITY.
;Compiler warnings :
;   Undeclared free variable META-PITCH-SET (3 references), in SUBSECTION.
#P"/Users/labuser/Desktop/elements.lisp"
CM> (events (longer-form meta-list 0 10) "elements.mid")
"elements.mid"
CM> (listp 60)
NIL
CM> (listp (list 1 2 3))
T
CM> (events (make-phrase 0 
		     (list (list 60 67 72 78) (list 62 67 73 77) (list 65 67 74 76) 75)
		     (list 0.6 0.7 0.8 0.9)
		     (list 1.5 1.0 0.5 3))
	"test.mid")
"test.mid"
CM> (shrink-interval 10)
5.0
CM> (mapcar #'shrink-interval (list 10 20 30 40))
(5.0 10.0 15.0 20.0)
CM> (shrink-intervals (list 10 20 30 40))
(5.0 10.0 15.0 20.0)
CM> (shrink-intervals initial-intervals)
(0.0 2.5 2.0 5.0 4.0 7.5 6.0 10.0 8.0 7.5 0.0 5.0 2.0 2.5 4.0 0.0 6.0)
CM> (add-registers (list 0 3 5 7) (list 60 72 84 96))
; Evaluation aborted
CM> (add-register (list 0 3 5 7) (list 60 72 84 96))
(60 75 89 103)
CM> (make-list 10 :initial-element 5)
(5 5 5 5 5 5 5 5 5 5)
CM> shrunk-pitches
(84 89 88 94 92 99 96 104 100 99 84 94 88 89 92 84 96 84.0 86.5 86.0 89.0 88.0 91.5 90.0 94.0 92.0 91.5 84.0 89.0 86.0 86.5 88.0 84.0 90.0 84.0 85.25 85.0 86.5 86.0 87.75 87.0 89.0 88.0 87.75 84.0 86.5 85.0 85.25 86.0 84.0 87.0)
CM> shrunk-pitches-3
(21 26 25 31 29 36 33 41 37 36 21 31 25 26 29 21 33 21.0 23.5 23.0 26.0 25.0 28.5 27.0 31.0 29.0 28.5 21.0 26.0 23.0 23.5 25.0 21.0 27.0 21.0 22.25 22.0 23.5 23.0 24.75 24.0 26.0 25.0 24.75 21.0 23.5 22.0 22.25 23.0 21.0 24.0)
CM> (random-scale 1)
0.9599427
CM> (random-scale 1)
0.92517096
CM> (random-scale 1)
1.0524206
CM> (random-scale 1)
1.1917311
CM> (random-scale 1)
1.0142633
CM> (random-scale 1)
0.9121129
CM> (random-scale 1)
0.9385301
CM> (random-scale 1)
0.9201786
CM> periodic-durations
(0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8)
CM> scaled-durations
(0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.9025666 0.9328907 0.6962869 0.8648168 0.72656566 0.84893227 0.92727035 0.750733 0.8829552 0.73536175 0.7717107 0.67765504 0.937722 0.6779794 0.68631107 0.6585217 0.72325075 0.8294467 0.70665133 0.7820782 0.585955 1.0480919 0.6135893 0.77512205 0.9722812 0.7557284 0.7101028 0.702697 0.8730779 0.8522252 0.75201267 0.87176 0.6352822 0.74462837)
CM> (events (append (make-phrase 0
			     shrunk-pitches
			     (impose-random-accents final-dynamics)
			     (alter-durations scaled-durations))
		(make-phrase 0 
			     shrunk-pitches-2 
			     (impose-random-rests dynamics-plus-rests)
			     (alter-durations scaled-durations))
		(make-phrase 0 
			     shrunk-pitches-3 
			     (impose-random-rests final-dynamics)
			     (alter-durations scaled-durations)))
	"test.mid")
"test.mid"
CM>  (mapcar #'(lambda (x) (* x x)) (list 1 2 3 4))
(1 4 9 16)
CM>