From: Willi Egger <w.egger@boede.nl>
Subject: Strange behaviour? Metapost om connection with MPpage
Date: Fri, 16 Jan 2004 23:45:06 +0100 [thread overview]
Message-ID: <40086972.6010608@boede.nl> (raw)
[-- Attachment #1: Type: text/plain, Size: 797 bytes --]
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
\stoptext
The appended code does compile if the MPpage lines are commented. and
useMPgraphic is uncommented.
Otherwise the following error is given:
! Missing `,' has been inserted.
<to be read again>
:
gluedraw->...me_stripe(height,width,linewidth,\@@:
linecolor,angle,\@@:gap,sh...
l.248 gluedraw(sq)
;
I use currently: ConTeXt ver: 2003.12.18 fmt: 2004.1.13
Could some metafun-literate try the code in both versions and see what
happens?
Thanks Willi
[-- Attachment #2: test.tex --]
[-- Type: text/plain, Size: 1473 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
% \includeMPgraphic{\PICT}
% \stopMPpage
\useMPgraphic{\PICT}
\stoptext
next reply other threads:[~2004-01-16 22:45 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-01-16 22:45 Willi Egger [this message]
2004-01-24 9:54 ` Hans Hagen
2004-01-24 17:47 ` Willi Egger
2004-01-24 19:08 ` Hans Hagen
2004-01-25 17:16 ` Willi Egger
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=40086972.6010608@boede.nl \
--to=w.egger@boede.nl \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).