tex/lily-ps-defs.tex

   1 %
   2 % WARNING: don't leave blank lines in the PS-code; they are
   3 % transformed into \par
   4 %
   5
   6 %
   7 % header info (macros/defs, etc) should go into a \special{! ... },
   8 % note the ! sign.  See dvips.info for details.
   9 %
  10 % escape the colon with \string to avoid problems with french babel
  11 %
  12 \def\PSsetTeXdimen#1{\expandafter\special{! /#1 (\csname #1\endcsname) set_tex_dimen}}
  13 \def\lilySpace{ }
  14
  15 % for mm: 72.27/25.4
  16 \def\scaletounit{ 2.845276 mul }
  17
  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
  23         \def\embeddedps##1{%
  24                 \special{ps\string: @beginspecial @setspecial
  25                         \lilypondpaperoutputscale\lilySpace\scaletounit
  26                         \lilypondpaperoutputscale\lilySpace\scaletounit
  27                         % FUCKING REDHAT XDVI -- ARG!
  28                         skeel ##1 @endspecial}%
  29         }
  30         \PSsetTeXdimen{lilypondpaperblotdiameter}
  31 }
  32 \def\turnOnExperimentalFeatures{}
  33