1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
%D \module
%D [ file=m-graph,
%D version=2008.09.08,
%D title=\CONTEXT\ Extra Modules,
%D subtitle=\METAPOST\ graph module support,
%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.
% We just assume lua specification instead of the graph ones that
% are limited by what mp can do. We support @ as replacement for
% the percent symbol. We also add a specifier when no one is given.
\unprotect
\defineMPinstance
[graph]
[\s!format=metafun,
\s!extensions=\v!yes,
\s!initializations=\v!yes,
\c!method=\s!double]
\startMPdefinitions{graph}
if unknown context_grap : input mp-grap.mpiv ; fi ;
\stopMPdefinitions
\protect
\continueifinputfile{m-graph.mkiv}
\starttext
\startMPpage[instance=graph]
label(format("@g","1e-8"), (0, 0)) ;
label(format("@g","1e+8"), (2cm, 0)) ;
label(format("@g","1e-10"), (0, -0.5cm)) ;
label(format("@g","1e+10"), (2cm,-0.5cm)) ;
label(format("@g","1e-12"), (0, -1.0cm)) ;
label(format("@g","1e+12"), (2cm,-1.0cm)) ;
label(format("@g","1e-0"), (0, -1.5cm)) ;
label(format("@g","1e+0"), (2cm,-1.5cm)) ;
label(format("@g","1"), (0, -2.0cm)) ;
label(format("@g","1"), (2cm,-2.0cm)) ;
label(format("@g","1e-102"),(0, -2.5cm)) ;
label(format("@g","1e+102"),(2cm,-2.5cm)) ;
label(format("@f,@f",(1.23,4.56)),(0cm,-3.0cm)) ;
label(format("@i,@f",(1.23,4.56)),(0cm,-3.5cm)) ;
\stopMPpage
\stoptext
% \startMPpage[instance=graph]
% draw begingraph(3in,2in);
% gdraw "t:/metapost/grphdata/agepop91.d";
% endgraph;
% \stopMPpage
% \startMPpage[instance=graph]
% draw begingraph(3in,2in);
% gdraw "agepop91.d" plot btex $\bullet$ etex;
% endgraph;
% \stopMPpage
% \startMPpage[instance=graph]
% draw begingraph(3in,2in);
% glabel.lft(btex \vbox{\hbox{Population} \hbox{in millions}} etex, OUT);
% glabel.bot(btex Age in years etex, OUT);
% gdraw "agepopm.d";
% endgraph;
% \stopMPpage
% \startMPpage[instance=graph]
% draw begingraph(3in,2in);
% glabel.lft(btex \vbox{\hbox{Population} \hbox{in millions}} etex, OUT);
% glabel.bot(btex Age in years etex, OUT);
% setrange(origin, whatever,whatever);
% gdraw "agepopm.d";
% endgraph;
% \stopMPpage
% \startMPpage[instance=graph]
% draw begingraph(2.3in,2in);
% setcoords(log,log);
% glabel.lft(btex Seconds etex,OUT);
% glabel.bot(btex Matrix size etex,
% OUT);
% gdraw "matmul.d" dashed evenly;
% glabel.ulft(btex Standard etex,8);
% gdraw "matmul.d";
% glabel.lrt(btex Strassen etex,7);
% endgraph;
% \stopMPpage
% \startMPpage[instance=graph]
% draw begingraph(6.5cm,4.5cm);
% setrange(80,0, 90,whatever);
% glabel.bot(btex Year etex, OUT);
% glabel.lft(btex \vbox{\hbox{Emissions in} \hbox{thousands of}
% \hbox{metric tons} \hbox{(heavy line)}}etex, OUT);
% gdraw "lead.d" withpen pencircle scaled 1.5pt;
% autogrid(,otick.lft);
% setcoords(linear,linear);
% setrange(80,0, 90,whatever);
% glabel.rt(btex \vbox{\hbox{Micrograms} \hbox{per cubic}
% \hbox{meter of air} \hbox{(thin line)}}etex, OUT);
% gdraw "lead.d";
% autogrid(otick.bot,otick.rt);
% endgraph;
% \stopMPpage
|
