Saved video tweets (Part 3/4)

As I discussed in Part 1 and Part 2, I’m going through my old saved tweets and documenting them as I move to Bluesky (@peterkagey.com). Here are four (secretly five!) of those tweets (all of which had video/GIF embeddings):

Rafael Araujo with geometric art (2023-09-30)
Keishiro Ueki’s hinged objects (2023-11-02)
Amy Goodchild illustrating Genuary 2024 (2024-01-01)
Matt Pritchard with an optical illusion (2024-02-17)

Rafael Araujo with geometric art

I think this could be an interesting problem to have multivariable calculus students model. Here’s my attempt:

Here’s the quick and dirty Mathematica code:

colors = {RGBColor["#a476b9"], RGBColor["#4476bc"], RGBColor["#73b9a3"], RGBColor["#faf0e1"], RGBColor["#fbe5cc"], RGBColor["#e85981"], RGBColor["#f3c0ee"], RGBColor["#d3cdd6"]};
c=4; a=0.35;
fs:=Table[
    {Cos[-t],2Sin[-t]}+a*{Cos[-c*t+s],Sin[-c*t+s]},
    {s,0,2\[Pi]-(2\[Pi])/8,(2\[Pi])/8}
];
frames=Table[
    ParametricPlot[
        fs,{t,-\[Pi]/4,tf},
        Background->Black, PlotRange->{{-2,2},{-3,2}}, Axes->False,
        PlotStyle->({JoinForm["Round"],CapForm["Round"],Thickness[0.02],#}&/@colors)
    ],
    {tf,-\[Pi]/4+0.01,2\[Pi]-3\[Pi]/4,0.05}
];
Export[NotebookDirectory[] <> "geometric_paint.mp4", frames]

Keishiro Ueki’s hinged objects

Keishiro Ueki is on Bluesky as @keishiroueki.bsky.social. The first video is a minute long and has twelve (!!) examples—each of them very slick!

This next video reminds me of Martin Schwab’s “Mechanized Hinged Truchet Tiling,” which you can see on Mathstodon! (You won’t regret clicking on the link!)