Source Browser ?

1
%D \module
2
%D   [       file=meta-imp-grid,
3
%D        version=2016.01.08,
4
%D          title=\METAPOST\ Graphics,
5
%D       subtitle=Grid Tracing,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
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
\startMPextensions
15    
color
 
mfun_grid_lgc
[
]
 
;
16    
numeric
 
mfun_grid_lgi
 
;
17    
mfun_grid_lgc
[
1
]
 
:
=
 
red
 
;
18    
mfun_grid_lgc
[
2
]
 
:
=
 
green
 
;
19    
mfun_grid_lgc
[
3
]
 
:
=
 
blue
 
;
20    
mfun_grid_lgi
 
:
=
 
1
 
;
21
\stopMPextensions
22
23
\startuseMPgraphic
{
linegrid
}
24  
% if unknown mfun_grid_lgi :
25  
%     color mfun_grid_lgc[] ;
26  
%     numeric mfun_grid_lgi ;
27  
%     mfun_grid_lgc[1] := red ;
28  
%     mfun_grid_lgc[2] := green ;
29  
%     mfun_grid_lgc[3] := blue ;
30  
%     mfun_grid_lgi := 1 ;
31  
% elseif mfun_grid_lgi = 3 :
32    
if
 
mfun_grid_lgi
 
=
 
3
 
:
33        
mfun_grid_lgi
 
:
=
 
1
 
;
34    
else
 
:
35        
mfun_grid_lgi
 
:
=
 
mfun_grid_lgi
 
+
 
1
 
;
36    
fi
 
;
37    
draw
 
image
 
(
38        
save
 
f
,
 
t
 
;
39        
pair
 
f
,
 
t
 
;
40        
f
 
:
=
 
(
0
,
-2
*
LineHeight
)
 
;
41        
t
 
:
=
 
(
0
,
 
2
*
LineHeight
)
 
;
42        
for
 
i
=
ypart
 
f
 
-
 
eps
 
step
 
LineHeight
/
5
 
until
 
ypart
 
t
 
+
 
eps
:
43            
draw
 
(
-
EmWidth
,
i
)
 
--
 
(
0
,
i
)
 
;
44        
endfor
 
;
45        
draw
 
f
 
--
 
t
 
;
46        
draw
 
(
-
EmWidth
,
0
)
 
--
 
(
EmWidth
,
0
)
 
;
47  
% ) shifted (-mfun_grid_lgi*EmWidth/3,0) withcolor mfun_grid_lgc[mfun_grid_lgi] ;
48    
)
 
shifted
 
(
-
EmWidth
/
2
,
0
)
 
withcolor
 
mfun_grid_lgc
[
mfun_grid_lgi
]
 
;
49    
setbounds
 
currentpicture
 
to
 
origin
 
--
 
cycle
 
;
50
\stopuseMPgraphic
51
52
\unexpanded
\def
\showlinegrid
{
\dontleavehmode
\smash
{
\useMPgraphic
{
linegrid
}
}}
53
54
\continueifinputfile
{
meta
-
imp
-
grid
.
mkiv
}
55
56
\starttext
57
58
\showlinegrid
 
\input
 
tufte
 
\par
59
\showlinegrid
 
\input
 
tufte
 
\par
60
\showlinegrid
 
\input
 
ward
 
\par
61
\showlinegrid
 
\input
 
ward
 
\par
62
63
\stoptext
64