diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
commit | fc4466b32ed330a956ac603b00fd145524cff49a (patch) | |
tree | 2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/mlib-pdf.mkiv | |
parent | 50e2368597d5f6fe2057195d0ae6a9f2044923e4 (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.mkiv | 184 |
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 |