Re: [NTG-context] Why must I move frame to center it?

2006-11-28 Thread John R. Culleton 
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

___
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: [NTG-context] Why must I move frame to center it?

2006-11-27 Thread John R. Culleton 
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 topboundaryq -- topboundaryp -- 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

___
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: [NTG-context] Why must I move frame to center it?

2006-11-27 Thread Aditya Mahajan 
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 topboundaryq -- topboundaryp -- 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
___
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: [NTG-context] Why must I move frame to center it?

2006-11-26 Thread Hans Hagen 
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 topboundaryq -- topboundaryp -- 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
-

___
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context