All,
I am wondering what is wrong with the following. On my system it
produces the error that follows.
\setuppapersize[S6][S6]
\usetypescriptonce [map] [times,helvetica,palatino] [texnansi]
\usetypescriptonce [serif] [times] [name,texnansi]
\usetypescriptonce [sans] [helvetica] [name,texnansi]
\usetypescriptonce [palatino] [texnansi]
\setupbodyfont [palatino,10pt]
\startbuffer[mpenv]
\startMPenvironment
\usetypescriptonce[map][times,helvetica,palatino][texnansi]
\usetypescriptonce[serif][times][name,texnansi]
\usetypescriptonce[sans][helvetica][name,texnansi]
\usetypescriptonce[palatino][texnansi]
\setupbodyfont[palatino,10pt]
\definefont[RotFont][RegularBold]
\stopMPenvironment
\stopbuffer
\definefont[RotFont][RegularBold]
\getbuffer[mpenv]
\setupcolors[state=start]
\starttext
\def\showMPline#1#2%
{\startMPcode
path p ; p := ((0,0)--(.5,1)--(1,0)) xscaled 2.5cm yscaled
1.25cm ;
pickup pencircle scaled .75cm ;
draw p withcolor .625white ;
interim linejoin := #1 ;
interim linecap := #2 ;
draw p withcolor transparent(1,.5,.625yellow) ;
\stopMPcode}
\def\showMPtext#1#2%
{linejoin=#1\par linecap=#2}
\startbuffer
\startcombination[3*3]
{\showMPline{mitered}{butt}} {\showMPtext{mitered}{butt}}
{\showMPline{mitered}{rounded}} {\showMPtext{mitered}{rounded}}
{\showMPline{mitered}{squared}} {\showMPtext{mitered}{squared}}
{\showMPline{rounded}{butt}} {\showMPtext{rounded}{butt}}
{\showMPline{rounded}{rounded}} {\showMPtext{rounded}{rounded}}
{\showMPline{rounded}{squared}} {\showMPtext{rounded}{squared}}
{\showMPline{beveled}{butt}} {\showMPtext{beveled}{butt}}
{\showMPline{beveled}{rounded}} {\showMPtext{beveled}{rounded}}
{\showMPline{beveled}{squared}} {\showMPtext{beveled}{squared}}
\stopcombination
\stopbuffer
\placefigure
[here] [fig:joints]
{The nine ways to end and join lines.}
{\getbuffer}
\stoptext
\stoptext
The error:
(./meta-meta.tmp [MP to PDF] (./meta-mpgraph.1
! Dimension too large.
<recently read> \onebasepoint
\handleMPboundingbox ...expr \MPury \onebasepoint
-\MPlly
\onebasepoint \rel...
l.2 %%BoundingBox: -11 -11 82 25121
?
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
