Hope PC Multimedia SuperPack 2/HOMEPC.iso/CAKEWALK/CH_MIN7.CA_/CH_MIN7.bin

Text File | 1996-02-22 | 641b | 26 lines

;; CH_MIN7.CAL
;;
;; Treats each note as the root of a dominant 7th chord; creates that chord:
;; For each note event, adds three note events with same time, vel, and dur
;; but a minor 3rd, a perfect 5th, and a minor 7th higher.
;;

(do
    (include "need20.cal")    ; Require version 2.0 or higher of CAL

    (forEachEvent
        (if (== Event.Kind NOTE)
           (do
             (insert Event.Time Event.Chan NOTE (+ Note.Key  3) Note.Vel Note.Dur)
             (insert Event.Time Event.Chan NOTE (+ Note.Key  7) Note.Vel Note.Dur)
             (insert Event.Time Event.Chan NOTE (+ Note.Key 10) Note.Vel Note.Dur)
           )
        )
    )
)

; epilog
NIL