tex/lily-ps-defs.tex

   1 % lily-ps-defs.tex
   2 %
   3 \edef\lilypsdefsELC{\the\endlinechar}%
   4 \endlinechar -1\relax
   5
   6 % Header info (macros/defs, etc) should go into a \special{! ... };
   7 % note the ! sign.  See dvips.info for details.
   8 %
   9 % Escape the colon with \string to avoid problems with French while using
  10 % the Babel package.
  11
  12 \gdef\lilypondsetdimen#1{
  13   \expandafter\special{
  14     ! /#1 (\csname #1\endcsname) set_tex_dimen
  15   }
  16 }
  17
  18 \gdef\lilypondspace{ }
  19
  20 \gdef\lilypondpostscript{
  21   % This sets CTM so that you get to the currentpoint
  22   % by executing a 0 0 moveto
  23   \def\embeddedps##1{
  24     \special{
  25       ps\string: @beginspecial @setspecial %
  26                  \lilypondpaperoutputscale\lilypondspace\scaletounit %
  27                  \lilypondpaperoutputscale\lilypondspace\scaletounit %
  28                  % FUCKING REDHAT XDVI -- ARG!
  29                  skeel ##1 @endspecial
  30     }
  31   }
  32   \lilypondsetdimen{lilypondpaperblotdiameter}
  33 }
  34
  35 \gdef\lilypondexperimentalfeatures{}
  36
  37 \endlinechar \lilypsdefsELC
  38 \endinput