intothecontinuum:

Mathematica code:

Animate[
  Graphics[
     Table[
       {Thickness[.006],
        Circle[{20*Cos[i*Pi/6], 20*Sin[i*Pi/6]},
         t + (32 - n) (1 + Sign[32 - n])/2]}, {n, 0, 50, 1}, 
      {i, 0, 11, 1}], 
  PlotRange -> 17, ImageSize -> 750],
{t, 0, 1}]

(via proofmathisbeautiful)

2 months ago
  1. pvpv reblogged this from proofmathisbeautiful
  2. desenderesso reblogged this from 2headedsnake
  3. thevoiiid reblogged this from 2headedsnake
  4. ponderbear reblogged this from 2headedsnake
  5. scarecrow-dreams reblogged this from superoxto
  6. superoxto reblogged this from surrealtree
  7. owls-nest reblogged this from 2headedsnake
  8. thx4none reblogged this from surrealtree
  9. ireallylikesweaters reblogged this from surrealtree
  10. blahxxx3 reblogged this from surrealtree
  11. nakedtrolls reblogged this from surrealtree
  12. surrealtree reblogged this from intothecontinuum
  13. libertyjell reblogged this from 2headedsnake
  14. wellssun reblogged this from 2headedsnake
  15. moon-gauri reblogged this from imaginalfreqs
  16. spacepolution reblogged this from intothecontinuum
  17. jslasher reblogged this from 2headedsnake
  18. ohlalapetitpenseur reblogged this from proofmathisbeautiful
  19. friendlyparanoia reblogged this from 2headedsnake
  20. lynchianbedhead reblogged this from 2headedsnake
  21. imaginalfreqs reblogged this from 2headedsnake
  22. saviopwns reblogged this from 2headedsnake
  23. slab1001 reblogged this from 2headedsnake
  24. br0meslice reblogged this from 2headedsnake