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

Text File | 1994-06-21 | 555 b | 29 lines

;; CH_MINOR.CAL
;;
;; Treats each note as the root of a minor chord, and creates that chord:
;; For each note event, adds two note events with same time, vel, and dur
;; but a minor third and a perfect fifth 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)
           )
        )
    )
)

; epilog
NIL