800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}], Polygon[Table[i, {i, 1, 750, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}],
  Polygon[Table[i, {i, 1, 750, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res Notes: 11 5/26/12 — 9:59pm Filed under: #2color  #CTD  #Mathematica 
 
  1. pigeonholeprinciple reblogged this from intothecontinuum
  2. turnmil reblogged this from intothecontinuum
  3. tumblrplayr reblogged this from intothecontinuum
  4. intothecontinuum posted this