[NTG-context] Back to Metafun Manual

6 Jun 2007

      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

?

[NTG-context] Back to Metafun Manual

David Arnold