release: 1.1.5

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

diff --git a/tex/lily-ps-defs.tex b/tex/lily-ps-defs.tex
index 99a7e13c2cc83c882feb389c0f39d6d01b4421d6..7ddeda4f7692eba6c235ab89c762a5c6027f7aae 100644 (file)
--- a/tex/lily-ps-defs.tex
+++ b/tex/lily-ps-defs.tex
@@ -16,13 +16,38 @@
 
 % transplant a TeX dimension into the PS output.
 \def\PSsetTeXdimen#1{\expandafter\special{! /#1 (\the\csname #1\endcsname) deftexdimen}}
+{%
+   \def\par{ }%         %Ugh.  Don't try this at home, kids!
+   % neat file-include trick by Piet van Oostrum <piet@cs.uu.nl>
+   \newread\defin 
+   \newtoks\toksfiledefi\newtoks\toksfiledefii 
+   \def\ifnot#1{#1\else\expandafter\expandafter\fi\iffalse\iftrue\fi} 
+   \def\filedef#1#2{%#1=command name, #2=file name 
+           \openin\defin=#2\relax\def#1{} 
+           \ifeof\defin
+                   \message{***************** CAN NOT OPEN #2 ********************}
+                   \end
+           \fi 
+           \loop\ifnot{\ifeof\defin}\read\defin to\tempfiledef
+           \toksfiledefi=\expandafter{#1}% 
+           \toksfiledefii=\expandafter{\tempfiledef}% 
+   %        \expandafter\special\expandafter{!\the\toksfiledefi\the\toksfiledefii}\repeat%
+          \global\edef#1{\the\toksfiledefi\the\toksfiledefii}\repeat%
+   }
+   %
+   % This seems a little backwards, but we don't want to include the PS
+   % stuff too early
+   %
+   \filedef\includelilyps{lily.ps}%
+   \expandafter\special{! \includelilyps}
+}
+
 
-\def\turnOnPostScript{%
 \special{!
 % PS helper: convert (0.2pt) to the token 0.2
 /settexdimen
 {
-       /thestring exch def
+        /thestring exch def
         thestring 0 thestring length 2 sub
         getinterval
         token
@@ -35,32 +60,30 @@
         def     
 } def
 }
-\PSsetTeXdimen{staffrulethickness}
-\PSsetTeXdimen{staffheight}
-% urg, no dvips.info over here...
-%\special{! \input lily.ps }
-\special{!
-(lily.ps) findlibfile 
-{
-       exch pop //systemdict /run get exec
-} 
-{ 
-       /undefinedfilename signalerror 
-} ifelse
-}
-%
-\def\embeddedps##1{%
+
+\def\turnOnPostScript{%
+        \PSsetTeXdimen{stafflinethickness}
+        \PSsetTeXdimen{staffheight}
+        
         % This sets CTM so that you get to the currentpoint
         % by executing a 0 0 moveto
-        \special{ps: @beginspecial @setspecial ##1 @endspecial}       
-}
-%
-%
-%\PSsetTeXdimen{staffrulethickness}
-%\PSsetTeXdimen{staffheight}
+        \def\embeddedps##1{%
+                \special{ps: @beginspecial @setspecial ##1 @endspecial}       
+        }
+        %
+
+        \special{! 
+/interline \mudelapaperinterline0  def % ugh.  Only works x.yyyy floats 
+stafflinethickness 1.2 mul /plet_t exch 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
+staffheight 4 div /interline exch def
+1 setlinecap}
 }
 
-\def\turnOnExperimentalFeatures{%
-\special{ps:
-}}
+\def\turnOnExperimentalFeatures{}