% header info (macros/defs, etc) should go into a \special{! ... },
% note the ! sign. See dvips.info for details.
%
-
-% ARG. Fix brackets
+% 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 ##1 @endspecial}
+ \special{ps\string: @beginspecial @setspecial
+ \lilypondpaperoutputscale\lilySpace\scaletounit
+ \lilypondpaperoutputscale\lilySpace\scaletounit
+ % FUCKING REDHAT XDVI -- ARG!
+ skeel ##1 @endspecial}%
}
- %
- \special{!
-/stafflinethickness \mudelapaperstafflinethickness\space def
-/interline \mudelapaperinterline\space def
-interline 3 div /bracket_b exch def
-interline 2 mul /bracket_w exch def
-stafflinethickness 2 mul /bracket_t exch def
-interline 1.5 mul /bracket_v exch def
-bracket_v /bracket_u exch def
-50 /bracket_alpha exch def
-1 setlinecap}
+ \PSsetTeXdimen{lilypondpaperblotdiameter}
}
-
\def\turnOnExperimentalFeatures{}