Re: metafun- how to pass array as an argument

[Peter Rolf <indiego@gmx.net>]

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

Am 24.01.2011 13:50, schrieb Peter Rolf:
> Am 24.01.2011 13:18, schrieb dalyoung:
>> \startbuffer[a]
>> path p;
>> numeric bwidth, u, lastpoint; 
>> u :=1cm; 
>> p := fullcircle scaled .3u;
>> lastpoint := 0;
>>
>> def draw_balls = %(expr s)
> def draw_balls(text s) =
> 
>>   draw (0,0) -- (0, u);
>>   for i=3,5,0,2,1,7:
>     for i=s:
> 
>> 	for j = 1 upto i:
>> 	draw p shifted (lastpoint+.32*j*u,.3u);
>> 	endfor;
>>   bwidth := .32i*u+.5u;
>>   draw (lastpoint,0) -- (lastpoint +bwidth,0) -- (lastpoint +bwidth,u);
>>   lastpoint := lastpoint+bwidth;
>>   endfor;
>> enddef;
>>
>> draw_balls;
>>
draw_balls(3,5,0,2,1,7)

sorry, i forgot to change this line.
example code is attached for testing...

>> \stopbuffer
>>
>> \starttext
>> \processMPbuffer[a]
>> \stoptext
> 
> works in mkii, but fails in mkiv. i use an outdated version (31.12.2010)
> here.
> 
> 
> ! LuaTeX error <main ctx instance>:1: attempt to call field 'feedback'
> (a nil value)
> stack traceback:
> 	<main ctx instance>:1: in main chunk.
> <argument> ....feedback("\currentMPgraphicname ")}
> 
> \processMPgraphic ...ntMPgraphicformat ", \!!bs #1
>                                                   ;\!!es , \!!bs
> \currentMPi...
> <argument> ...feedback("\currentMPgraphicname ")}}
>                                                   \endMPgraphicgroup
> \secondoftwoarguments #1#2->#2
> 
> l.25 \processMPbuffer[a]
> 
> ?
> 
> 
> best wishes,  Peter
> ___________________________________________________________________________________
> 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  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________
> 


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

\startbuffer[a]
path p;
numeric bwidth, u, lastpoint; 
u :=1cm; 
p := fullcircle scaled .3u;
lastpoint := 0;

def draw_balls(text s) = 
  draw (0,0) -- (0, u);
  for i=s:
	for j = 1 upto i:
	draw p shifted (lastpoint+.32*j*u,.3u);
	endfor;
  bwidth := .32i*u+.5u;
  draw (lastpoint,0) -- (lastpoint +bwidth,0) -- (lastpoint +bwidth,u);
  lastpoint := lastpoint+bwidth;
  endfor;
enddef;

draw_balls(3,5,0,2,1,7);

\stopbuffer

\starttext
\processMPbuffer[a]
\stoptext

[-- Attachment #3: Type: text/plain, Size: 486 bytes --]

___________________________________________________________________________________
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  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________