2 % WARNING: don't leave blank lines in the PS-code; they are
3 % transformed into \par
7 % header info (macros/defs, etc) should go into a \special{! ... },
8 % note the ! sign. See dvips.info for details.
10 % escape the colon with \string to avoid problems with french babel
12 \def\PSsetTeXdimen#1{\expandafter\special{! /#1 (\csname #1\endcsname) set_tex_dimen}}
15 % PostScript PT/IN: 72/25.4
16 \def\scaletounit{ 2.834645 mul }
18 % for true printers points to postscript points:
19 %\def\scaletounit{1.00375}
20 \def\turnOnPostScript{%
21 % This sets CTM so that you get to the currentpoint
22 % by executing a 0 0 moveto
24 \special{ps\string: @beginspecial @setspecial
25 \lilypondpaperoutputscale\lilySpace\scaletounit
26 \lilypondpaperoutputscale\lilySpace\scaletounit
27 % FUCKING REDHAT XDVI -- ARG!
28 skeel ##1 @endspecial}%
30 \PSsetTeXdimen{lilypondpaperblotdiameter}
32 \def\turnOnExperimentalFeatures{}