partial: 1.5.21.jcn

[lilypond.git] / tex / lily-ps-defs.tex

diff --git a/tex/lily-ps-defs.tex b/tex/lily-ps-defs.tex
index 4f208653f2145a6211309b52728afe134a71ebaf..0172a73d1891c6c7c096554d33b650be0c8ee83d 100644 (file)
--- a/tex/lily-ps-defs.tex
+++ b/tex/lily-ps-defs.tex
@@ -7,17 +7,21 @@
 % header info (macros/defs, etc) should go into a \special{! ... }, 
 % note the ! sign.  See dvips.info for details.
 %
+% escape the colon with \string to avoid problems with french babel
+%
+\def\PSsetTeXdimen#1{\expandafter\special{! /#1 (\csname #1\endcsname) set_tex_dimen}}
 \def\lilySpace{ }
 \def\turnOnPostScript{%
         % This sets CTM so that you get to the currentpoint
         % by executing a 0 0 moveto
         \def\embeddedps##1{%
-                \special{ps: @beginspecial @setspecial
+                \special{ps\string: @beginspecial @setspecial
+                        \lilypondpaperoutputscale\lilySpace 
                         \lilypondpaperoutputscale\lilySpace
-                        \lilypondpaperoutputscale\lilySpace scale 
-                        ##1 @endspecial}%
+                        % FUCKING REDHAT XDVI -- ARG!
+                        skeel ##1 @endspecial}%
         }
+        \PSsetTeXdimen{lilypondpaperblotdiameter}
 }
-
 \def\turnOnExperimentalFeatures{}