From 0497b0b875d4bd1e002655742bb0cb8da318cc49 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 9 Oct 2006 10:27:18 +0000
Subject: [PATCH] (postscript): gsave & grestore around embedded PS. Do
 setlinewidth too. Fixes  #109.

---
 ChangeLog                      |  5 +++++
 scm/define-markup-commands.scm | 10 +++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0374d76af8..6aa8986c7a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-09  Han-Wen Nienhuys  <hanwen@lilypond.org>
+
+	* scm/define-markup-commands.scm (postscript): gsave & grestore
+	around embedded PS. Do setlinewidth too. Fixes  #109.
+
 2006-10-08  Jürgen Reuter  <reuter@ipd.uka.de>
 
 	* lily/ligature-bracket-engraver: Bugfix: Add missing stream event
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index a601bd0260..03413d128f 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -239,9 +239,17 @@ gsave /ecrm10 findfont
  scalefont setfont 90 rotate (hello) show grestore 
 @end verbatim
 "
+
   ;; FIXME
   (ly:make-stencil
-   (list 'embedded-ps str)
+   (list 'embedded-ps
+	 (format "
+gsave currentpoint translate
+0.1 setlinewidth
+ ~a
+grestore
+"
+		 str))
    '(0 . 0) '(0 . 0)))
 
 
-- 
2.39.5