From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 11 Jul 2001 20:46:27 +0000 (+0200)
Subject: patch::: 1.5.1.jcn3
X-Git-Tag: release/1.5.2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f8dbe8f1d2e372fa099b4eb7e8baf59d849abb3a;p=lilypond.git
patch::: 1.5.1.jcn3
* Make blot work without -fps too.
---
diff --git a/CHANGES b/CHANGES
index b0510c8971..640d803673 100644
--- a/CHANGES
+++ b/CHANGES
@@ -4,6 +4,8 @@
1.5.1.jcn2
==========
+* Make blot work without -fps too.
+
* Use blot diameter for postscript beams and boxes.
* Guile-1.5.0-cvs updates and Guile-1.4.x compatibility.
diff --git a/VERSION b/VERSION
index 5854e483d1..f091b0882c 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
MAJOR_VERSION=1
MINOR_VERSION=5
PATCH_LEVEL=1
-MY_PATCH_LEVEL=jcn2
+MY_PATCH_LEVEL=jcn3
# 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 0b1ddcf9c3..8a64dcf6eb 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -4,6 +4,10 @@
/blot-diameter { lilypondpaperblotdiameter } bind def
+/set_tex_dimen {
+ cvr def
+} bind def
+
/euclidean_length
{
1 copy mul exch 1 copy mul add sqrt
diff --git a/tex/lily-ps-defs.tex b/tex/lily-ps-defs.tex
index c1ff2b18ed..ab5ad6b434 100644
--- a/tex/lily-ps-defs.tex
+++ b/tex/lily-ps-defs.tex
@@ -20,6 +20,7 @@
##1 @endspecial}%
}
}
-
+\def\PSsetTeXdimen#1{\expandafter\special{! /#1 (\csname #1\endcsname) set_tex_dimen}}
+\PSsetTeXdimen{lilypondpaperblotdiameter}
\def\turnOnExperimentalFeatures{}