(fivedown de ,(ly:make-pitch -1 2 0))
))
-(define-public (get-drum-kit kit)
- (assoc-get-default kit percussive-instrument-settings '()))
-
;;
;; all settings for percussive instruments.
;; public so people can add their own stuff.
;;
(define-public
- percussive-instrument-settings
+ percussive-instrument-init-settings
`((drums
. (
- (acousticbassdrum default #f ,(ly:make-pitch -1 4 0))
- (bassdrum default #f ,(ly:make-pitch -1 4 0))
- (sidestick cross #f ,(ly:make-pitch 0 1 0))
- (acousticsnare default #f ,(ly:make-pitch 0 1 0))
- (snare default #f ,(ly:make-pitch 0 1 0))
- (handclap triangle #f ,(ly:make-pitch 0 1 0))
- (electricsnare default #f ,(ly:make-pitch 0 1 0))
- (lowfloortom default #f ,(ly:make-pitch -1 3 0))
- (closedhihat cross "stopped" ,(ly:make-pitch 0 3 0))
- (hihat cross #f ,(ly:make-pitch 0 3 0))
- (highfloortom default #f ,(ly:make-pitch -1 5 0))
- (pedalhihat cross #f ,(ly:make-pitch -1 2 0))
- (lowtom default #f ,(ly:make-pitch -1 6 0))
- (openhihat cross "open" ,(ly:make-pitch 0 3 0))
- (halfopenhihat xcircle #f ,(ly:make-pitch 0 3 0))
- (lowmidtom default #f ,(ly:make-pitch 0 0 0))
- (himidtom default #f ,(ly:make-pitch 0 2 0))
- (crashcymbala xcircle #f ,(ly:make-pitch 0 5 0))
- (crashcymbal xcircle #f ,(ly:make-pitch 0 5 0))
- (hightom default #f ,(ly:make-pitch 0 4 0))
- (ridecymbala cross #f ,(ly:make-pitch 0 5 0))
- (ridecymbal cross #f ,(ly:make-pitch 0 5 0))
- (chinesecymbal mensural #f ,(ly:make-pitch 0 5 0))
- (ridebell default #f ,(ly:make-pitch 0 5 0))
- (splashcymbal diamond #f ,(ly:make-pitch 0 5 0))
- (cowbell triangle #f ,(ly:make-pitch 0 5 0))
- (crashcymbalb cross #f ,(ly:make-pitch 0 5 0))
- (vibraslap diamond #f ,(ly:make-pitch 0 4 0))
- (ridecymbalb cross #f ,(ly:make-pitch 0 5 0))
- ))
+ (acousticbassdrum default #f ,(ly:make-pitch -1 4 0))
+ (bassdrum default #f ,(ly:make-pitch -1 4 0))
+ (sidestick cross #f ,(ly:make-pitch 0 1 0))
+ (acousticsnare default #f ,(ly:make-pitch 0 1 0))
+ (snare default #f ,(ly:make-pitch 0 1 0))
+ (handclap triangle #f ,(ly:make-pitch 0 1 0))
+ (electricsnare default #f ,(ly:make-pitch 0 1 0))
+ (lowfloortom default #f ,(ly:make-pitch -1 3 0))
+ (closedhihat cross "stopped" ,(ly:make-pitch 0 3 0))
+ (hihat cross #f ,(ly:make-pitch 0 3 0))
+ (highfloortom default #f ,(ly:make-pitch -1 5 0))
+ (pedalhihat cross #f ,(ly:make-pitch -1 2 0))
+ (lowtom default #f ,(ly:make-pitch -1 6 0))
+ (openhihat cross "open" ,(ly:make-pitch 0 3 0))
+ (halfopenhihat xcircle #f ,(ly:make-pitch 0 3 0))
+ (lowmidtom default #f ,(ly:make-pitch 0 0 0))
+ (himidtom default #f ,(ly:make-pitch 0 2 0))
+ (crashcymbala xcircle #f ,(ly:make-pitch 0 5 0))
+ (crashcymbal xcircle #f ,(ly:make-pitch 0 5 0))
+ (hightom default #f ,(ly:make-pitch 0 4 0))
+ (ridecymbala cross #f ,(ly:make-pitch 0 5 0))
+ (ridecymbal cross #f ,(ly:make-pitch 0 5 0))
+ (chinesecymbal mensural #f ,(ly:make-pitch 0 5 0))
+ (ridebell default #f ,(ly:make-pitch 0 5 0))
+ (splashcymbal diamond #f ,(ly:make-pitch 0 5 0))
+ (cowbell triangle #f ,(ly:make-pitch 0 5 0))
+ (crashcymbalb cross #f ,(ly:make-pitch 0 5 0))
+ (vibraslap diamond #f ,(ly:make-pitch 0 4 0))
+ (ridecymbalb cross #f ,(ly:make-pitch 0 5 0))
+ ))
(timbales
. (
- (losidestick cross #f ,(ly:make-pitch -1 6 0))
- (lotimbale default #f ,(ly:make-pitch -1 6 0))
- (cowbell triangle #f ,(ly:make-pitch 0 2 0))
- (hisidestick cross #f ,(ly:make-pitch 0 1 0))
- (hitimbale default #f ,(ly:make-pitch 0 1 0))
+ (losidestick cross #f ,(ly:make-pitch -1 6 0))
+ (lotimbale default #f ,(ly:make-pitch -1 6 0))
+ (cowbell triangle #f ,(ly:make-pitch 0 2 0))
+ (hisidestick cross #f ,(ly:make-pitch 0 1 0))
+ (hitimbale default #f ,(ly:make-pitch 0 1 0))
))
(congas
. (
- (losidestick cross #f ,(ly:make-pitch -1 6 0))
- (loconga default #f ,(ly:make-pitch -1 6 0))
- (openloconga default "open" ,(ly:make-pitch -1 6 0))
- (muteloconga default "stopped" ,(ly:make-pitch -1 6 0))
- (hisidestick cross #f ,(ly:make-pitch 0 1 0))
- (hiconga default #f ,(ly:make-pitch 0 1 0))
- (openhiconga default "open" ,(ly:make-pitch 0 1 0))
- (mutehiconga default "stopped" ,(ly:make-pitch 0 1 0))
+ (losidestick cross #f ,(ly:make-pitch -1 6 0))
+ (loconga default #f ,(ly:make-pitch -1 6 0))
+ (openloconga default "open" ,(ly:make-pitch -1 6 0))
+ (muteloconga default "stopped" ,(ly:make-pitch -1 6 0))
+ (hisidestick cross #f ,(ly:make-pitch 0 1 0))
+ (hiconga default #f ,(ly:make-pitch 0 1 0))
+ (openhiconga default "open" ,(ly:make-pitch 0 1 0))
+ (mutehiconga default "stopped" ,(ly:make-pitch 0 1 0))
))
(bongos
. (
- (losidestick cross #f ,(ly:make-pitch -1 6 0))
- (lobongo default #f ,(ly:make-pitch -1 6 0))
- (openlobongo default "open" ,(ly:make-pitch -1 6 0))
- (mutelobongo default "stopped" ,(ly:make-pitch -1 6 0))
- (hisidestick cross #f ,(ly:make-pitch 0 1 0))
- (hibongo default #f ,(ly:make-pitch 0 1 0))
- (openhibongo default "open" ,(ly:make-pitch 0 1 0))
- (mutehibongo default "stopped" ,(ly:make-pitch 0 1 0))
- ))
+ (losidestick cross #f ,(ly:make-pitch -1 6 0))
+ (lobongo default #f ,(ly:make-pitch -1 6 0))
+ (openlobongo default "open" ,(ly:make-pitch -1 6 0))
+ (mutelobongo default "stopped" ,(ly:make-pitch -1 6 0))
+ (hisidestick cross #f ,(ly:make-pitch 0 1 0))
+ (hibongo default #f ,(ly:make-pitch 0 1 0))
+ (openhibongo default "open" ,(ly:make-pitch 0 1 0))
+ (mutehibongo default "stopped" ,(ly:make-pitch 0 1 0))
+ ))
(percussion
. (
- (opentriangle cross "open" ,(ly:make-pitch 0 0 0))
- (mutetriangle cross "stopped" ,(ly:make-pitch 0 0 0))
- (triangle cross #f ,(ly:make-pitch 0 0 0))
- (shortguiro default "staccato",(ly:make-pitch 0 0 0))
- (longguiro default "tenuto" ,(ly:make-pitch 0 0 0))
- (guiro default #f ,(ly:make-pitch 0 0 0))
- (cowbell triangle #f ,(ly:make-pitch 0 0 0))
- (claves default #f ,(ly:make-pitch 0 0 0))
- (tambourine default #f ,(ly:make-pitch 0 0 0))
- (cabasa cross #f ,(ly:make-pitch 0 0 0))
- (maracas default #f ,(ly:make-pitch 0 0 0))
- (handclap default #f ,(ly:make-pitch 0 0 0))
+ (opentriangle cross "open" ,(ly:make-pitch 0 0 0))
+ (mutetriangle cross "stopped" ,(ly:make-pitch 0 0 0))
+ (triangle cross #f ,(ly:make-pitch 0 0 0))
+ (shortguiro default "staccato",(ly:make-pitch 0 0 0))
+ (longguiro default "tenuto" ,(ly:make-pitch 0 0 0))
+ (guiro default #f ,(ly:make-pitch 0 0 0))
+ (cowbell triangle #f ,(ly:make-pitch 0 0 0))
+ (claves default #f ,(ly:make-pitch 0 0 0))
+ (tambourine default #f ,(ly:make-pitch 0 0 0))
+ (cabasa cross #f ,(ly:make-pitch 0 0 0))
+ (maracas default #f ,(ly:make-pitch 0 0 0))
+ (handclap default #f ,(ly:make-pitch 0 0 0))
))
))
+(define percussive-instrument-settings percussive-instrument-init-settings)
+
+;; don't use assoc-set!, since this will overwrite Scheme defaults, and leak
+;; into other files.
+(define-public (set-drum-kit kit value)
+ (set! percussive-instrument-settings
+ (acons kit value percussive-instrument-settings)))
+
+(define-public (reset-drum-kit)
+ (set! percussive-instrument-settings percussive-instrument-init-settings))
+
+(define-public (get-drum-kit kit)
+ (assoc-get-default kit percussive-instrument-settings '()))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
)
(define (make-head-type t)
- (context-spec-music (make-head-type-elem t) "Thread"))
+ (context-spec-music (make-head-type-elem t) 'Thread))
(define (make-thread-context thread-name element)
- (context-spec-music element "Thread" thread-name))
+ (context-spec-music element 'Thread thread-name))
;; makes a sequential-music of thread-context, head-change and note
(define (make-drum-head kit req-ch )
)
(add-articulation-script req-ch script)
(ly:set-mus-property! fe 'pitch pitch)
- (set! req-ch (make-thread-context style seq))
+ (set! req-ch (make-thread-context (symbol->string style) seq))
req-ch
)
)
))))
music
))
+
+