-% A Native PDF version of lily-ps-defs.tex, in which the language
-% features of the PS code are handled by TeX. This takes the place of
-% lilyponddefs.ps, lily.ps, and lily-ps-defs.tex for PDFTeX.
+% lily-pdf-defs.tex
%
-% Note that this file will probably require changes if the lily.ps
-% file changes, which is annoying in the long run. It might be best
-% if sometime the intelligence embodied in lily.ps could be moved up
-% to the GUILE level, so that the \embeddedps commands could consist
-% simply of moveto, lineto, curveto, fill, and stroke commands, with
-% numeric arguments. Such a setup would allow this file to be simpler
-% and probably cause the resulting PostScript code to be faster as
-% well.
-
-% Redefine @ and _ so we can use them in definition names here.
-\catcode`\@=11
-\catcode`\_=11
-
-% Define a helper procedure for PDF coding. This file really
-% shouldn't be read if \pdfliteral is undefined, but the alternate
-% definition is nice for testing.
-
-\ifx\pdfliteral\undefined
- \def\LYPDF#1{\message{[ignored pdfliteral: #1]}}
-\else
- \let\LYPDF=\pdfliteral
-\fi
-
-% Strip 'pt' off of dimensions. Borrowed from latex.
-\begingroup
- \catcode`P=12
- \catcode`T=12
- \lowercase{
- \def\x{\def\lypdf@rempt##1.##2PT{##1\ifnum##2>\z@.##2\fi}}}
- \expandafter\endgroup\x
-\def\lypdf@strippt{\expandafter\lypdf@rempt\the}
-
-\def\LYDIM#1{\expandafter\lypdf@strippt\dimen#1\space}
-
-\def\lypdf@correctfactor{65536}
-\def\lypdf@divcorrect#1{\multiply\dimen#1 \lypdf@correctfactor\relax}
-
-%% Stack handling. The design for this is borrowed from supp-pdf.tex
-
-\newcount\nofLYPDFargs
-\def\@@LYPDF{@@LYPDF}
-
-% Add an argument to the `stack'
-\def\setLYPDFarg#1{
- \advance\nofLYPDFargs by 1
- \expandafter\def
- \csname\@@LYPDF\the\nofLYPDFargs\endcsname
- {#1}
-}
-
-% Get the values for stack variables. The a form includes a closing
-% \space and is thus useful for embedding in \LYPDF macros.
-\def\gLYPDFa#1
- {\csname\@@LYPDF#1\endcsname\space}
-\def\gLYPDFan#1
- {\csname\@@LYPDF#1\endcsname}
-
-% Reset the stack back to normal.
-\def\resetLYPDFstack{\nofLYPDFargs=0}
-
-% A translator for \embeddedps commands. This simply stacks up the
-% arguments and then passes the last arg to the appropriate lypdf@name
-% macro.
-
-\def\embeddedps#1{
- \lypdf@handleArgs#1 \\}
-
-%% Handle the argument list. Note: when working with arrays, just
-%% keep tacking things onto a string until we get a close bracket.
-%% The various LYPDFarray... variables are used for that.
-\newif\ifLYPDFarray
-\def\LYPDFarraystart{[}
-\def\LYPDFarrayend{]}
-\def\LYPDFarraystring{}
-
-\def\lypdf@{lypdf@}
-\def\lypdf@handleArgs#1 #2\\{
- \ifx\\#2\\%
- \csname\lypdf@#1\endcsname
- \resetLYPDFstack
- \else
- \edef\argstring{#1}
- \ifLYPDFarray%
- \edef\LYPDFarraystring{\LYPDFarraystring\space\argstring}
- \ifx\argstring\LYPDFarrayend%
- \LYPDFarrayfalse
- \setLYPDFarg{\LYPDFarraystring}
- \fi
- \else
- \ifx\argstring\LYPDFarraystart%
- \LYPDFarraytrue
- \edef\LYPDFarraystring{[}
- \else
- \setLYPDFarg{#1}
- \fi
- \fi
- \lypdf@handleArgs#2\\
- \fi}
-
-% Here turning on PostScript sets up the bracket stuff. This should
-% probably be called by a more generic header macro.
-\def\turnOnPostScript{\lypdf@load_bracket_dimens}%
-\def\turnOnExperimentalFeatures{}%
-
-%% TODO: lily-ps-defs sets a linecap of 1. I'm not yet sure how to do that
-%% for the Page Description level in PDFTeX.
-
-%% What follows are the definitions for the embeddedps commands.
-%% Notes that in general, \dimen0 and \dimen1 are the x and y
-%% positions of the cursor (used for rlineto handling), and dimen2-9
-%% are used for local dimension handling in the various commands.
-
-\def\lypdf@resetstring{\edef\lypdf@curstring{}}
-
-\def\lypdf@moveto#1#2{
- \dimen0=#1pt
- \dimen1=#2pt
- \edef\lypdf@curstring{\lypdf@curstring\space\LYDIM0 \LYDIM1 m}
-}
-
-\def\lypdf@rmoveto#1#2{
- \advance\dimen0 by #1 pt
- \advance\dimen1 by #2 pt
- \edef\lypdf@curstring{\lypdf@curstring\space\LYDIM0 \LYDIM1 m}
-}
-
-\def\lypdf@rlineto#1#2{
- \advance\dimen0 by #1 pt
- \advance\dimen1 by #2 pt
- \edef\lypdf@curstring{\lypdf@curstring\space\LYDIM0 \LYDIM1 l}
-}
-
-\def\lypdf@draw_beam{% takes width, slope, thick
- \dimen2=\gLYPDFa3 pt\divide\dimen2 by 2
- \dimen3=\gLYPDFa1 pt\dimen3=\gLYPDFa2 \dimen3
- \lypdf@resetstring
- \lypdf@moveto{0}{-\LYDIM2}
- \lypdf@rlineto{\gLYPDFa1}{\LYDIM3}
- \lypdf@rlineto{0}{\gLYPDFa3}
- \LYPDF{\lypdf@curstring\space 0 \LYDIM2 l b}
-}
-
-\def\lypdf@draw_decrescendo{% takes width, ht, cont, thick
- \LYPDF{\gLYPDFa4 w
- \gLYPDFa1 \gLYPDFa3 m 0 \gLYPDFa2 l S
- \gLYPDFa1 -\gLYPDFa3 m 0 -\gLYPDFa2 l S}
-}
-\def\lypdf@draw_crescendo{% takes width, ht, cont, thick
- \LYPDF{\gLYPDFa4 w
- 0 \gLYPDFa3 m \gLYPDFa1 \gLYPDFa2 l S -\gLYPDFa3 m
- \gLYPDFa1 -\gLYPDFa2 l S}
-}
-
-\def\lypdf@draw_tuplet{% takes height, gap, dx, dy, thickness, dir
- \dimen2=\gLYPDFa1 pt\multiply\dimen2 by \gLYPDFa6 \relax
- % height*dir
- \dimen3=\gLYPDFa2 pt % tuplet_gapx
- \dimen0=\gLYPDFa3 pt
- \dimen4=\gLYPDFa4 \dimen3 \divide\dimen4 by \dimen0
- \lypdf@divcorrect4 % tuplet_gapy
- \dimen5=\gLYPDFa3 pt \advance\dimen5 by-\dimen3
- \divide\dimen5 by 2 % (dx-gx)/2
- \dimen6=\gLYPDFa4 pt \advance\dimen6 by-\dimen4
- \divide\dimen6 by 2 % (dx-gx)/2
-
- \lypdf@resetstring
- \lypdf@moveto{0}{0}
- \lypdf@rlineto{0}{\LYDIM2}
- \lypdf@rlineto{\LYDIM5}{\LYDIM6}
- \lypdf@rmoveto{\LYDIM3}{\LYDIM4}
- \lypdf@rlineto{\LYDIM5}{\LYDIM6}
- \lypdf@rlineto{0}{-\LYDIM2}
- \LYPDF{\gLYPDFa5 w 1 j 1 J \lypdf@curstring}
-}
-
-\def\lypdf@draw_volta{% takes height, width, thickness, v_start, v_end
- \dimen2=\gLYPDFa1 pt % volta height
- \ifnum\gLYPDFa4 =0
- \edef\vstartstr{0 0 m 0 \LYDIM2 l\space}
- \else
- \edef\vstartstr{0 \LYDIM2 m\space}
- \fi
- \ifnum\gLYPDFa5 =0
- \edef\vendstr{\gLYPDFa2 0 l\space}
- \else
- \edef\vendstr{}
- \fi
- \LYPDF{\gLYPDFa3 w 1 J 1 j \vstartstr \gLYPDFa2 \LYDIM2 l \vendstr S}
-}
-
-\def\lypdf@draw_bezier_sandwich{% sixteen coords, thickness
- \LYPDF{\gLYPDFa17 w
- \gLYPDFa15 \gLYPDFa16 m
- \gLYPDFa9 \gLYPDFa10 \gLYPDFa11 \gLYPDFa12 \gLYPDFa13 \gLYPDFa14 c
- \gLYPDFa7 \gLYPDFa8 l
- \gLYPDFa1 \gLYPDFa2 \gLYPDFa3 \gLYPDFa4 \gLYPDFa5 \gLYPDFa6 c
- b}}
-
-\def\lypdf@draw_dashed_slur{%
- \LYPDF{1 J 1 j \gLYPDFa10 \gLYPDFa11 d \gLYPDFa9 w
- \gLYPDFa1 \gLYPDFa2 m
- \gLYPDFa3 \gLYPDFa4 \gLYPDFa5 \gLYPDFa6 \gLYPDFa7 \gLYPDFa8 c
- S}}
-
-%% Definitions for the various dimensions used by the brackets.
-\newdimen\lypdf@interline
-\newdimen\lypdf@bracket_b
-\newdimen\lypdf@bracket_w
-\newdimen\lypdf@bracket_v
-\newdimen\lypdf@bracket_u
-\newdimen\lypdf@bracket_t
-
-\def\lypdf@load_bracket_dimens{
- \lypdf@interline=\lilypondpaperinterline pt
- \lypdf@bracket_b=0.3333\lypdf@interline
- \lypdf@bracket_w=2\lypdf@interline
- \lypdf@bracket_v=1.5\lypdf@interline
- \lypdf@bracket_u=\lypdf@bracket_v
- \lypdf@bracket_t=\lilypondpaperstaffline pt
- \lypdf@bracket_t=2\lypdf@bracket_t
- \relax
-}
-
-%alpha=50. We calculate the sin and cos directly because TeX can't.
-\def\lypdf@bracket_sin{0.76604}%
-\def\lypdf@bracket_cos{0.64279}%
-
-\def\lypdf@draw_half_bracket{% dimen2 is the bracket height
- \dimen3=\dimen2\advance\dimen3 by -\lypdf@bracket_t % h - t
-
- % Here, dimen0 and dimen1 are the end points of the bracket
- \dimen0=\lypdf@bracket_b\relax\advance\dimen0 by \lypdf@bracket_v
- \dimen1=\dimen3\advance\dimen1 by \lypdf@bracket_u
-
- % bottom of half bracket and inner side
- \edef\lypdf@halfbrack{0 0 m \lypdf@strippt\lypdf@bracket_b\space 0 l
- \lypdf@strippt\lypdf@bracket_b\space \LYDIM3 l}
-
- % inner curve -- first control point is just 0.4*v to the right
- \dimen4=\lypdf@bracket_b\advance\dimen4 by 0.4\lypdf@bracket_v
- % ... second point is calc'd using alpha
- \dimen5=-0.25\lypdf@bracket_v\relax
- \dimen6=\dimen0\advance\dimen6 by \lypdf@bracket_cos\dimen5\relax
- \dimen7=\dimen1\advance\dimen7 by \lypdf@bracket_sin\dimen5\relax
- % draw the curve
- \edef\lypdf@halfbrack
- {\lypdf@halfbrack\space\LYDIM4 \LYDIM3 \LYDIM6 \LYDIM7 \LYDIM0 \LYDIM1 c}
-
- % outer curve -- second control point is just .5*v to the right
- % (plus 1 pt)
- \dimen4=0.5\lypdf@bracket_v\advance\dimen4 by 1pt
- % ... first point is calc'd using alpha
- \dimen5=-0.15\lypdf@bracket_v\relax
- \dimen6=\dimen0\advance\dimen6 by \lypdf@bracket_cos\dimen5\relax
- \dimen7=\dimen1\advance\dimen7 by \lypdf@bracket_sin\dimen5\relax
- % draw the curve, close, stroke, fill
- \edef\lypdf@halfbrack
- {\lypdf@halfbrack\space\LYDIM6 \LYDIM7 \LYDIM4 \LYDIM2 0 \LYDIM2 c b}
-}
-
-\def\lypdf@draw_bracket{% height
- \dimen2=\gLYPDFa1 pt \divide\dimen2 by 2
- \advance\dimen2 by \lypdf@bracket_b\relax
- % calculate the half bracket
- \lypdf@draw_half_bracket
- % set up graphics state, gsave, and flip the coord system
- % then draw both half brackets.
- \LYPDF{\lypdf@strippt\lypdf@bracket_t\space w
- 1 J 1 j q 1 0 0 -1 0 0 cm
- \lypdf@halfbrack\space Q \lypdf@halfbrack}
+% Define an \embeddedpdf command so that we can do the right thing.
+%
+\edef\lilypdfdefsELC{\the\endlinechar}%
+\endlinechar -1\relax
+
+\gdef\lilypondspace{ }
+
+\gdef\lilypondpostscript{
+ % This sets CTM so that you get to the currentpoint
+ % by executing a 0 0 moveto
+ \def\embeddedpdf##1{
+ \pdfliteral{
+ q \lilypondpaperoutputscale\lilypondspace 0 0 %
+ \lilypondpaperoutputscale\lilypondspace 0 0 cm %
+ \lilyoutputscalefactor\lilypondspace 0 0 %
+ \lilyoutputscalefactor\lilypondspace 0 0 cm %
+ ##1 Q
+ }
}
+}
+\gdef\lilypondexperimentalfeatures{}
-%% Clean up after ourselves.
-
-\catcode`\@=12
-\catcode`\_=8
-
+\endlinechar \lilypdfdefsELC
\endinput
projects / lilypond.git / blobdiff