diff options
Diffstat (limited to 'tex/context/base/meta-grd.mkiv')
-rw-r--r-- | tex/context/base/meta-grd.mkiv | 116 |
1 files changed, 0 insertions, 116 deletions
diff --git a/tex/context/base/meta-grd.mkiv b/tex/context/base/meta-grd.mkiv deleted file mode 100644 index da410ba68..000000000 --- a/tex/context/base/meta-grd.mkiv +++ /dev/null @@ -1,116 +0,0 @@ -%D \module -%D [ file=meta-grd, -%D version=2012.06.28, -%D title=\METAPOST\ Graphics, -%D subtitle=grids, -%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. - -\writestatus{loading}{MetaPost Graphics / Grids} - -%D This used to be a \TEX\ method, and a rather old one too. We keep it around but -%D in a more modern way. -%D -%D \startbuffer -%D \basegrid -%D [nx=8,ny=5, -%D dx=.5,dy=.25, -%D unit=cm,scale=2,factor=1, -%D offset=1ex,xstep=2,ystep=1, -%D align=middle,style=\tt\tx] -%D \stopbuffer -%D -%D \typebuffer -%D -%D \placefigure -%D {An example of a grid.} -%D {\getbuffer} - -\startuseMPgraphic{grid}{nx,ny,dx,dy,factor,scale,xstep,ystep,xoffset,yoffset,align} - begingroup ; - - save nx, ny, dx, dy, wd, ht, xstep, ystep, xoffset, yoffset, align, xalign, yalign ; - - numeric nx ; nx := \MPvar{nx} ; - numeric ny ; ny := \MPvar{ny} ; - numeric dx ; dx := \MPvar{factor} * \MPvar{scale} * \MPvar{dx} ; - numeric dy ; dy := \MPvar{factor} * \MPvar{scale} * \MPvar{dy} ; - numeric wd ; wd := nx * dx ; - numeric ht ; ht := ny * dy ; - numeric xstep ; xstep := \MPvar{xstep} ; - numeric ystep ; ystep := \MPvar{ystep} ; - numeric xoffset ; xoffset := \MPvar{xoffset} ; - numeric yoffset ; yoffset := \MPvar{yoffset} ; - numeric align ; align := \MPvar{align} ; - numeric xalign ; xalign := 0 ; - numeric yalign ; yalign := 0 ; - - if align = 1 : - xalign := dx/2 ; - yalign := dy/2 ; - fi ; - - for i=0 step dx until wd : - draw (i,0) -- (i,ht) ; - endfor ; - for i=0 step dy until ht : - draw (0,i) -- (wd,i) ; - endfor ; - - if xstep > 0 : - for i=1 step xstep until nx : - draw thetextext.bot(decimal i,(i*dx-xalign,-xoffset)) ; - endfor ; - fi ; - if ystep > 0 : - for i=1 step ystep until ny : - draw thetextext.lft(decimal i,(-yoffset,i*dy-yalign)) ; - endfor ; - fi ; - - endgroup ; -\stopuseMPgraphic - -\unprotect - -\unexpanded\def\basegrid - {\dosingleempty\typo_grid_base} - -\def\typo_grid_base[#1]% - {\hbox\bgroup - \getdummyparameters - [\c!nx=10,\c!ny=10,\c!dx=.5,\c!dy=.5,\c!xstep=0,\c!ystep=0, - \c!unit=\s!cm,\c!scale=1,\c!factor=1, - \c!offset=.25ex,\c!xoffset=\directdummyparameter\c!offset,\c!yoffset=\directdummyparameter\c!offset, - \c!align=, - #1]% - \usedummystyleandcolor\c!style\c!color - \edef\p_align{\directdummyparameter\c!align}% - \ifx\p_align\v!middle - \let\p_align\!!plusone - \else - \let\p_align\!!zerocount - \fi - \useMPgraphic - {grid}% - {nx=\directdummyparameter\c!nx,% - ny=\directdummyparameter\c!ny,% - dx=\directdummyparameter\c!dx\directdummyparameter\c!unit,% - dy=\directdummyparameter\c!dy\directdummyparameter\c!unit,% - factor=\directdummyparameter\c!factor,% - scale=\directdummyparameter\c!scale,% - xstep=\directdummyparameter\c!xstep,% - ystep=\directdummyparameter\c!ystep,% - xoffset=\directdummyparameter\c!xoffset,% - yoffset=\directdummyparameter\c!yoffset,% - align=\p_align}% - \egroup} - -\let\grid\basegrid - -\protect \endinput |