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
\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