some more
\definepapersize
[cover]
[width=330mm,
height=240mm]
\setuppapersize
[distance=38mm]
\setuplayout
[marking=color,
location=middle,
cropoffset=0mm,
trimoffset=-7.5mm,
bleedoffset=3mm]
\starttext
\setuppapersize[cover][oversized]
\startpagemakeup
\paperbleed 1mm
\spinewidth 15mm
\startsetups spinetitle
\hbox to \paperheight \bgroup
\hskip1cm
\bfd \setstrut \strut
Here is something spine
\hss
Okay
\hskip1cm
\egroup
\stopsetups
\startsetups booktitle
\definefont[Biggish][SerifBold @ 36pt]
\framed
[foregroundstyle=Biggish,
align=flushright]
{
What is this\\all about
}
\stopsetups
\startMPcode
StartPage;
fill Page enlarged PaperBleed withcolor "darkyellow" ;
draw image (
draw leftboundary Page shifted (
PaperWidth/2-SpineWidth/2,0) ;
draw rightboundary Page shifted
(-PaperWidth/2+SpineWidth/2,0) ;
) withcolor "white" withpen pencircle scaled 1mm ;
draw
textext.rt("\setups{spinetitle}") rotated 270
shifted (PaperWidth/2,PaperHeight)
withcolor "white" ;
draw
textext.llft("\setups{booktitle}")
shifted urcorner Page
shifted (-1cm,-1cm)
withcolor "white" ;
StopPage;
\stopMPcode
\stoppagemakeup
\stoptext
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] /
https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive : https://github.com/contextgarden/context
wiki : https://wiki.contextgarden.net
___________________________________________________________________________________
