From: Hans Hagen <j.hagen@xs4all.nl>
To: mailing list for ConTeXt users <ntg-context@ntg.nl>,
"Jairo A. del Rio" <jairoadelrio6@gmail.com>
Subject: Re: supp-ran.lua makes code unable to work in ConTeXt
Date: Fri, 1 May 2020 15:21:43 +0200 [thread overview]
Message-ID: <6c7d66fc-848b-4c24-b78d-13932d052c41@xs4all.nl> (raw)
In-Reply-To: <CAKyqqaYfFhSf=mw8duDXaiDFHAL96X8qSRSAAOMmWQ=xiDnYCw@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 3891 bytes --]
On 5/1/2020 6:12 AM, Jairo A. del Rio wrote:
> I've adapted the following code to make mazes in LuaLaTeX and ConTeXt:
> https://www.rosettacode.org/wiki/Maze_generation#Lua
>
> I defined a modified version to make content visible to TeX and I saved
> in a file named maze.lua:
>
> function make_maze_tex(w, h, m)
> w = w or 16
> h = h or 8
>
> local map = initialize_grid(w*2+1, h*2+1)
>
> function walk(x, y)
> map[y][x] = false
>
> local d = { 1, 2, 3, 4 }
> shuffle(d)
> for i, dirnum in ipairs(d) do
> local xx = x + dirs[dirnum].x
> local yy = y + dirs[dirnum].y
> if map[yy] and map[yy][xx] then
> map[avg(y, yy)][avg(x, xx)] = false
> walk(xx, yy)
> end
> end
> end
>
> walk(math.random(1, w)*2, math.random(1, h)*2)
>
> tex.print([[\bgroup]])
> tex.print([[\baselineskip ]]..m)
> local s = {}
> for i = 1, h*2+1 do
> --table.insert(s, [[\hbox{]])
> tex.print([[\hbox{]])
> for j = 1, w*2+1 do
> -- table.insert(s, [[\hbox{]])
> if (j == 1 and i == 2) or (j == 2*w + 1 and i == 2*h) then
> tex.print([[\hskip ]]..m)
> elseif map[i][j] then
> --table.insert(s, [[\vrule width ]]..m..[[ height ]]..m)
> tex.print([[\vrule width ]]..m..[[ height ]]..m)
> else
> --table.insert(s, [[\hskip ]]..m)
> tex.print([[\hskip ]]..m)
> end
> -- table.insert(s, [[}]].."\n")
> end
> --table.insert(s, [[}]])
> tex.print([[}]])
> end
> --tex.print(table.concat(s))
> tex.print([[\egroup]])
> end
>
> And I executed the folowing in LuaLaTeX and ConTeXt:
>
> %\documentclass{article}
> %\usepackage{luacode}
> %\begin{document}
> \starttext
> %\begin{luacode*}
> \startluacode
> mz = dofile("maze.lua")
> local count = 0
> for i=10,109 do
> count = count + 1
> tex.print([[\subject{Laberinto ]]..count..[[}]])
> mz.make_maze_tex(i, i, [[\dimexpr\textwidth/]]..(2*i+1)..[[\relax]])
> tex.print([[\pagebreak]])
> end
> %\end{luacode*}
> \stopluacode
> %\end{document}
> \stoptext
>
> Whereas it works very fast in LuaLaTeX it crashes on ConTeXt and outputs
> the following:
btw, fast is relative ... no problem making the code twice as fast
it is actually a nice example for the cld manual ... attached some
output from a first 'improvement' (that version runs some 50-60% faster
so you have a challenge ... actually, it could be a nice challenge for
others on this list: how to make this one contextish and so, maybe we
should have a challenge every few weeks)
> token call, execute:
> ...ext/tex/texmf-context/tex/context/base/mkiv/supp-ran.lua:30: C stack
> overflow
>
> Why does it happen? I guess it has something to do with math.randomseed,
> but I don't know how to avoid this error message.
no, it's just lua running out of stack space so it depends on the binary
(and als the initial random value)
luatex 1.13 uses lua 5.3 which has a large stack but depending on the
compiler/linker settings and platform (it's 1000000 but depending on the
situatation you get a message or crash when that doesn't work out)
luajittex has a limited stack of 8000 so it will also crash
luametatex uses lua 5.4 which uses a bit different stack model and can't
go that high (it has a default of 2000 but i will bnump that to 6000
which still seems to work ok, that way i get upto a 120 maze)
(new lmtx upload later this weekend)
Hans
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
[-- Attachment #2: mazecontext.pdf --]
[-- Type: application/pdf, Size: 9334 bytes --]
[-- Attachment #3: Type: text/plain, Size: 493 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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
next prev parent reply other threads:[~2020-05-01 13:21 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-05-01 4:12 Jairo A. del Rio
2020-05-01 13:21 ` Hans Hagen [this message]
2020-05-01 21:38 ` Aditya Mahajan
2020-05-01 22:25 ` Hans Hagen
2020-05-02 3:05 ` Aditya Mahajan
2020-05-02 3:17 ` Aditya Mahajan
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=6c7d66fc-848b-4c24-b78d-13932d052c41@xs4all.nl \
--to=j.hagen@xs4all.nl \
--cc=jairoadelrio6@gmail.com \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).