From f8dbe8f1d2e372fa099b4eb7e8baf59d849abb3a Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 11 Jul 2001 22:46:27 +0200
Subject: [PATCH] patch::: 1.5.1.jcn3

* Make blot work without -fps too.
---
 CHANGES                      | 2 ++
 VERSION                      | 2 +-
 ps/music-drawing-routines.ps | 4 ++++
 tex/lily-ps-defs.tex         | 3 ++-
 4 files changed, 9 insertions(+), 2 deletions(-)

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{}
 
-- 
2.39.5