; SLIME 2007-01-07 CL-USER> /\\\ ---\\\--------- ----\\\-------- ----/\\\------- Common Music 2.10.0 ---/--\\\------ --/----\\\----- / \\\/ ; No value CM> (cd "Desktop") #P"/Users/labuser/Desktop/" CM> (load "week-04.lisp") #P"/Users/labuser/Desktop/week-04.lisp" CM> (events (make-isorhythm 24 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> (load "week-04.lisp") #P"/Users/labuser/Desktop/week-04.lisp" CM> (events (make-isorhythm 24 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> pitch-list (60 61 63 67 64 70 69 72) CM> (rotate-left pitch-list) (61 63 67 64 70 69 72 60) CM> (append (cdr pitch-list) (car pitch-list)) (61 63 67 64 70 69 72 . 60) CM> (make-isorhythm 10 0 (list 60 62 64 66) (list 0.5 0.25 0.25) (list 0.33 0.66)) (#i(midi time 0 keynum 60 duration 0.5 amplitude 0.33 channel 0) #i(midi time 0.5 keynum 62 duration 0.25 amplitude 0.66 channel 0) #i(midi time 0.75 keynum 64 duration 0.25 amplitude 0.33 channel 0) #i(midi time 1.0 keynum 66 duration 0.5 amplitude 0.66 channel 0) #i(midi time 1.5 keynum 60 duration 0.25 amplitude 0.33 channel 0) #i(midi time 1.75 keynum 62 duration 0.25 amplitude 0.66 channel 0) #i(midi time 2.0 keynum 64 duration 0.5 amplitude 0.33 channel 0) #i(midi time 2.5 keynum 66 duration 0.25 amplitude 0.66 channel 0) #i(midi time 2.75 keynum 60 duration 0.25 amplitude 0.33 channel 0) #i(midi time 3.0 keynum 62 duration 0.5 amplitude 0.66 channel 0)) CM> (events (make-isorhythm 24 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> (transpose 7 (list 60 62 64 66)) (67 69 71 73) CM> (events (make-canon (list 0 1 2 3 4 5) (list 0 0.25 0.75 1.5 2.5 3.75) 12 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> (events (make-canon (list 0 7 -5 4 7 12) (list 0 1.25 3.75 5.5 8.5 10.75) 12 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> (events (make-canon (list 0 7 -5 4 7 12) (list 0 0 5.5 5.5 10.75 10.75) 12 0 pitch-list rhythm-list dynamics-list) "test.mid") "test.mid" CM> (stretch 2 (list 0.5 1 1.5)) (1.0 2 3.0) CM> (events (make-prolation-canon (list 0 1 2 3 4 5) (list 1 1.1 1.21 1.4641 2.14358881 4.594972986357) (list 0 0.25 0.75 1.5 2.5 3.75) 12 0 pitch-list rhythm-list dynamics-list)) "test.mid" CM> (events (make-prolation-canon (list -12 -5 0 7 12 19 24) (list 1 1.1 1.21 1.4641 1.64358881 3.14159) (list 0 0 0 0 0 0) 12 0 pitch-list rhythm-list dynamics-list)) "test.mid" CM> (events (make-prolation-canon (list -12 -5 0 7 12 19 24) (list 1 1.1 1.21 1.4641 1.64358881 1.9 3.14159) (list 0 0 0 0 0 0 0) 12 0 pitch-list rhythm-list dynamics-list)) "test.mid" CM> (make-voice-pitches upper-voice-set1 transpositions) (71 72 80 79 76 77 84 75 70 73 72 69 65 78 77 80 82 83 88 76 81 86 85 83 82 78 81 74 77 76 67 75 70 80 90 89 92 91 84 85 82 83 80 78 81 69 70 73 66 65 87 86 84 72 73 81 80 77 78 85 76 71 74 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 75 74 71 72 79 70 65 68 67 64 60 73 72 75 77 78 83 71 76 81 80 78 77 73 76 69 72 71 62 70 65 75 85 84 87 86 79 80 77 78 75 73 76 64 65 68 61 60 82 81 79 67 80 77 78 85 76 71 74 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 81 82 89 80 75 78 77 74 70 83 82 85 87 88 93 81 86 91 90 88 87 83 86 79 82 81 72 80 75 85 95 94 97 96 89 90 87 88 85 83 86 74 75 78 71 70 92 91 89 77 78 85 76 71 74 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 79 70 65 68 67 64 60 73 72 75 77 78 83 71 76 81 80 78 77 73 76 69 72 71 62 70 65 75 85 84 87 86 79 80 77 78 75 73 76 64 65 68 61 60 82 81 79 67 76 71 74 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 75 78 77 74 70 83 82 85 87 88 93 81 86 91 90 88 87 83 86 79 82 81 72 80 75 85 95 94 97 96 89 90 87 88 85 83 86 74 75 78 71 70 92 91 89 77 74 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 70 66 79 78 81 83 84 89 77 82 87 86 84 83 79 82 75 78 77 68 76 71 81 91 90 93 92 85 86 83 84 81 79 82 70 71 74 67 66 88 87 85 73 58 71 70 73 75 76 81 69 74 79 78 76 75 71 74 67 70 69 60 68 63 73 83 82 85 84 77 78 75 76 73 71 74 62 63 66 59 58 80 79 77 65 77 76 79 81 82 87 75 80 85 84 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 82 85 87 88 93 81 86 91 90 88 87 83 86 79 82 81 72 80 75 85 95 94 97 96 89 90 87 88 85 83 86 74 75 78 71 70 92 91 89 77 79 81 82 87 75 80 85 84 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 77 78 83 71 76 81 80 78 77 73 76 69 72 71 62 70 65 75 85 84 87 86 79 80 77 78 75 73 76 64 65 68 61 60 82 81 79 67 82 87 75 80 85 84 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 93 81 86 91 90 88 87 83 86 79 82 81 72 80 75 85 95 94 97 96 89 90 87 88 85 83 86 74 75 78 71 70 92 91 89 77 75 80 85 84 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 76 81 80 78 77 73 76 69 72 71 62 70 65 75 85 84 87 86 79 80 77 78 75 73 76 64 65 68 61 60 82 81 79 67 85 84 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 96 94 93 89 92 85 88 87 78 86 81 91 101 100 103 102 95 96 93 94 91 89 92 80 81 84 77 76 98 97 95 83 82 81 77 80 73 76 75 66 74 69 79 89 88 91 90 83 84 81 82 79 77 80 68 69 72 65 64 86 85 83 71 77 73 76 69 72 71 62 70 65 75 85 84 87 86 79 80 77 78 75 73 76 64 65 68 61 60 82 81 79 67 74 77 70 73 72 63 71 66 76 86 85 88 87 80 81 78 79 76 74 77 65 66 69 62 61 83 82 80 68 89 82 85 84 75 83 78 88 98 97 100 99 92 93 90 91 88 86 89 77 78 81 74 73 95 94 92 80 81 84 83 74 82 77 87 97 96 99 98 91 92 89 90 87 85 88 76 77 80 73 72 94 93 91 79 75 74 65 73 68 78 88 87 90 89 82 83 80 81 78 76 79 67 68 71 64 63 85 84 82 70 69 60 68 63 73 83 82 85 84 77 78 75 76 73 71 74 62 63 66 59 58 80 79 77 65 63 71 66 76 86 85 88 87 80 81 78 79 76 74 77 65 66 69 62 61 83 82 80 68 71 66 76 86 85 88 87 80 81 78 79 76 74 77 65 66 69 62 61 83 82 80 68 81 91 101 100 103 102 95 96 93 94 91 89 92 80 81 84 77 76 98 97 95 83 82 92 91 94 93 86 87 84 85 82 80 83 71 72 75 68 67 89 88 86 74 96 95 98 97 90 91 88 89 86 84 87 75 76 79 72 71 93 92 90 78 79 82 81 74 75 72 73 70 68 71 59 60 63 56 55 77 76 74 62 89 88 81 82 79 80 77 75 78 66 67 70 63 62 84 83 81 69 101 94 95 92 93 90 88 91 79 80 83 76 75 97 96 94 82 75 76 73 74 71 69 72 60 61 64 57 56 78 77 75 63 93 90 91 88 86 89 77 78 81 74 73 95 94 92 80 91 92 89 87 90 78 79 82 75 74 96 95 93 81 73 70 68 71 59 60 63 56 55 77 76 74 62 83 81 84 72 73 76 69 68 90 89 87 75 82 85 73 74 77 70 69 91 90 88 76 80 68 69 72 65 64 86 85 83 71 67 68 71 64 63 85 84 82 70 75 78 71 70 92 91 89 77 63 56 55 77 76 74 62 75 74 96 95 93 81 63 85 84 82 70 82 81 79 67 82 80 68 81 69 77) CM> (events (make-voice (make-voice-pitches upper-voice-set1 transpositions) 2 0.027 0.000271) "test.mid") "test.mid" CM> (events (make-voice (make-voice-pitches lower-voice-set1 transpositions) 0 0.28571 -0.000186459) "test.mid") "test.mid" CM> (events (make-acceleration (make-voice-pitches lower-voice-set1 transpositions) 0 0.28571 1.01) "test.mid") "test.mid" CM>