Sound, Music & MIDI Collection 2/SMMVOL2.bin/DEMO/PRG/CWALKPRO.ZIP/DISK1/CH_DOM7.CA_/CH_DOM7.bin

Text File | 1994-06-21 | 626 b | 25 lines

;; CH_DOM7.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 major 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  4) 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)
           )
        )
    )
)