summaryrefslogtreecommitdiff
path: root/tex/context/base/meta-fig.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2006-05-08 12:59:00 +0200
committerHans Hagen <pragma@wxs.nl>2006-05-08 12:59:00 +0200
commit88eab06af697b8d0fd8ef6d7762eae4901b191d2 (patch)
tree5c89c6f759c1305287c55cfcc38ae0bf6e934796 /tex/context/base/meta-fig.tex
parent7310101ce7739889fd4681864978f2c71722bbd6 (diff)
downloadcontext-88eab06af697b8d0fd8ef6d7762eae4901b191d2.tar.gz
stable 2006.05.08 12:59
Diffstat (limited to 'tex/context/base/meta-fig.tex')
-rw-r--r--tex/context/base/meta-fig.tex32
1 files changed, 27 insertions, 5 deletions
diff --git a/tex/context/base/meta-fig.tex b/tex/context/base/meta-fig.tex
index 9a46b80d4..638166860 100644
--- a/tex/context/base/meta-fig.tex
+++ b/tex/context/base/meta-fig.tex
@@ -49,11 +49,33 @@
\def\startMPpage
{\dodoubleempty\dostartMPpage}
-\long\def\dostartMPpage[#1][#2]#3\stopMPpage % second arg gobbles space
+% \long\def\dostartMPpage[#1][#2]#3\stopMPpage % second arg gobbles space
+% {\dostartfittingpage[\??mg][#1]%
+% \startMPcode#3\stopMPcode
+% \dostopfittingpage}
+
+\long\def\dostartMPpage[#1][#2]% second arg gobbles space
{\dostartfittingpage[\??mg][#1]%
- \startMPcode#3\stopMPcode
+ \obeylines\def\obeyedline{\rawcharacter{13}}%
+ \dodostartMPpage}
+
+% \long\def\dodostartMPpage#1\stopMPpage
+% {\startMPcode#1\stopMPcode
+% \dostopfittingpage}
+%
+% more efficient:
+
+\long\def\obeyMPlines
+ {\obeylines
+ \def\obeyedline{\rawcharacter{13}}}
+
+\long\def\dodostartMPpage#1\stopMPpage
+ {\startuseMPgraphic{@@}#1\stopuseMPgraphic
+ \useMPgraphic{@@}%
\dostopfittingpage}
+\let\stopMPpage \relax % so that we can use it in \expanded
+
\setupMPpage
[\c!scale=1000,
\c!strut=\v!no,
@@ -63,14 +85,14 @@
\c!height=\v!fit,
\c!frame=\v!off]
-%D \macros
+%D \macros
%D {MPfigure}
%D
-%D A bit out of place, here but nevertheless:
+%D A bit out of place, here but nevertheless:
\def\MPfigure#1#2% test for dup figure
{\bgroup
- \getfiguredimensionsonly[#1]% [\c!object=\v!no] already set
+ \getfiguredimensionsonly[#1]% [\c!object=\v!no] already set
\freezedimenmacro\naturalfigurewidth
\freezedimenmacro\naturalfigureheight
\startMPcode