Boot Disc 4/boot-disc-1996-12.iso/Apps/Cakewalk/PROAUD45/CH_MIN7.CA_/CH_MIN7.bin

Text File | 1996-05-20 | 633b | 25 lines

;; Minor 7th Chord.cal
;;
;; Treats each note as the root of a minor 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)
           )
        )
    )
)