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/mkiv/meta-imp-grid.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/mkiv/meta-imp-grid.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/meta-imp-grid.mkiv | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/meta-imp-grid.mkiv b/Master/texmf-dist/tex/context/base/mkiv/meta-imp-grid.mkiv new file mode 100644 index 00000000000..9208a3dae14 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/mkiv/meta-imp-grid.mkiv @@ -0,0 +1,63 @@ +%D \module +%D [ file=meta-imp-grid, +%D version=2016.01.08, +%D title=\METAPOST\ Graphics, +%D subtitle=Grid Tracing, +%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. + +\startMPextensions + color mfun_grid_lgc[] ; + numeric mfun_grid_lgi ; + mfun_grid_lgc[1] := red ; + mfun_grid_lgc[2] := green ; + mfun_grid_lgc[3] := blue ; + mfun_grid_lgi := 1 ; +\stopMPextensions + +\startuseMPgraphic{linegrid} + % if unknown mfun_grid_lgi : + % color mfun_grid_lgc[] ; + % numeric mfun_grid_lgi ; + % mfun_grid_lgc[1] := red ; + % mfun_grid_lgc[2] := green ; + % mfun_grid_lgc[3] := blue ; + % mfun_grid_lgi := 1 ; + % elseif mfun_grid_lgi = 3 : + if mfun_grid_lgi = 3 : + mfun_grid_lgi := 1 ; + else : + mfun_grid_lgi := mfun_grid_lgi + 1 ; + fi ; + draw image ( + save f, t ; + pair f, t ; + f := (0,-2*LineHeight) ; + t := (0, 2*LineHeight) ; + for i=ypart f - eps step LineHeight/5 until ypart t + eps: + draw (-EmWidth,i) -- (0,i) ; + endfor ; + draw f -- t ; + draw (-EmWidth,0) -- (EmWidth,0) ; + % ) shifted (-mfun_grid_lgi*EmWidth/3,0) withcolor mfun_grid_lgc[mfun_grid_lgi] ; + ) shifted (-EmWidth/2,0) withcolor mfun_grid_lgc[mfun_grid_lgi] ; + setbounds currentpicture to origin -- cycle ; +\stopuseMPgraphic + +\unexpanded\def\showlinegrid{\dontleavehmode\smash{\useMPgraphic{linegrid}}} + +\continueifinputfile{meta-imp-grid.mkiv} + +\starttext + +\showlinegrid \input tufte \par +\showlinegrid \input tufte \par +\showlinegrid \input ward \par +\showlinegrid \input ward \par + +\stoptext |