(postscript): gsave & grestore

around embedded PS. Do setlinewidth too. Fixes  #109.

diff --git a/ChangeLog b/ChangeLog
index 0374d76af8430aa7a243216c93673be0307a1565..6aa8986c7ad25afd4eebceb5fa054cfb60ba2347 100644 (file)
--- 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 a601bd02607929a074df878481b05fbd5de83db8..03413d128f3ac9994d260d0b9bc0b03882bade64 100644 (file)
--- 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)))