metafun.mpxl /size: 1913 b    last modification: 2021-10-28 13:50
1
%D \module
2
%D [ file=metafun.mp,
3
%D version=2000.07.15,
4
%D title=\CONTEXT\ \METAPOST\ graphics,
5
%D subtitle=format generation file,
6
%D author=Hans Hagen,
7
%D date=\currentdate,
8
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13 14
%D First we input John Hobby's metapost plain file. However, because we want to
15
%D prevent dependency problems and in the end even may use a patched version,
16
%D we prefer to use a copy.
17 18
% We only get a callback when the property > 0
19 20
def
primitive
=
setproperty
1
:
enddef
;
% not to be used
21
def
permanent
=
setproperty
2
:
enddef
;
22
def
immutable
=
setproperty
3
:
enddef
;
23
def
frozen
=
setproperty
4
:
enddef
;
% not yet used
24
def
mutable
=
setproperty
-3
:
enddef
;
% not yet used
25 26
permanent
permanent
,
immutable
,
mutable
,
primitive
,
frozen
;
% we reserve frozen
27 28
newinternal
boolean
contextlmtxmode
;
contextlmtxmode
:
=
true
;
immutable
contextlmtxmode
;
29 30
% But it will move here:
31 32
input
"
mp-base.mpxl
"
;
33
input
"
mp-tool.mpxl
"
;
34
input
"
mp-luas.mpxl
"
;
35
input
"
mp-mlib.mpxl
"
;
36
input
"
mp-math.mpxl
"
;
37
input
"
mp-cont.mpxl
"
;
38
input
"
mp-page.mpxl
"
;
39
input
"
mp-butt.mpxl
"
;
40
input
"
mp-shap.mpxl
"
;
41
input
"
mp-grph.mpxl
"
;
42
input
"
mp-grid.mpxl
"
;
43
input
"
mp-form.mpxl
"
;
44
input
"
mp-figs.mpxl
"
;
45
input
"
mp-func.mpxl
"
;
46
input
"
mp-node.mpxl
"
;
47
input
"
mp-apos.mpxl
"
;
48
input
"
mp-abck.mpxl
"
;
49
input
"
mp-asnc.mpxl
"
;
50
input
"
mp-blob.mpxl
"
;
51
input
"
mp-lmtx.mpxl
"
;
52
input
"
mp-text.mpxl
"
;
53 54
newinternal
string
metafunversion
;
metafunversion
:
=
"
metafun xl
"
&
mfun_timestamp
;
55 56
immutable
metafunversion
;
57 58
let
normalend
=
end
;
59 60
def
end
=
;
message
"
"
;
message
metafunversion
;
message
"
"
;
endinput
;
enddef
;
61
def
bye
=
;
message
"
"
;
message
metafunversion
;
message
"
"
;
endinput
;
enddef
;
62 63
overloadmode
:
=
1
;
64