Re: Strange behaviour? Metapost om connection with MPpage

[Willi Egger <w.egger@boede.nl>]

[-- Attachment #1: Type: text/plain, Size: 790 bytes --]

Hi Hans,

Hm, tried to use

\starttext
    \startMPpage
          \useMPgraphic{\Pict}
    \stopMPpage
\stoptext

error:
 >> useMPgraphic
! Isolated expression.
<to be read again>
                   {
l.224 \useMPgraphic {
                     Test} ;
?

Otherwise this works:

\starttext
    \useMPgraphic{\Pict}
\stoptext

Strange, I am stumied...

Willi

Hans Hagen wrote:

> At 23:45 16/01/2004, you wrote:
>
>> Hi all,
>>
>> Currently I am preparing a series of figures. I use the approach 
>> given in Metafun:
>>
>> \startuseMPgraphic{test}
>> ...
>> code
>> ...
>> \stopuseMPgraphic
>>
>> \starttext
>>    \startMPpage
>>          \includeMPgraphic{test}
>>    \stopMPpage
>> % \useMPgraphic
>
>
>    \useMPgraphic{test} % otherwise it is \useMPgraphic{\stoptext}
>
>> \stoptext
>


[-- Attachment #2: test.tex --]
[-- Type: text/plain, Size: 1468 bytes --]

\setupoutput[pdftex]
\setupcolors[state=start]

\def\PICT{Test}

\startMPenvironment
  \setupbodyfont[ss,8pt]
\stopMPenvironment

\setupMPvariables
   [\PICT]
   [linecolor=blue,
    gap=.2\bodyfontsize]

\startuseMPgraphic{\PICT}{linecolor,gap}

% the following definition is taken from mp-back.mp and adapted
% in order to be able to fill a given path with a pattern
def some_stripe (expr awidth    ,
                     aheight    ,
                     alinewidth ,
                     alinecolor ,
                     aangle     ,
                     agap       ,
                     ashape_path ) =
  stripe_gap := agap ;
  stripe_angle := aangle ;
  drawoptions (withpen pencircle scaled alinewidth
               withcolor alinecolor) ;
  path p ; p := ashape_path ;
  stripe_path_a () (draw) p ;
enddef;

def gluedraw(expr gluepath)=
       path shape_path; shape_path := gluepath;
       some_stripe
         (height,
          width,
          linewidth,
          \MPvar{linecolor},
          angle,
          \MPvar{gap},
          shape_path);
enddef ;

numeric u; u := 5mm;
numeric width; width := 100u;
numeric height; height := 50u;
numeric angle; angle := 45 ;
numeric linewidth; linewidth :=.5pt;

path sq; sq = (0,0)--(10u,0)--(12u,5u)--(10u,10u)--(0,10u) --cycle ;
fill sq withcolor \MPcolor{red} ;

gluedraw(sq);
\stopuseMPgraphic

\starttext
%     \startMPpage
%         \useMPgraphic{\PICT}
%     \stopMPpage
\useMPgraphic{\PICT}
\stoptext