Re: [NTG-context] Request for metapost
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 ;
pathp[] ; 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 ;
pairu[][] ; 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
___
Re: [NTG-context] Request for metapost
Thanks very much for your support.
Jorge
2013/12/22 Hans Hagen pra...@wxs.nl
On 12/22/2013 3:57 PM, Hans Hagen wrote:
On 12/21/2013 12:50 PM, DesdeChaves wrote:
I know that metapost can send the variables version, number,
string, point, quad, boolean and path to Context.
triplet variable can't pass. It will be very usefull if metapost can
send a array to context.
\startMPcode
numeric x[];
for i = 1 upto 10: x[i]:=random; endfor
passvariable(array,x);
passvariable(version,1.0) ;
passvariable(number,x[1]) ;
passvariable(string,whatever) ;
passvariable(point,(1,2)) ;
passvariable(triplet,(1,2,3)) ;
passvariable(quad,(1,2,3,4)) ;
passvariable(boolean,false) ;
passvariable(path,fullcircle scaled 1cm) ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(array)}
Thanks in advance
that's less trivial (as automatism) so i provide passarrayvariable now
(next beta) ... of course the next request would concern complex arrays
so i also made a more low level flusher
\starttext
\startMPcode
numeric n[] ; for i=1 upto 10: n[i] := i + 1 ; endfor ;
pathp[] ; for i=1 upto 10: p[i] := fullcircle scaled (i*cm) ;
endfor ;
numeric n[][] ; for i=1,4 : for j=1,3 : n[i][j] = uniformdeviate(1)
; 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)) ;
% watch out: no ; in between
startpassingvariable(b)
startarray
for i=1,4 :
startarray
for j=1,3 :
value(n[i][j])
endfor
stoparray
endfor
stoparray
stoppassingvariable ;
startpassingvariable(a)
starthash
key(test1)
startarray
value(123)
value(456)
stoparray
key(test2)
starthash
key(test)
value(789)
stophash
stophash
stoppassingvariable ;
draw fullcircle scaled 1cm ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(x)}
\stoptext
\starttext
% \enabletrackers[metapost.variables]
\startMPcode
numeric n[] ; for i=1 upto 10: n[i] := 1/i ; endfor ;
pathp[] ; 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 ;
pairu[][] ; 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
-
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-
___
If your question is of interest to others as well, please add an entry to
the Wiki!
maillist : ntg-context@ntg.nl /
Re: [NTG-context] Request for metapost
On 12/23/2013 4:52 PM, DesdeChaves wrote: Three ways to generate poisson data. Thanks for Hans Hagen, Alan Braslou and Anthony Phan. as you use swig you can also put your library in root/tex/texmf-linux-64/bin/lib/luatex/lua/swiglib/randist/core.so and then (given that you've run mtxrun --generate): local rl = swiglib(randist) Hans - Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com | www.pragma-pod.nl - ___ 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 ___
Re: [NTG-context] Request for metapost
On 12/21/2013 12:50 PM, DesdeChaves wrote:
I know that metapost can send the variables version, number,
string, point, quad, boolean and path to Context.
triplet variable can't pass. It will be very usefull if metapost can
send a array to context.
\startMPcode
numeric x[];
for i = 1 upto 10: x[i]:=random; endfor
passvariable(array,x);
passvariable(version,1.0) ;
passvariable(number,x[1]) ;
passvariable(string,whatever) ;
passvariable(point,(1,2)) ;
passvariable(triplet,(1,2,3)) ;
passvariable(quad,(1,2,3,4)) ;
passvariable(boolean,false) ;
passvariable(path,fullcircle scaled 1cm) ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(array)}
Thanks in advance
that's less trivial (as automatism) so i provide passarrayvariable now
(next beta) ... of course the next request would concern complex arrays
so i also made a more low level flusher
\starttext
\startMPcode
numeric n[] ; for i=1 upto 10: n[i] := i + 1 ; endfor ;
pathp[] ; for i=1 upto 10: p[i] := fullcircle scaled (i*cm) ;
endfor ;
numeric n[][] ; for i=1,4 : for j=1,3 : n[i][j] = uniformdeviate(1)
; 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)) ;
% watch out: no ; in between
startpassingvariable(b)
startarray
for i=1,4 :
startarray
for j=1,3 :
value(n[i][j])
endfor
stoparray
endfor
stoparray
stoppassingvariable ;
startpassingvariable(a)
starthash
key(test1)
startarray
value(123)
value(456)
stoparray
key(test2)
starthash
key(test)
value(789)
stophash
stophash
stoppassingvariable ;
draw fullcircle scaled 1cm ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(x)}
\stoptext
-
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-
___
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
___
Re: [NTG-context] Request for metapost
On 12/22/2013 3:57 PM, Hans Hagen wrote:
On 12/21/2013 12:50 PM, DesdeChaves wrote:
I know that metapost can send the variables version, number,
string, point, quad, boolean and path to Context.
triplet variable can't pass. It will be very usefull if metapost can
send a array to context.
\startMPcode
numeric x[];
for i = 1 upto 10: x[i]:=random; endfor
passvariable(array,x);
passvariable(version,1.0) ;
passvariable(number,x[1]) ;
passvariable(string,whatever) ;
passvariable(point,(1,2)) ;
passvariable(triplet,(1,2,3)) ;
passvariable(quad,(1,2,3,4)) ;
passvariable(boolean,false) ;
passvariable(path,fullcircle scaled 1cm) ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(array)}
Thanks in advance
that's less trivial (as automatism) so i provide passarrayvariable now
(next beta) ... of course the next request would concern complex arrays
so i also made a more low level flusher
\starttext
\startMPcode
numeric n[] ; for i=1 upto 10: n[i] := i + 1 ; endfor ;
pathp[] ; for i=1 upto 10: p[i] := fullcircle scaled (i*cm) ;
endfor ;
numeric n[][] ; for i=1,4 : for j=1,3 : n[i][j] = uniformdeviate(1)
; 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)) ;
% watch out: no ; in between
startpassingvariable(b)
startarray
for i=1,4 :
startarray
for j=1,3 :
value(n[i][j])
endfor
stoparray
endfor
stoparray
stoppassingvariable ;
startpassingvariable(a)
starthash
key(test1)
startarray
value(123)
value(456)
stoparray
key(test2)
starthash
key(test)
value(789)
stophash
stophash
stoppassingvariable ;
draw fullcircle scaled 1cm ;
\stopMPcode
\ctxluacode{inspect(metapost.variables)}
\ctxcommand{mprunvar(x)}
\stoptext
\starttext
% \enabletrackers[metapost.variables]
\startMPcode
numeric n[] ; for i=1 upto 10: n[i] := 1/i ; endfor ;
pathp[] ; 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 ;
pairu[][] ; 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
-
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-
___
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
