On 8/24/2021 6:12 PM, Bruce Horrocks wrote:

Thanks. I'll wait for your upload and try again.
i uploaded new bins

just for fun (yesterday i needed a distraction) i also added some basic mechanism for repeatable random numbers (i can add more if needed) (the usual tex / lua / mp interfaces)

\starttext

   % \enabletrackers[system.randomizer.details]
    % empty == default

    \newrepeatablerandom\MyRandom {Welcome 2 America}
    \newrepeatablerandom\MyRandomN{\randomnumber{0}{1000}}
    \newrepeatablerandom\MyRandomM{\randomnumber{0}{1000}}

    \cldcontext{utilities.randomizer.getrepeatableseed()}\par
    \cldcontext{utilities.randomizer.getrepeatableseed("default")}\par
    \cldcontext{utilities.randomizer.getrepeatableseed("MyRandom")}\par
    \cldcontext{utilities.randomizer.getrepeatableseed("MyRandomN")}\par
    \cldcontext{utilities.randomizer.getrepeatableseed("MyRandomM")}\par

    \dorecurse{10}{\MyRandom\par}

    \startlinecorrection
        \startMPcode
            randomseed := repeatablerandom("MyRandom") ;
            draw image (
                for i=1 upto 1000 :
                    draw origin randomized 100 ;
                endfor ;
            ) withpen pencircle scaled 1 withcolor white withstacking 2 ;
fill boundingbox currentpicture withcolor darkred withstacking 1 ;
        \stopMPcode
    \stoplinecorrection

    \startluacode
        context(utilities.randomizer.getrepeatableseed("MyRandom"))
        context.par()
        local rep = utilities.randomizer.getrepeatable("MyRandom")
        for i=1,5 do
            context(rep())
            context.par()
        end
    \stopluacode

\stoptext



-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
       tel: 038 477 53 69 | www.pragma-ade.nl | 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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Reply via email to