Patch for 1.3.151

[Mats Bengtsson]

Hi,

Here's a patch that hopefully should solve some of Rune's problems.
In ly2dvi, I added the lilypond default paths at the end instead of 
the front of the TeX related environment variables.
Also, I simplified and improved the smart-transpose example.

I'm not too happy about the new layout of the top www page.
I find it more difficult to find the manual and I still think
there should be a link to the searchable mailing list archives
directly from the top page.

  /Mats

Generated by (address unknown),
>From = lilypond-1.3.151, To = lilypond-1.3.151.mb1

usage 

    cd lilypond-source-dir; patch -E -p1 < lilypond-1.3.151.mb1.diff

Patches do not contain automatically generated files 
or (urg) empty directories, 
i.e., you should rerun autoconf, configure

diff -urN ../lilypond-1.3.151/CHANGES ./CHANGES
--- ../lilypond-1.3.151/CHANGES Fri Apr 27 02:09:32 2001
+++ ./CHANGES   Thu May  3 22:23:29 2001
@@ -1,3 +1,10 @@
+1.3.151.mb1
+===========
+
+* ly2dvi: add lilypond directories at end of tex paths
+
+* renewed smart-transpose example
+
 1.3.150.jcn3
 ============
 
diff -urN ../lilypond-1.3.151/VERSION ./VERSION
--- ../lilypond-1.3.151/VERSION Fri Apr 27 02:08:48 2001
+++ ./VERSION   Thu May  3 21:59:03 2001
@@ -2,7 +2,7 @@
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=151
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=mb1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff -urN ../lilypond-1.3.151/input/test/smart-transpose.ly 
./input/test/smart-transpose.ly
--- ../lilypond-1.3.151/input/test/smart-transpose.ly   Thu Apr  5 00:02:42 2001
+++ ./input/test/smart-transpose.ly     Thu May  3 22:23:10 2001
@@ -12,6 +12,9 @@
 @end quotation
 
 You mean like this. (Sorry 'bout the nuked indentation.)
+
+Modified to use the standard transpose mechanism. The question is
+how useful these enharmonic modifications are. Mats B.
 @end example
 "
 }
@@ -32,11 +35,11 @@
      ((eq? a -2) (set! a 0) (set! n (- n 1))))
 
     (if (< n 0) (begin (set!  o (- o 1)) (set! n (+ n 7))))
-    (if (> n 7) (begin (set!  o (+ o 1)) (set! n (- n 7))))
+    (if (> n 6) (begin (set!  o (+ o 1)) (set! n (- n 7))))
 
     (make-pitch o n a)))
 
-#(define (smart-transpose music pitch)
+#(define (simplify music)
   (let* ((es (ly-get-mus-property music 'elements))
          (e (ly-get-mus-property music 'element))
          (p (ly-get-mus-property music 'pitch))
@@ -46,38 +49,36 @@
     (if (pair? es)
         (ly-set-mus-property
          music 'elements
-         (map (lambda (x) (smart-transpose x pitch)) es)))
+         (map (lambda (x) (simplify x)) es)))
 
     (if (music? alts)
         (ly-set-mus-property
          music 'alternatives
-         (smart-transpose alts pitch)))
+         (simplify alts)))
 
     (if (music? body)
         (ly-set-mus-property
          music 'body
-         (smart-transpose body pitch)))
+         (simplify body)))
 
     (if (music? e)
         (ly-set-mus-property
          music 'element
-         (smart-transpose e pitch)))
+         (simplify e)))
 
     (if (pitch? p)
         (begin
-          (set! p (unhair-pitch (Pitch::transpose p pitch)))
+          (set! p (unhair-pitch p))
           (ly-set-mus-property music 'pitch p)))
 
     music))
 
-
 music = \notes \relative c' { c4 d  e f g a b  c }
 
 \score {
   \notes \context Staff {
     \transpose ais' \music
-    \apply #(lambda (x) (smart-transpose x (make-pitch 0 5 1)))
-      \music
+    \apply #simplify \transpose ais' \music
   }
   \paper { linewidth = -1. }
 }
diff -urN ../lilypond-1.3.151/scripts/ly2dvi.py ./scripts/ly2dvi.py
--- ../lilypond-1.3.151/scripts/ly2dvi.py       Thu Apr 26 23:52:27 2001
+++ ./scripts/ly2dvi.py Thu May  3 21:57:51 2001
@@ -135,9 +135,9 @@
 # feta16.{afm,mf,tex,tfm}, and only set env upon failure.
 #
 environment = {
-       'MFINPUTS' : datadir + '/mf:',
-       'TEXINPUTS': datadir + '/tex:' + datadir + '/ps:.:',
-       'TFMFONTS' : datadir + '/tfm:',
+       'MFINPUTS' : ':' + datadir + '/mf',
+       'TEXINPUTS': ':' + datadir + '/tex:' + datadir + '/ps',
+       'TFMFONTS' : ':' + datadir + '/tfm',
        'GS_FONTPATH' : datadir + '/afm:' + datadir + '/pfa',
        'GS_LIB' : datadir + '/ps',
 }
@@ -146,7 +146,7 @@
        for key in environment.keys ():
                val = environment[key]
                if os.environ.has_key (key):
-                       val = val + os.pathsep + os.environ[key]
+                       val = os.environ[key] + os.pathsep + val 
                os.environ[key] = val
 
 def identify ():