Skip to content

Commit

Permalink
updated the other covers to use rmap
Browse files Browse the repository at this point in the history
  • Loading branch information
@TheRealMolen
TheRealMolen committed Jul 13, 2018
1 parent f7adf61 commit 64b8b80
Showing 1 changed file with 73 additions and 51 deletions.
124 changes: 73 additions & 51 deletions examples/core/covers.xtm
View file
Expand Up @@ -201,11 +201,11 @@

;; set reverb
(set_reverb_mix inst 0.65)
(set_reverb_size inst 0.6)
(set_reverb_size inst 0.4)

;; mono synth
(set_polyphonic inst)
(set_portamento inst 70.0)
(set_portamento inst 300.0)
;; (set_legato inst 1)

;; set gain
Expand Down Expand Up @@ -311,7 +311,7 @@

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; white shade of pale
;; whiter shade of pale
;;


Expand All @@ -321,26 +321,28 @@
;; tempo
(*metro* 'set-tempo 80.0)

(define whiter-shade
(lambda (beat dur)
;; melody
(rmap 32 0 (lambda (beat dur note length)
(play pad note 80 (/ length 2)))
`(e4 _*8 d4 c4 b3 c4 d4 e4 c4
a4 _*5 b4 c5 (f4 e4) f4 _*4 d4 _
b4 _*5 c5 d5 (g4 f4) g4 _*3 f4 e4 f4
f4 e4 d4 c4 a3 b3 c4 d4 b3 c4 d4 e4 f4 e4 f4 d4)
`(9 _*8 1 1 1 1 1 1 1
6 _*5 1 1 1 5 _*4 2 _
6 _*5 1 1 1 4 _*3 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))

;; bassline
(rmap 32 (lambda (beat p) (play pad (+ (eval p) -12) 80 2))
`(c4 b3 a3 g3 f4 e4 d4 c4 g4 f4 e4 d4 c4 f4 g4 b3))
(callback (*metro* (+ beat (* .5 dur))) 'whiter-shade (+ beat dur) dur)))

(whiter-shade (*metro* 'get-beat 4) 1/4)
; (define whiter-shade
; (lambda (beat dur)
; ;; melody
; (rmap 32 0 (lambda (beat dur note length)
; (play pad note 80 (/ length 2)))
; `(e4 _*8 d4 c4 b3 c4 d4 e4 c4
; a4 _*5 b4 c5 (f4 e4) f4 _*4 d4 _
; b4 _*5 c5 d5 (g4 f4) g4 _*3 f4 e4 f4
; f4 e4 d4 c4 a3 b3 c4 d4 b3 c4 d4 e4 f4 e4 f4 d4)
; `(9 _*8 1 1 1 1 1 1 1
; 6 _*5 1 1 1 5 _*4 2 _
; 6 _*5 1 1 1 4 _*3 1 1 1 1
; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))

; ;; bassline
; (rmap 32 0 (lambda (beat dur note) (play pad (+ (eval note) -12) 80 2))
; `(c4 b3 a3 g3 f4 e4 d4 c4 g4 f4 e4 d4 c4 f4 g4 b3))

; (callback (*metro* (+ beat (* .5 dur))) 'whiter-shade (+ beat dur) dur)))


; (whiter-shade (*metro* 'get-beat 4) 1/4)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
Expand All @@ -351,18 +353,28 @@
(analogue_drwho_lead lead)
(analogue_drwho_swoosh pad)


(*metro* 'set-tempo 125.0)

; (define drwho
; (lambda (beat dur)
; ;; (println (* 1.0 (modulo beat 32)))
; (onbeat? 1 8 (play pad 60 80 10))
; (playp 8 0 bass 0 `(,@(R `(e3 __ e3) 4) ,@(R `(b2 __ b2) 3) (b2 c3 d3)) (cosr 100 20 2) 0.5)
; (playp 32 0 lead 0 `((b4 b4 b4 d5)
; (b4 b4 b4 __)
; (b4 g4 g4 b3 d4 (d4 __ c4) b3 (b3 __ a3))
; (b3 b3 b3 (b3 c4 d4) b3 __ b3 c5))
; (cosr 110 10 3) 2.5)
; ;swoosh
; (onbeat? 1 8 (play pad 60 60 10))
; ;bass
; (rmap 8 0 (lambda (beat dur note)
; (play bass note (cosr 100 20 2) 0.5))
; `(,@(R 4 '(e3 _ e3)) ,@(R 3 '(b2 _ b2)) (b2 c3 d3)))
; ;lead
; (rmap 32 0 (lambda (beat dur note len) (play lead note (cosr 110 10 3) len))
; `((b4 _*2 d5)
; (b4 _*2 _)
; (b4 g4 b3 _ d4 (d4 _ c4) b3 b3)
; (b3 (a3 b3) b3 (b3 c4 d4) b3 _ b3 c5))
; `((5 _*2 1)
; (7 _*3)
; (1/2 1/2 3/2 _ 1/2 (1/2 _ 1/2) 1/2 1/2)
; (1/2 (1/4 1/4) 1/4 (1/8 1/8 1/8) 1/4 _ 1/2 1/2)))

; (callback (*metro* (+ beat (* .5 dur))) 'drwho (+ beat dur) dur)))

; (drwho (*metro* 'get-beat 4) 1/4)
Expand All @@ -376,31 +388,41 @@
(analogue_oxygene_bass bass)
(analogue_oxygene_riff riff)
(analogue_oxygene_lead lead)
;; resuse the dr's swoosh :)
;; reuse the dr's swoosh :)
(analogue_drwho_swoosh pad)

;; tempo
(*metro* 'set-tempo 125.0)

; (define oxygene
; (lambda (beat dur)
; ;; (println (* 1.0 (modulo beat 32)))
; (onbeat? 1 8 (play pad 60 80 10))
; (playp 32 0 riff 24 `(,@(R `(48 48 48) 16)
; ,@(R `(50 50 50) 8)
; ,@(R `(48 48 48) 8))
; (R `(90 70 70) 32) 1/4)
; (playp 32 0 bass `(,@(R `((60 __ 60) (58 __ 60) (__ __ 55) (58 __ 55)) 4)
; ,@(R `((62 __ 62) (60 __ 62) (__ __ 57) (60 __ 57)) 2)
; ,@(R `((65 __ 65) (63 __ 60) (__ __ 65) (63 __ 60)) 2))
; (cosr 80 20 2) 1/4)
; (playp 32 0 lead 12 `(,@(R `(72 (__ __ 67) (63 __ 67) (__ __ 60) ,@(R __ 4)) 2)
; ,@(R `(70 (__ __ 69) (67 __ 69) (__ __ 62) ,@(R __ 4)) 1)
; ,(R `((69 __ 67) (65 __ 60) __ __) 2))
; (cosr 80 20 2) (* 2.0 dur))
; (callback (*metro* (+ beat (* .5 dur))) 'oxygene (+ beat dur) dur)))

; (oxygene (*metro* 'get-beat 4) 1/4)
(define oxygene
(lambda (beat dur)
;; (println (* 1.0 (modulo beat 32)))

;swoosh
(onbeat? 1 8 (play pad 60 60 10))

;riff
(rmap 32 0 (lambda (beat dur note amp) (play riff note amp 1/4))
`(,@(R 16 '(48 48 48))
,@(R 8 '(50 50 50))
,@(R 8 '(48 48 48)))
`(,@(R 32 '(90 70 70))))

;bass
(rmap 32 0 (lambda (beat dur note) (play bass note (cosr 110 20 2) 1/4))
`(,@(R 4 `((60 _ 60) (58 _ 60) (_ _ 55) (58 _ 55)))
,@(R 2 `((62 _ 62) (60 _ 62) (_ _ 57) (60 _ 57)))
,@(R 2 `((65 _ 65) (63 _ 60) (_ _ 65) (63 _ 60)))))

;lead
(rmap 32 0 (lambda (beat dur note) (play lead note (cosr 80 20 2) dur))
`(,@(R 2 `(72 (_ _ 67) (63 _ 67) (_ _ 60) _ _ _ _))
,@(R 1 `(70 (_ _ 69) (67 _ 69) (_ _ 62) _ _ _ _))
,(R 2 `((69 _ 67) (65 60 _) _ _))))

(callback (*metro* (+ beat (* .5 dur))) 'oxygene (+ beat dur) dur)))

(oxygene (*metro* 'get-beat 4) 1/4)



0 comments on commit 64b8b80

Please sign in to comment.