Re: Request for metapost

[Peter Rolf <indiego@gmx.net>]

Also thanks from my side. Just what I needed for further tests (graphics
with multiple paths).

Peter


Am 22.12.2013 19:10, schrieb Hans Hagen:
> \starttext
> 
> % \enabletrackers[metapost.variables]
> 
> \startMPcode
>     numeric n[]   ; for i=1 upto 10: n[i] := 1/i ; endfor ;
>     path    p[]   ; for i=1 upto 10: p[i] := fullcircle xyscaled
> (cm*i,cm/i) ; endfor ;
>     numeric r[][] ; for i=1 upto 4 : for j=1 upto 3 : r[i][j] :=
> uniformdeviate(1) ; endfor ; endfor ;
>     pair    u[][] ; for i=1 step 0.5 until 4 : for j=1 step 0.1 until 2
> : u[i][j] := (i,j) ; endfor ; endfor ;
> 
>     passvariable("x",12345) ;
>     passarrayvariable("n-array",n,1,7,1) ;
>     passarrayvariable("p-array",p,1,7,1) ;
>     passvariable("p",(1,1) .. (2,2)) ;
> 
>     startpassingvariable("b")
>         startarray
>             for i=1 upto 4 :
>                 startarray
>                     for j=1 upto 3 :
>                         value(r[i][j])
>                     endfor
>                 stoparray
>             endfor
>         stoparray
>     stoppassingvariable ;
> 
>     startpassingvariable("a")
>         starthash
>             key("test 1")
>                 startarray
>                     value(123)
>                     value(456)
>                 stoparray
>             key("test 2")
>                 startarray
>                     index(0)
>                     value(123)
>                     value(456)
>                     value(789)
>                     slot(999,987)
>                 stoparray
>             key("test 3")
>                 starthash
>                     key("first") value(789)
>                     entry("second",987)
>                 stophash
>         stophash
>     stoppassingvariable ;
> 
>     startpassingvariable("c")
>         startarray
>             for i=1 step 0.5 until 4 :
>                 index(i)
>                 startarray
>                     for j=1 step 0.1 until 2 :
>                         slot(j,u[i][j])
>                     endfor
>                 stoparray
>             endfor
>         stoparray
>     stoppassingvariable ;
> 
>     draw fullcircle scaled 1cm ;
> \stopMPcode
> 
> \ctxluacode{inspect(metapost.variables)}
> 
> \ctxcommand{mprunvar("x")}
> 
> \stoptext

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