% filename: t-layout.tex % module layout, shows layout of current page %% Last Change: Sat Mar 22 21:16:16 2003 % copyright 2003 Patrick Gundlach, patrick@gundla.ch % may be distributed under the terms of the GNU General Public License % URL: http://levana.de/context/ % Description: % include this module into your ConTeXt files: \usemodule [layout] and % show the layout with \ShowLayout % idea was taken from the \layout command from the layout LaTeX % package. (author?) % the following settings will be recognized: % units = cm, mm, in or pt % digits = any number >= 0, those are the digits after the decimal period % round = any number != 0, just play with it, example 0.1 or 0.01. % Explanation will be done later \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; 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; 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); % 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); 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); xpos:=xpart(ulcorner Page)+BackSpace+4cm; ypos:=.5[Vstep[Header],Vstep[Header]+Vsize[Header]]; % 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); % bottom ypos:=.5[Vstep[Footer],Vstep[Footer]+Vsize[Footer]]; xpos:=xpart(ulcorner Page)+BackSpace+4cm; 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 currentpicture := currentpicture scaled .5; \stopuniqueMPgraphic \defineoverlay[ShowLayout][\uniqueMPgraphic{ShowLayout}] \def\SetupShowLayout{\dosingleempty\getparameters[ShowLayout]} \SetupShowLayout[units=pt,digits=1,round=0.1,showmore=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, ]{}% \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 } %%% Local Variables: %%% mode: context %%% TeX-master: "testlay.tex" %%% End: