;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2000--2007 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2009 Jan Nieuwenhuizen <janneke@gnu.org>
("electric guitar (muted)" . ,(- 29 1))
("overdriven guitar" . ,(- 30 1))
("distorted guitar" . ,(- 31 1))
- ("guitar harmo(dinics" . ,(- 32 1))
+ ("guitar harmonics" . ,(- 32 1))
; (33-40 bass)
("acoustic bass" . ,(- 33 1))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
-(define-public (write-performances-midis performances basename)
+(define-public (write-performances-midis performances basename . rest)
(let ((midi-ext (ly:get-option 'midi-extension)))
(let
loop
((perfs performances)
- (count 0))
-
-
+ (count (if (null? rest) 0 (car rest))))
(if (pair? perfs)
(begin
(ly:performance-write