Clayton Shonkwiler
Colorado State University
/icerm
this talk!
Spiral Light, by Dave Whyte (@beesandbombs)
...?
a.k.a. pentagonal tiling of the sphere
...of what?
inv[z_] := I (z + 1)/(z - 1);
circleinversion[z_] := z/Norm[z]^2;
HRot = ParallelTable[
ParametricPlot[
Flatten[{{10 (t - π), 0},
{ToReal[inv[E^(I t) + #]],
ToReal[inv[
circleinversion[E^(I t) + #]]]} & /@ (E^(I θ)*
DeleteCases[
Flatten[Table[a + I b, {a, -4, 4, 2}, {b, -4, 4, 2}]],
0 + 0 I])}], {t, 0, 2 π}, PlotRange -> 4,
Axes -> False,
PlotStyle ->
Directive[Thickness[.003], RGBColor[{227, 156, 188}/255]],
ImageSize -> {540, 540},
Background -> GrayLevel[.2]],
{θ, 0., π/2 - #, #}] &[π/400];
Export[NotebookDirectory[] <> "HRot.gif", HRot,
"DisplayDurations" -> {1/36}]
Only certain pentagons tile the plane
But all quadrilaterals tile!
(requires free Wolfram CDF player)
Also: design-seeds.com, color.adobe.com, swisscolors.net, and many more
> gifsicle -O2 -k128 input.gif > output.gif
“optimize”
# colors
(≤256)
Download from lcdf.org/gifsicle/ or install from your favorite package manager