home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-07-21 | 2.4 KB | 59 lines | [TEXT/ScoM] |
- (lib-drum track1 '(bhu b dh p bh b dhu = bhtu b dht = bhtr b dhru = uhb = hd p hb b uhd = uthb = thd = rthb b urhd =))
- (lib-drum track2 '(bhu = h pb dh = bhu = htu = bht = dhtr = bhru = bhu = h pb dh = bhu = htu = bht = dhtr = bhru =))
- (lib-drum track3 '(bh b hq pb d = hq = bhtr = bhtr r dqt = hq = hb b qh bp d = qh b rthb = rthb r tqd = qh =))
- (lib-drum track4 '(bh b h b dh = h = bh = bh = pdhq = phq = hb b h b hd = h = hb = hb = qhdp = qhp =))
-
- (comment
-
- ; ---- track1
-
- (define-rhythms
- ; 1------------2------------3------------4------------
- beat1 1/16 "-- -- -- -- - -- - -- " (b)
- beat2 1/16 " - - - - - - - - " (d)
- beat3 1/16 "- - - - - - - - - - - - - - - - " (h)
- beat4 1/16 " - - " (p)
- beat5 1/16 " - - - - " (r)
- beat6 1/16 " - - - - - - " (t)
- beat7 1/16 "- - - - - - - - " (u)
- )
-
- ; ---- track2
-
- (define-rhythms
- ; 1------------2------------3------------4------------
- beat1 1/16 "- - - - - - - - - - " (b)
- beat2 1/16 " - - - - " (d)
- beat3 1/16 "- - - - - - - - - - - - - - - - " (h)
- beat4 1/16 " - - " (p)
- beat5 1/16 " - - - - " (r)
- beat6 1/16 " - - - - - - " (t)
- beat7 1/16 "- - - - - - - - " (u)
- )
-
- ; ---- track3
-
- (define-rhythms
- ; 1------------2------------3------------4------------
- beat1 1/16 "-- - - - -- - -- - " (b)
- beat2 1/16 " - - - - " (d)
- beat3 1/16 "- - - - - - - - - - - - " (h)
- beat4 1/16 " - - " (p)
- beat5 1/16 " - - - - - - - - " (q)
- beat6 1/16 " - -- - -- " (r)
- beat7 1/16 " - - - - - - " (t)
- )
-
- ; ---- track4
-
- (define-rhythms
- ; 1------------2------------3------------4------------
- beat1 1/16 "-- - - - -- - - - " (b)
- beat2 1/16 " - - - - " (d)
- beat3 1/16 "- - - - - - - - - - - - - - - - " (h)
- beat4 1/16 " - - - - " (p)
- beat5 1/16 " - - - - " (q)
- )
- )
-
-