Hilbert curve: Difference between revisions
Easylang
(Realize in F#) |
(Easylang) |
||
Line 1,280:
</pre>
=={{header|EasyLang}}==
{{trans|FutureBasic}}
[https://easylang.dev/show/#cod=jVDLDoMgELzzFXMUGx/Qprd+TKu0khBtqE3177sroqZeCoTszO7MEDpfG48LzifhbGs+tu4bHDUKdNwRr+rqDPVVWUYO2YySANNAS/H0XYXGupvxPQaMcA9YBauRIxcA7J0pMmNAixOjS4ZBklXIW7hx4WaJN/3btwwmx8mOrgKa4Rp+4OSUW+OmDg9SZGz383qdT8KI3Kr2ijCl5K9O/aXTG13MphMcWJWLKCpphx+hSnwB Run it]
<syntaxhighlight lang="easylang">
order = 64
linewidth 32 / order
scale = 100 / order - 100 / (order * order)
proc hilbert x y lg i1 i2 . .
if lg = 1
line (order - x) * scale (order - y) * scale
return
.
lg = lg / 2
hilbert x + i1 * lg y + i1 * lg lg i1 1 - i2
hilbert x + i2 * lg y + (1 - i2) * lg lg i1 i2
hilbert x + (1 - i1) * lg y + (1 - i1) * lg lg i1 i2
hilbert x + (1 - i2) * lg y + i2 * lg lg 1 - i1 i2
.
hilbert 0 0 order 0 0
</syntaxhighlight>
=={{header|F_Sharp|F#}}==
Line 1,303 ⟶ 1,327:
[[File:Hilbert5.png]]
[[File:Hilbert6.png]]
=={{header|Factor}}==
{{works with|Factor|0.99 2020-08-14}}
| |||