home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazin 1995 November
/
CD_11_95.BIN
/
demos
/
cakewal
/
ch_min7.ca_
/
ch_min7.bin
Wrap
Text File
|
1993-04-28
|
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