[GIF] Come Back (Fun with the square)

Posted 4 years ago
7393 Views
|
9 Replies
|
14 Total Likes
|
 Come Back Same basic code as yesterday, but messed around with so that it's much less obvious that the underlying object is a regular octagon. No deep math, but fun nonetheless.The code: DynamicModule[{n = 8, k = 6, r, cols, verts}, cols = RGBColor /@ {"#00ADB5", "#EEEEEE", "#FF5722", "#303841"}; Manipulate[ r = Cos[s]; verts = Table[(1 - r (-1)^(i + 1)) {Cos[2 ? i/n - ? (r + 1)/8], Sin[2 ? i/n - ? (r + 1)/8]}, {i, 0, n - 1}]; Graphics[{Thickness[.0075], CapForm["Round"], Opacity[.8], Table[{Blend[cols[[;; 3]], 1 - Abs[11/5 t - 11/10]], Line[{t verts[[i]] + (1 - t) RotateRight[verts, 3][[i]], t RotateLeft[verts, k][[i]] + (1 - t) RotateLeft[verts, k + 1][[i]]}]}, {i, 1, n - 1, 2}, {t, 1/12, 11/12, 1/12}]}, PlotRange -> 3, ImageSize -> 540, Background -> cols[[4]]], {s, 0, ?}]] 
9 Replies
Sort By:
Posted 4 years ago
 Something about this colour scheme feels very 80s, yet modern. I think you're on to something here...
Posted 4 years ago
Posted 1 year ago
 This entry of Clayton's has been out for quite a while, but let me just belatedly write in to say that the expression for the Line[] can be simplified quite a bit: Line[{{t, 1 - t}.verts[[{i, Mod[i - 3, n, 1]}]], {t, 1 - t}.verts[[Mod[i + k + {0, 1}, n, 1]]]}] where we use Mod[] with an offset to find the required indices, instead of having to perform RotateLeft[]/RotateRight[]. A slight modification of the original code gives a pretty variation: DynamicModule[{n = 10, k = 6, r, verts, cols = RGBColor /@ {"#00adb5", "#eeeeee", "#ff5722", "#303841"}}, Manipulate[r = Cos[s]; verts = Table[(1 - r (-1)^i) AngleVector[2 ? (i - 1)/n - ? (r + 1)/8], {i, n}]; Graphics[{Directive[Thickness[.0075], CapForm["Round"], Opacity[.8]], Table[{Blend[cols[[; ;-2]], 1 - Abs[11/5 t - 11/10]], Line[{{t, 1 - t} . verts[[{i, Mod[i - 5, n, 1]}]], {t, 1 - t} . verts[[Mod[i + k + {0, 1}, n, 1]]]}]}, {i, 1, n - 1, 2}, {t, 1/12, 11/12, 1/12}]}, PlotRange -> 3, ImageSize -> 540, Background -> cols[[-1]]], {s, 0, 2 ?}]] 
Posted 4 years ago
 - another post of yours has been selected for the Staff Picks group, congratulations !We are happy to see you at the tops of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!
Posted 4 years ago
 @Moderation Team Awesome, thanks!
Posted 4 years ago
 @Bianca Eifert Thanks!
Posted 4 years ago
 @Daniel Lichtblau I had never heard of Auskiewicz before, but his stuff is very cool. Reminds me a little of a current artist I like quite a bit, dalek.