From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 30 Jul 2001 11:41:29 +0000 (+0200)
Subject: patch::: 1.4.6.jcn1
X-Git-Tag: release/1.4.7~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=003a78de84e0fdf247aae63b9a41cbc66fdd595a;p=lilypond.git

patch::: 1.4.6.jcn1

1.4.6.jcn1
==========

* Fixes for PostScript beams and stems.

1.4.6
=====
---

diff --git a/CHANGES b/CHANGES
index 8016cc24a2..04ee44abc9 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,11 @@
+1.4.6.jcn1
+==========
+
+* Fixes for PostScript beams and stems.
+
+1.4.6
+=====
+
 1.4.5.jcn1
 ==========
 
diff --git a/VERSION b/VERSION
index d50b1c95f7..a09582858d 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=4
 PATCH_LEVEL=6
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=jcn1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 86b39dff6b..2f1f4ba350 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -31,13 +31,6 @@
 
 	l 2 div sub /h exch def
 	l 2 div sub /d exch def
-
-	%% UGH huh?
-	%% Where does this correction come from?
-	%% Why don't we need this in x direction?
-	h l 2 div sub /h exch def
-	d l 2 div sub /d exch def
-
 	l 2 div sub /w exch def
 	l 2 div sub /b exch def
 
@@ -64,9 +57,9 @@
 		%% real thin lines for testing
 		/l 0.01 def
 	}{
-		/l 0.1 def
+		/l 0.05 def
 	} ifelse
-	l 2 div setlinewidth
+	l setlinewidth
 
  	0 setlinecap
 	1 setlinejoin