From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 9 Oct 2006 10:27:18 +0000 (+0000)
Subject: (postscript): gsave & grestore
X-Git-Tag: release/2.10.0-2~215
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0497b0b875d4bd1e002655742bb0cb8da318cc49;p=lilypond.git

(postscript): gsave & grestore
around embedded PS. Do setlinewidth too. Fixes  #109.
---

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)))