summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex')
-rw-r--r--Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex140
1 files changed, 0 insertions, 140 deletions
diff --git a/Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex b/Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex
deleted file mode 100644
index f9de4b223f4..00000000000
--- a/Master/texmf-dist/tex/luatex/luaotfload/fontloader-mplib.tex
+++ /dev/null
@@ -1,140 +0,0 @@
-%D \module
-%D [ file=luatex-mplib,
-%D version=2009.12.01,
-%D title=\LUATEX\ Support Macros,
-%D subtitle=\METAPOST\ to \PDF\ conversion,
-%D author=Taco Hoekwater \& Hans Hagen,
-%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
-
-%D This is the companion to the \LUA\ module \type {supp-mpl.lua}. Further
-%D embedding is up to others. A simple example of usage in plain \TEX\ is:
-%D
-%D \starttyping
-%D \pdfoutput=1
-%D
-%D \input luatex-mplib.tex
-%D
-%D \setmplibformat{plain}
-%D
-%D \mplibcode
-%D beginfig(1);
-%D draw fullcircle
-%D scaled 10cm
-%D withcolor red
-%D withpen pencircle xscaled 4mm yscaled 2mm rotated 30 ;
-%D endfig;
-%D \endmplibcode
-%D
-%D \end
-%D \stoptyping
-
-\def\setmplibformat#1{\def\mplibformat{#1}}
-
-\def\setupmplibcatcodes
- {\catcode`\{=12 % could be optional .. not really needed
- \catcode`\}=12 % could be optional .. not really needed
- \catcode`\#=12
- \catcode`\^=12
- \catcode`\~=12
- \catcode`\_=12
- \catcode`\%=12
- \catcode`\&=12
- \catcode`\$=12 }
-
-\def\mplibcode
- {\bgroup
- \setupmplibcatcodes
- \domplibcode}
-
-\long\def\domplibcode#1\endmplibcode
- {\egroup
- \directlua{metapost.process('\mplibformat',[[#1]])}}
-
-%D We default to \type {plain} \METAPOST:
-
-\def\mplibformat{plain}
-
-%D We use a dedicated scratchbox:
-
-\ifx\mplibscratchbox\undefined \newbox\mplibscratchbox \fi
-
-%D Now load the needed \LUA\ code.
-
-\directlua{dofile(kpse.find_file('luatex-mplib.lua'))}
-% \directlua{dofile(resolvers.findfile('luatex-mplib.lua'))}
-
-%D The following code takes care of encapsulating the literals:
-
-\def\startMPLIBtoPDF#1#2#3#4%
- {\hbox\bgroup
- \xdef\MPllx{#1}\xdef\MPlly{#2}%
- \xdef\MPurx{#3}\xdef\MPury{#4}%
- \xdef\MPwidth{\the\dimexpr#3bp-#1bp\relax}%
- \xdef\MPheight{\the\dimexpr#4bp-#2bp\relax}%
- \parskip0pt%
- \leftskip0pt%
- \parindent0pt%
- \everypar{}%
- \setbox\mplibscratchbox\vbox\bgroup
- \noindent}
-
-\def\stopMPLIBtoPDF
- {\egroup
- \setbox\mplibscratchbox\hbox
- {\hskip-\MPllx bp%
- \raise-\MPlly bp%
- \box\mplibscratchbox}%
- \setbox\mplibscratchbox\vbox to \MPheight
- {\vfill
- \hsize\MPwidth
- \wd\mplibscratchbox0pt%
- \ht\mplibscratchbox0pt%
- \dp\mplibscratchbox0pt%
- \box\mplibscratchbox}%
- \wd\mplibscratchbox\MPwidth
- \ht\mplibscratchbox\MPheight
- \box\mplibscratchbox
- \egroup}
-
-%D The body of picture, except for text items, is taken care of by:
-
-\ifnum\pdfoutput>0
- \let\MPLIBtoPDF\pdfliteral
-\else
- \def\MPLIBtoPDF#1{\special{pdf:literal direct #1}} % not ok yet
-\fi
-
-%D Text items have a special handler:
-
-\def\MPLIBtextext#1#2#3#4%
- {\begingroup
- \setbox\mplibscratchbox\hbox
- {\font\temp=#1 at #2bp%
- \temp
- #3}%
- \setbox\mplibscratchbox\hbox
- {\raise#4sp%
- \box\mplibscratchbox}%
- \wd\mplibscratchbox0pt%
- \ht\mplibscratchbox0pt%
- \dp\mplibscratchbox0pt%
- \box\mplibscratchbox
- \endgroup}
-
-\def\MPLIBpdftext#1#2%
- {\ifcsname mplib::#1\endcsname
- % already done, forgotten outside convert group
- \message{<reusing mplib: #1>}%
- \else
- \message{<embedding mplib: #1>}%
- \immediate\pdfximage{#1}% we cannot remove the file as it is included last
- \expandafter\edef\csname mplib::#1\endcsname{\the\pdflastximage}%
- \fi
- \setbox\mplibscratchbox\hbox
- {\raise#2sp\hbox{\pdfrefximage\csname mplib::#1\endcsname}}%
- \wd\mplibscratchbox0pt%
- \ht\mplibscratchbox0pt%
- \dp\mplibscratchbox0pt%
- \box\mplibscratchbox}
-
-\endinput