Base −1 + i, digits 0 and 1
source
<Labeled
Variables='[
_e -> Variable(ComplexBases, "twindragon"),
_r -> [Labeled(GaussianIntegers, "ℤ[i]"), Labeled(EisensteinIntegers, "ℤ[ω]")],
_b -> Variable(_r, (-1, 1)),
_ds -> Variable(_r, [(1, 0)]),
_L -> Variable(Integers, 12, Range -> [1, 14])
]'
>
<Show ImageSize="[Automatic, 520]">
<LatticeTiles
ColorRules='[True -> ColorData("Tableau10")(Digit(_L))]'
BoundaryStyle="[IsDigit -> White, Overlaps -> Directive(Red, AbsoluteThickness(1.5))]"
>
<RadixExpansions Example="_e">_r _b _ds _L</RadixExpansions>
</LatticeTiles>
<Locator Appearance='"β"'>_b</Locator>
<Locator LocatorAutoCreate>_ds</Locator>
</Show>
<StringTemplate>Base $\beta = _b$, digits 0, {_ds}, at most {_L} places, colored by the digit in the last place: {_e}. Try {Setter(_e, "twindragon", "the twindragon")}, {Setter(_e, "quater-imaginary", "Knuth's quater-imaginary base")}, {Setter(_e, "katai-szabo", "base −2 + i")}, {Setter(_e, "gosper-island", "the Gosper island")}, {Setter(_e, "eisenstein-three", "base −1 + ω")} or {Setter(_e, "square", "a plain square")}.</StringTemplate>
Bottom
</Labeled>