summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/mlib-pdf.mkiv
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
committerKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
commitfc4466b32ed330a956ac603b00fd145524cff49a (patch)
tree2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/mlib-pdf.mkiv
parent50e2368597d5f6fe2057195d0ae6a9f2044923e4 (diff)
context (22apr16)
git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mlib-pdf.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/base/mlib-pdf.mkiv184
1 files changed, 0 insertions, 184 deletions
diff --git a/Master/texmf-dist/tex/context/base/mlib-pdf.mkiv b/Master/texmf-dist/tex/context/base/mlib-pdf.mkiv
deleted file mode 100644
index 92bf86ea9f1..00000000000
--- a/Master/texmf-dist/tex/context/base/mlib-pdf.mkiv
+++ /dev/null
@@ -1,184 +0,0 @@
-%D \module
-%D [ file=mlib-pdf,
-%D version=2008.03.25,
-%D title=\METAPOST\ Integrated Graphics,
-%D subtitle=Conversion to PDF,
-%D author=Hans Hagen,
-%D date=\currentdate,
-%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
-
-\unprotect
-
-% We use bit more code that needed because we want to limit the
-% amount of boxing.
-
-\registerctxluafile{mlib-pdf}{1.001}
-
-%D Some code is shared between MPLIB and MPS. The following variables
-%D are also available for introspection and other purposes.
-
-\ifdefined\MPwidth \else \newdimen\MPwidth \fi
-\ifdefined\MPheight \else \newdimen\MPheight \fi
-
-\ifdefined\MPllx \else \newdimen\MPllx \fi
-\ifdefined\MPlly \else \newdimen\MPlly \fi
-\ifdefined\MPurx \else \newdimen\MPurx \fi
-\ifdefined\MPury \else \newdimen\MPury \fi
-
-\ifdefined\MPbox \else \newbox \MPbox \fi
-
-\def\setMPboundingbox#1#2#3#4% at some point we might pass them as base or scaled points
- {\global\MPllx #1\onebasepoint
- \global\MPlly #2\onebasepoint
- \global\MPurx #3\onebasepoint
- \global\MPury #4\onebasepoint
- \global\MPwidth \dimexpr\MPurx-\MPllx\relax
- \global\MPheight\dimexpr\MPury-\MPlly\relax}
-
-\def\resetMPboundingbox
- {\global\MPwidth \zeropoint
- \global\MPheight\zeropoint
- \global\MPllx \zeropoint
- \global\MPlly \zeropoint
- \global\MPurx \zeropoint
- \global\MPury \zeropoint}
-
-\def\repositionMPboxindeed
- {\setbox\MPbox\hbox\bgroup
- \kern-\MPllx
- \raise-\MPlly
- \box\MPbox
- \egroup}
-
-\def\repositionMPbox
- {\ifzeropt\MPllx
- \ifzeropt\MPlly
- % okay
- \else
- \repositionMPboxindeed
- \fi
- \else
- \repositionMPboxindeed
- \fi}
-
-\def\finalizeMPbox
- {\repositionMPbox
- \setbox\MPbox\vbox to \MPheight\bgroup
- \vfill
- \hsize\MPwidth
- \smashbox\MPbox
- \box\MPbox
- \egroup
- \wd\MPbox\MPwidth
- \ht\MPbox\MPheight}
-
-\def\MPtextext#1#2#3#4#5% beware: we use a different method now (see mlib-pps)
- {\begingroup
- \setbox\MPbox\hbox{\font\temp=#1\space at #2\onebasepoint \let\c\char \temp #3}%
- \MPllx-#4\onebasepoint
- \MPlly-#5\onebasepoint
- \repositionMPbox
- \smashbox\MPbox
- \box\MPbox
- \endgroup}
-
-% MPLIB specific:
-
-\def\MPLIBtoPDF{\clf_mpflushliteral}
-
-\def\startMPLIBtoPDF#1#2#3#4%
- {\meta_process_graphic_figure_start
- \dostarttagged\t!mpgraphic\empty
- \naturalhbox attr \imageattribute 1 \bgroup
- \dousecolorparameter\s!black\forcecolorhack
- \setMPboundingbox{#1}{#2}{#3}{#4}%
- \setbox\MPbox\vbox\bgroup
- % \forgetall % already done elsewhere
- \noindent} % forces the proper cm in the backend
-
-\def\stopMPLIBtoPDF
- {\egroup
- \finalizeMPbox
- \box\MPbox
- \egroup
- \dostoptagged
- \meta_process_graphic_figure_stop}
-
-\def\MPLIBflushreset % This can (will) move to the Lua end.
- {\clf_mpflushreset}
-
-%D Kind of special:
-%
-% test.mp:
-%
-% beginfig(1) fill fullcircle scaled 10cm withcolor red ; endfig ;
-% beginfig(2) draw fullcircle scaled 5cm withcolor blue ; endfig ;
-% beginfig(3) draw textext("just some text") ; endfig ;
-%
-% standalone pages:
-%
-% \starttext
-% \directMPgraphic{input "test.mp" ;}
-% \stoptext
-
-\let\normalstartMPLIBtoPDF\startMPLIBtoPDF
-\let\normalstopMPLIBtoPDF \stopMPLIBtoPDF
-
-\def\directstartMPLIBtoPDF{\startTEXpage\normalstartMPLIBtoPDF}
-\def\directstopMPLIBtoPDF {\normalstopMPLIBtoPDF\stopTEXpage}
-
-\unexpanded\def\directMPgraphic
- {\dodoublegroupempty\mlib_direct_graphic}
-
-% \def\mlib_direct_graphic#1#2% makes pages (todo: make boxes)
-% {\meta_begin_graphic_group{#1}%
-% \let\startMPLIBtoPDF\directstartMPLIBtoPDF
-% \let\stopMPLIBtoPDF \directstopMPLIBtoPDF
-% \meta_start_current_graphic
-% \forgetall
-% \edef\p_extensions{\MPinstanceparameter\s!extensions}%
-% \normalexpanded{\noexpand\ctxlua{metapost.graphic {
-% instance = "\currentMPinstance",
-% format = "\currentMPformat",
-% data = \!!bs#2;\!!es,
-% initializations = \!!bs\meta_flush_current_initializations\!!es,
-% % useextensions = "\MPinstanceparameter\s!extensions",
-% \ifx\p_extensions\v!yes
-% extensions = \!!bs\clf_getmpextensions{\currentMPinstance}\!!es,
-% \fi
-% inclusions = \!!bs\meta_flush_current_inclusions\!!es,
-% definitions = \!!bs\meta_flush_current_definitions\!!es,
-% figure = "all",
-% method = "\MPinstanceparameter\c!method",
-% }}}%
-% \meta_stop_current_graphic
-% \meta_end_graphic_group}
-
-\def\mlib_direct_graphic#1#2% makes pages (todo: make boxes)
- {\meta_begin_graphic_group{#1}%
- \let\startMPLIBtoPDF\directstartMPLIBtoPDF
- \let\stopMPLIBtoPDF \directstopMPLIBtoPDF
- \meta_start_current_graphic
- \forgetall
- \edef\p_extensions{\MPinstanceparameter\s!extensions}%
- \normalexpanded{\noexpand\clf_mpgraphic
- instance {\currentMPinstance}%
- format {\currentMPformat}%
- data {#2;}%
- initializations {\meta_flush_current_initializations}%
- \ifx\p_extensions\v!yes
- extensions {\clf_getmpextensions{\currentMPinstance}}%
- \fi
- inclusions {\meta_flush_current_inclusions}%
- definitions {\meta_flush_current_definitions}%
- figure {all}%
- method {\MPinstanceparameter\c!method}%
- \relax}%
- \meta_stop_current_graphic
- \meta_end_graphic_group}
-
-\protect \endinput