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 Jorge
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 ; path p[] ; 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 -----------------------------------------------------------------
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 ; path p[] ; 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 ; 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 ----------------------------------------------------------------- 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 -----------------------------------------------------------------
Thanks very much for your support.
Jorge
2013/12/22 Hans Hagen
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 ; path p[] ; 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 ; 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
----------------------------------------------------------------- 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 ____________________________________________________________ _______________________
-- Atentamente DesdeChaves
Three ways to generate poisson data. Thanks for Hans Hagen, Alan Braslou
and Anthony Phan.
Jorge
2013/12/23 DesdeChaves
Thanks very much for your support.
Jorge
2013/12/22 Hans Hagen
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 ; path p[] ; 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 ; 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
----------------------------------------------------------------- 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 ____________________________________________________________ _______________________
-- Atentamente
DesdeChaves
-- Atentamente DesdeChaves
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 -----------------------------------------------------------------
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
participants (3)
-
DesdeChaves -
Hans Hagen -
Peter Rolf