From 7b0f8e816304455a32dcaff05b53d54928d50f0d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 22 Oct 2016 22:06:10 +0000 Subject: context-layout git-svn-id: svn://tug.org/texlive/trunk@42330 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/context/third/layout/t-layout.tex | 411 +++++++++++++++++++++ 1 file changed, 411 insertions(+) create mode 100644 Master/texmf-dist/tex/context/third/layout/t-layout.tex (limited to 'Master/texmf-dist/tex/context') diff --git a/Master/texmf-dist/tex/context/third/layout/t-layout.tex b/Master/texmf-dist/tex/context/third/layout/t-layout.tex new file mode 100644 index 00000000000..7ca9d6e1b6f --- /dev/null +++ b/Master/texmf-dist/tex/context/third/layout/t-layout.tex @@ -0,0 +1,411 @@ +%% Last Change: Fri Apr 22 11:06:09 2005 + +%D \module +%D [ file=t-layout, +%D version=2003.03.26, +%D title=\CONTEXT\ User Module, +%D subtitle=show layout, +%D author=Patrick Gundlach, +%D date=\currentdate, +%D copyright={Patrick Gundlach}] + + +%C filename: t-layout.tex +%C module layout, shows layout of current page + + +%C copyright 2003,2007 Patrick Gundlach, patrick@gundla.ch +%C may be distributed under the terms of the GNU General Public License +%C URL: http://levana.de/context/ + +%D \subject{Introduction} +%D This third-party module \quote{layout} draws a representation of +%D the of the layout of the +%D current page and displays the sizes of the widths and heights of the +%D margins, header, footer and text body. + +%D \subject{Usage} +%D Include this module into your ConTeXt files: +%D \type{\usemodule[t][layout]} and show the layout with \type{\ShowLayout}. + +%D You can set some parameters using \type{\SetupShowLayout}. The +%D parameters are: units, digits, round, showmore and graphonly. +%D If graphonly (0/1) is 0, this module shows the lenghts of some text areas. +%D units (cm, mm, in or pt) sets the unit in which the lengths will be +%D displayed, digits (any number $\geq 0$) +%D sets the number of digits after the decimal period, round (any +%D number $\neq 0$) states +%D the place where rounding of the displayed numbers should occur +%D (\TeX\ is bad at calculating such things) and showmore (0/1) tells +%D this module to display information about the edge and top/bottom. + +%D Example: +%D \starttyping +%D \ShowLayout +%D [units=cm, +%D digits=2, +%D round=0.1, +%D showmore=1, +%D graphonly=1] +%D +%D \stoptyping + +%D The idea was taken from the \type{\layout} command from the layout LaTeX +%D package. (Kent McPherson and others) + +%C the following settings will be recognized: +%C units = cm, mm, in or pt +%C digits = any number >= 0, those are the digits after the decimal period +%C round = any number != 0, just play with it, example 0.1 or 0.01. +%C Explanation will be done later + +%D \subject{The code} + +%D This section is not meant as documentation + +\newdimen\ShowLayoutdimen + +\setvalue{Layoutmm}{0.351459804} % 2.54/72.27 * 10 +\setvalue{Layoutcm}{0.0351459804} % 2.54/72.27 +\setvalue{Layoutin}{0.0138370001} % 1/72.27 +\setvalue{Layoutpt}{1} + +\def\ShowLayoutB(#1.#2)#3{% + \counttokens #2\to\scratchcounter + #1\ifnum#3>0% + \ifnum#3 > \the\scratchcounter \else \scratchcounter=#3 \fi + \splitofftokens \scratchcounter \from #2 \to\test .\test \fi} + +% taken from ConTeXt source +\def\LayoutConvert#1#2#3% + {\ShowLayoutdimen=\getvalue{ShowLayoutround}pt + \begingroup + \scratchdimen#1\relax + \scratchdimen\getvalue{Layout#2}\scratchdimen + \advance\scratchdimen by 0.5\ShowLayoutdimen + \divide\scratchdimen by \ShowLayoutdimen + \multiply\scratchdimen by \ShowLayoutdimen + \expandafter\ShowLayoutB\expandafter(\number\withoutpt{\the\scratchdimen}){#3}\thinspace #2 + \endgroup} + +\def\ShowLayoutA#1{% + \LayoutConvert{#1}% + {\getvalue{ShowLayoutunits}}% + {\getvalue{ShowLayoutdigits}}}% + +\startuniqueMPgraphic{ShowLayout}{showmore} +% make sure that the label is on the same side as the posa +vardef swapifnecessary (suffix posa, posb)(expr labelpos) = + if ( (labelpos < posa) and (posa > posb)) + or ( (labelpos > posa) and (posa < posb)) : + save c; %swap 'em + c:=posa; + posa:=posb; + posb:= c; + fi +enddef; +% num: labelnumber +% vertical: horizontal or vertical label? +% pos: for horizontal the y coord, for vertical the x corrd +% posa, posb: positions of the borders (x coord for horizontal) +% labelpos: position for label, only for outer labels, given in the +% same direction as posa, posb +def layoutshowmark(expr num, vertical, pos, posa, posb, labelpos) = + save b,e,c,p,arrow; + numeric b,e; pair p[]; path arrow[],c; + + b:=posa; + e:=posb; + + % p0 is labelposition + % p1 is from + % p2 is to + % p3 is opposite arrow in outer marking + + if labelpos = 0 : % inner label |<----(n)---->| + p0 := (.5[b,e], pos); + else: % outer label --->| |<----(n) + swapifnecessary (b,e, labelpos); + p0 := (labelpos, pos); + p3 := ( if b < labelpos: e-5mm else: e+5mm fi ,pos); + fi + + p1 := (b,pos); + p2 := (e,pos); + + if vertical: + p0:=(ypart p0,xpart p0); + p1:=(ypart p1,xpart p1); + p2:=(ypart p2,xpart p2); + p3:=(ypart p3,xpart p3); + fi + c:= fullcircle scaled .7cm shifted p0; + + if (center(c) -- p1) intersectiontimes c = (-1,-1): + % don't draw the arrows, because there is not enough room for them. + else: + arrow1 :=center(c) -- p1 cutbefore (center(c) -- p1) intersectionpoint c ; + arrow2 := + if labelpos = 0 : % inner + center(c) -- p2 cutbefore (center(c) -- p2) intersectionpoint c + else: + p3 -- p2 + fi; + + label (decimal (num), center(c)); + draw c; + drawarrow arrow1; + drawarrow arrow2; + fi + +enddef; + + + +StartPage; +numeric xpos,ypos; + +path body,leftmargin,header,footer,rightmargin; + + +% backspace: +draw llcorner Page shifted (BackSpace,0) -- + ulcorner Page shifted (BackSpace,0) dashed evenly; + +%topspace +draw urcorner Page shifted (0,-TopSpace) -- + ulcorner Page shifted (0,-TopSpace) dashed evenly; + + +header := Field [Header] [Text]; +footer := Field [Footer] [Text]; +leftmargin := Field [LeftMargin] [Text]; +rightmargin:= Field [RightMargin][Text]; +body := Field [Text] [Text]; + +pickup pencircle scaled 2pt; + +draw Page; +draw leftmargin; +draw rightmargin; +draw header; +draw footer; +draw body; + + + +label ("Body", center (body)); +label ("Header",center (header)); +label ("Left Margin", center (leftmargin)); +label ("Right Margin", center (rightmargin)); +label ("Footer", center (footer)); +%% label (textext("\tfb Body"), center (body)); +%% label (textext("\tfa Header"),center (header)); +%% label (textext("Left Margin"), center (leftmargin)); +%% label (textext("Right Margin"), center (rightmargin)); +%% label (textext("\tfa Footer"), center (footer)); + + +if \MPvar{showmore}=1: + path top, bot, leftedge, rightedge; + + top := Field [Top] [Text]; + bot := Field [Bottom] [Text]; + leftedge := Field [LeftEdge] [Text]; + rightedge := Field [RightEdge][Text]; + + draw top; + draw bot; + draw leftedge; + draw rightedge; +fi + +pickup pencircle scaled 1pt; + +% (num, vertical, pos, from, to, labelpos) + +%backspace +layoutshowmark (1, false, .5[ypart(ulcorner Page),Vstep[Top]], 0,BackSpace,0) + + +ypos := Vstep[HeaderSeparator] -1cm; + +% leftmargin +layoutshowmark (2, false, ypos, + Hstep[LeftMargin], + Hstep[LeftMargin]+Hsize[LeftMargin],0); + +% leftmargindistance +layoutshowmark (3, false, ypos -1cm, + Hstep[LeftMarginSeparator], + Hstep[Text], + Hstep[Text]+1cm); + +% makeupwidth +layoutshowmark (4, false, Vstep[Text]+2cm, + Hstep[Text], Hstep[Text]+Hsize[Text],0); + +% rightmargin +layoutshowmark (5, false, ypos, + Hstep[RightMargin], + Hstep[RightMargin]+Hsize[RightMargin],0); + +% rightmargindistance +layoutshowmark (6, false, ypos-1cm, + Hstep[RightMargin], + Hstep[RightMarginSeparator], + Hstep[RightMarginSeparator] -1cm); + + +%topspace + +xpos:=xpart(ulcorner Page)+BackSpace+1cm; +layoutshowmark (7, true, xpos, PaperHeight,PaperHeight-TopSpace,0) + +%header +xpos:=xpos+1cm; +ypos:=.5[PaperHeight,PaperHeight-TopSpace]; +layoutshowmark (8, true, xpos , + Vstep[Header], + Vstep[Header]+Vsize[Header],ypos); + +%headerseparator +xpos:=xpos+1cm; +layoutshowmark (9, true,xpos, + Vstep[HeaderSeparator], + Vstep[HeaderSeparator]+Vsize[HeaderSeparator],ypos); + +xpos:=xpos+1cm; + +if \MPvar{showmore}=1: + % top + layoutshowmark (17, true, xpos, + Vstep[Top], + Vstep[Top]+Vsize[Top], ypos); + + xpos:=xpos+1cm; + layoutshowmark (18, true, xpos, + Vstep[TopSeparator], + Vstep[TopSeparator]+Vsize[TopSeparator], ypos); + +fi + +% makeupheight +layoutshowmark (10, true,Hstep[RightMarginSeparator]-2cm, + Vstep[Header]+Vsize[Header], + Vstep[Footer],0); + + +%footerseparator +xpos:=xpart(ulcorner Page)+BackSpace+2cm; +ypos:=.5(Vstep[Footer]); + +layoutshowmark (11, true,xpos, + Vstep[FooterSeparator], + Vstep[FooterSeparator]+Vsize[FooterSeparator],ypos); + +%footer +xpos:=xpos+1cm; +layoutshowmark (12, true,xpos, + Vstep[Footer],Vstep[Footer]+Vsize[Footer],ypos); + +xpos:=xpos+1cm; + +if \MPvar{showmore}=1: + % bottom + layoutshowmark (19, true, xpos, + Vstep[Bottom], + Vstep[Bottom]+Vsize[Bottom], ypos); + xpos:=xpos+1cm; + layoutshowmark (20, true, xpos, + Vstep[BottomSeparator], + Vstep[BottomSeparator]+Vsize[BottomSeparator], ypos); + +fi + +if \MPvar{showmore}=1: + + ypos := Vstep[HeaderSeparator] -3cm; + + % LeftEdge + layoutshowmark (13, false, ypos, + Hstep[LeftEdge], + Hstep[LeftEdge]+Hsize[LeftEdge],Hstep[Text]+1cm); + ypos := ypos-1cm; + % LeftEdgeSeparator + layoutshowmark (14, false, ypos, + Hstep[LeftEdgeSeparator], + Hstep[LeftEdgeSeparator]+Hsize[LeftEdgeSeparator], + Hstep[Text]+1cm); + + ypos := Vstep[HeaderSeparator] -3cm; + + layoutshowmark (15, false, ypos, + Hstep[RightEdge], + Hstep[RightEdge]+Hsize[RightEdge], + Hstep[RightMarginSeparator] -1cm); + + ypos := ypos-1cm; + + layoutshowmark (16, false, ypos, + Hstep[RightEdge], + Hstep[RightEdgeSeparator], + Hstep[RightMarginSeparator] -1cm); + + + +fi + +currentpicture := currentpicture scaled .5; + +\stopuniqueMPgraphic +\defineoverlay[ShowLayout][\uniqueMPgraphic{ShowLayout}] + +\def\SetupShowLayout{\dosingleempty\getparameters[ShowLayout]} +\SetupShowLayout[units=pt,digits=1,round=0.1,showmore=0,graphonly=0] + +\def\ShowLayout{\dosingleempty\doShowLayout} + + +\def\doShowLayout[#1]{% + \getparameters[ShowLayout][#1] + \setMPvariables[ShowLayout][showmore=\getvalue{ShowLayoutshowmore}] + \framed[width=.5\paperwidth, + height=.5\paperheight, + background=ShowLayout, + frame=off, +% frame=on, + ]{}% +\ifnum\getvalue{ShowLayoutgraphonly}=0 + \bgroup\tfxx +\startcolumns[n=2] +\starttabulate[|r|l|] +\NC 1 \NC backspace \ShowLayoutA{\the\backspace} \NR +\NC 2 \NC leftmargin \ShowLayoutA{\the\leftmarginwidth}\NR +\NC 3 \NC leftmargindistance \ShowLayoutA{\the\leftmargindistance}\NR +\NC 4 \NC width \ShowLayoutA{\the\makeupwidth}\NR +\NC 5 \NC rightmargin \ShowLayoutA{\the\rightmarginwidth}\NR +\NC 6 \NC rightmargindistance \ShowLayoutA{\the\rightmargindistance}\NR +\NC 7 \NC topspace \ShowLayoutA{\the\topspace}\NR +\NC 8 \NC header \ShowLayoutA{\the\headerheight}\NR +\NC 9 \NC headerdistance \ShowLayoutA{\the\headerdistance}\NR +\NC 10\NC height \ShowLayoutA{\the\makeupheight}\NR +\NC 11\NC footerdistance \ShowLayoutA{\the\footerdistance}\NR +\NC 12\NC footer \ShowLayoutA{\the\footerheight}\NR +\ifnum\getvalue{ShowLayoutshowmore}=1% +\NC 13\NC leftedge \ShowLayoutA{\the\leftedgewidth}\NR +\NC 14\NC leftedgedistance \ShowLayoutA{\the\leftedgedistance}\NR +\NC 15\NC rightedge \ShowLayoutA{\the\rightedgewidth}\NR +\NC 16\NC rightedgedistance \ShowLayoutA{\the\rightedgedistance}\NR +\NC 17\NC top \ShowLayoutA{\the\topheight}\NR +\NC 18\NC topdistance \ShowLayoutA{\the\topdistance}\NR +\NC 19\NC bottom \ShowLayoutA{\the\bottomheight}\NR +\NC 20\NC bottomdistance \ShowLayoutA{\the\bottomdistance}\NR +\fi +\NC \NC paperwidth \ShowLayoutA{\the\paperwidth}\NR +\NC \NC paperheight \ShowLayoutA{\the\paperheight}\NR +\stoptabulate +\stopcolumns +\egroup +\fi +} -- cgit v1.2.3