![](https://secure.gravatar.com/avatar/8b3c344f0adba6016612e05447039f44.jpg?s=120&d=mm&r=g)
I am using some old code that Hans provided to create a pretty frame around some text, for purposes of a "Part" header page. Here is my current test file: -------------------------------------- \setupoutput[pdftex] \definepapersize[bok][width=6.0in,height=9.0in] \setuppapersize[bok][letter] \setuplayout[marking=on,margin=.5in,textwidth=4.5in,width=middle,location=middle] \setupcolors[state=start] \starttext %\startstandardmakeup \noheaderandfooterlines \startuseMPgraphic{bg} StartPage ; path p ; p := Page enlarged -10mm ; path q ; q := Page enlarged -15mm ; drawoptions(withcolor .85white) ; fill reverse topboundary q -- topboundary p -- cycle ; fill reverse bottomboundary q -- bottomboundary p -- cycle ; drawoptions(withcolor .65white) ; fill reverse leftboundary q -- leftboundary p -- cycle ; fill reverse rightboundary q -- rightboundary p -- cycle ; StopPage ; \stopuseMPgraphic \vglue -1.55in %??? \hglue -.75in %??? \useMPgraphic{bg} \vglue -6.5in \hglue .2in \centerline{\bf Here is some text} %\stopstandardmakeup \stoptext ------------------------------------------------- Now here is my question: why must I use the negative \vglue and \hglue lines (arrived at by experimentation) to place the frame properly on the page? Did I mess something up? -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com
![](https://secure.gravatar.com/avatar/49e63acb01f2ca80efce7eed08310ce8.jpg?s=120&d=mm&r=g)
John R. Culleton wrote:
I am using some old code that Hans provided to create a pretty frame around some text, for purposes of a "Part" header page. Here is my current test file: -------------------------------------- \setupoutput[pdftex] \definepapersize[bok][width=6.0in,height=9.0in] \setuppapersize[bok][letter] \setuplayout[marking=on,margin=.5in,textwidth=4.5in,width=middle,location=middle] \setupcolors[state=start] \starttext %\startstandardmakeup \noheaderandfooterlines \startuseMPgraphic{bg} StartPage ; path p ; p := Page enlarged -10mm ; path q ; q := Page enlarged -15mm ; drawoptions(withcolor .85white) ; fill reverse topboundary q -- topboundary p -- cycle ; fill reverse bottomboundary q -- bottomboundary p -- cycle ; drawoptions(withcolor .65white) ; fill reverse leftboundary q -- leftboundary p -- cycle ; fill reverse rightboundary q -- rightboundary p -- cycle ;
add setbounds currentpicture to Page ;
StopPage ; \stopuseMPgraphic
hm, inches ...
\vglue -1.55in %??? \hglue -.75in %??? \useMPgraphic{bg} \vglue -6.5in \hglue .2in \centerline{\bf Here is some text} %\stopstandardmakeup \stoptext -------------------------------------------------
Now here is my question: why must I use the negative \vglue and \hglue lines (arrived at by experimentation) to place the frame properly on the page? Did I mess something up?
-- ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl -----------------------------------------------------------------
![](https://secure.gravatar.com/avatar/8b3c344f0adba6016612e05447039f44.jpg?s=120&d=mm&r=g)
On Sunday 26 November 2006 11:27, Hans Hagen wrote:
setbounds currentpicture to Page ;
Unfortunately the recommended line had no effect. Did I put it in the right place? So here is the file that works (so far!) \setupoutput[pdftex] \definepapersize[bok][width=6.0in,height=9.0in] \setuppapersize[bok][letter] \setuplayout[marking=on,margin=.5in,textwidth=4.5in,width=middle,location=middle] \input fonts.tex \setupcolors[state=start] \starttext \noheaderandfooterlines \startuseMPgraphic{bg} StartPage ; setbounds currentpicture to Page ; path p ; p := Page enlarged -10mm ; path q ; q := Page enlarged -15mm ; drawoptions(withcolor .85white) ; fill reverse topboundary q -- topboundary p -- cycle ; fill reverse bottomboundary q -- bottomboundary p -- cycle ; drawoptions(withcolor .65white) ; fill reverse leftboundary q -- leftboundary p -- cycle ; fill reverse rightboundary q -- rightboundary p -- cycle ; StopPage ; \stopuseMPgraphic \vglue -1.55in \hglue -.75in \useMPgraphic{bg} \vglue -6.5in %\hglue .2in \BigSans \centerline{Part I} \vskip .4in \Mythe \centerline{Prerequisite for Success:} \vskip .2in \centerline{A Thorough Understanding} \vfil \tfa \page[yes] \stoptext -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com
![](https://secure.gravatar.com/avatar/c5ae4f9aa0d3a9bd5376e92b322c3e50.jpg?s=120&d=mm&r=g)
On Mon, 27 Nov 2006, John R. Culleton wrote:
On Sunday 26 November 2006 11:27, Hans Hagen wrote:
setbounds currentpicture to Page ;
Unfortunately the recommended line had no effect. Did I put it in the right place? So here is the file that works (so far!)
Here is an alternate approach: Use an overlay as the page background for one page. Another approach is to let MetaPost do all the page building (see the source of texmfstart manual mtexmfstart.tex) \definepapersize [bok] [width=6.0in,height=9.0in] \setuppapersize [bok] [letter] \setuplayout [marking=on,margin=.5in,textwidth=4.5in,width=middle,location=middle] \setupcolors [state=start] \noheaderandfooterlines \startuseMPgraphic{bg} boolean debug ; debug := false ; path Page ; Page = (fullsquare xyscaled (\overlaywidth, \overlayheight)) ; path p ; p := Page enlarged -10mm ; path q ; q := Page enlarged -15mm ; if debug : draw Page withcolor green; draw p withcolor red ; draw q withcolor blue ; fi ; drawoptions(withcolor .85white) ; fill reverse topboundary q -- topboundary p -- cycle ; fill reverse bottomboundary q -- bottomboundary p -- cycle ; drawoptions(withcolor .65white) ; fill reverse leftboundary q -- leftboundary p -- cycle ; fill reverse rightboundary q -- rightboundary p -- cycle ; setbounds currentpicture to Page ; \stopuseMPgraphic \defineoverlay[coverpage][\useMPgraphic{bg}] \starttext \setupbackgrounds[page] [background=coverpage] \centerline{Part I} \vskip .4in \centerline{Prerequisite for Success:} \vskip .2in \centerline{A Thorough Understanding} \vfil \tfa \page[yes] \setupbackgrounds[page] [background=] \input knuth \stoptext Aditya
![](https://secure.gravatar.com/avatar/8b3c344f0adba6016612e05447039f44.jpg?s=120&d=mm&r=g)
On Monday 27 November 2006 19:44, Aditya Mahajan wrote:
\definepapersize [bok] [width=6.0in,height=9.0in] \setuppapersize [bok] [letter] \setuplayout [marking=on,margin=.5in,textwidth=4.5in,width=middle,location=middle] \setupcolors [state=start]
\noheaderandfooterlines
\startuseMPgraphic{bg} boolean debug ; debug := false ; path Page ; Page = (fullsquare xyscaled (\overlaywidth, \overlayheight)) ; path p ; p := Page enlarged -10mm ; path q ; q := Page enlarged -15mm ; if debug : draw Page withcolor green; draw p withcolor red ; draw q withcolor blue ; fi ; drawoptions(withcolor .85white) ; fill reverse topboundary q -- topboundary p -- cycle ; fill reverse bottomboundary q -- bottomboundary p -- cycle ; drawoptions(withcolor .65white) ; fill reverse leftboundary q -- leftboundary p -- cycle ; fill reverse rightboundary q -- rightboundary p -- cycle ; setbounds currentpicture to Page ; \stopuseMPgraphic
\defineoverlay[coverpage][\useMPgraphic{bg}]
\starttext \setupbackgrounds[page] [background=coverpage]
\centerline{Part I} \vskip .4in \centerline{Prerequisite for Success:} \vskip .2in \centerline{A Thorough Understanding} \vfil \tfa
\page[yes] \setupbackgrounds[page] [background=]
\input knuth
\stoptext
That works perfectly without my kludgy workarounds. Therefore that is what I will use! Many thanks. -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com
participants (3)
-
Aditya Mahajan
-
Hans Hagen
-
John R. Culleton