CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/06/28 13:43:41
Modified files:
. : ChangeLog
scm : midi.scm
Log message:
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3832&tr2=1.3833&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/midi.scm.diff?tr1=1.26&tr2=1.27&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3832 lilypond/ChangeLog:1.3833
--- lilypond/ChangeLog:1.3832 Tue Jun 28 11:10:22 2005
+++ lilypond/ChangeLog Tue Jun 28 13:43:40 2005
@@ -1,3 +1,14 @@
+
+2005-06-25 Stephen Charles McCarthy <[EMAIL PROTECTED]>
+
+ * scm/midi.scm: changed midi volumes in absolute-volume-alist from
+ 0.05 - 1.00 to 0.25 - 1.00
+
+ * scm/midi.scm: moved the default-instrument-equalizer procedure
+ to just under the insturment-equalizer-alist it takes as an
+ argument.
+
+
2005-06-28 Han-Wen Nienhuys <[EMAIL PROTECTED]>
* Documentation/user/advanced-notation.itely (Font selection):
Index: lilypond/scm/midi.scm
diff -u lilypond/scm/midi.scm:1.26 lilypond/scm/midi.scm:1.27
--- lilypond/scm/midi.scm:1.26 Fri Feb 4 13:48:10 2005
+++ lilypond/scm/midi.scm Tue Jun 28 13:43:41 2005
@@ -18,17 +18,17 @@
'(
("sf" . 1.00)
("fffff" . 0.95)
- ("ffff" . 0.91)
- ("fff" . 0.81)
- ("ff" . 0.71)
- ("f" . 0.61)
- ("mf" . 0.50)
- ("mp" . 0.40)
- ("p" . 0.30)
- ("pp" . 0.20)
- ("ppp" . 0.10)
- ("pppp" . 0.08)
- ("ppppp" . 0.05)
+ ("ffff" . 0.92)
+ ("fff" . 0.85)
+ ("ff" . 0.80)
+ ("f" . 0.75)
+ ("mf" . 0.68)
+ ("mp" . 0.61)
+ ("p" . 0.55)
+ ("pp" . 0.49)
+ ("ppp" . 0.42)
+ ("pppp" . 0.34)
+ ("ppppp" . 0.25) )
)
absolute-volume-alist))
@@ -56,6 +56,11 @@
)
instrument-equalizer-alist))
+(define-public (default-instrument-equalizer s)
+ (let ((entry (assoc s instrument-equalizer-alist)))
+ (if entry
+ (cdr entry))))
+
;; (name . program+32768*(channel10 ? 1 : 0))
(define instrument-names-alist '())
(set! instrument-names-alist
@@ -249,11 +254,6 @@
)
instrument-names-alist))
-(define-public (default-instrument-equalizer s)
- (let ((entry (assoc s instrument-equalizer-alist)))
- (if entry
- (cdr entry))))
-
(define-public (percussion? instrument)
"
returns whether the instrument should use midi channel 9
_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
