pedal   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/pattern-language.xtm

Implementation

;; add pedal value a to list of notes b
;; basically zip value a into list b
(define pedal
  (lambda (a b)
    (flatten (map (lambda (x)
                    (if (list? a)
                        (list x b)
                        (list a x)))
                  (if (list? a) a b)))))


Back to Index