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

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.21], .99^n*Cos[n*3.21]}, {n, 0, 700}],
  Polygon[Table[i, {i, 1, 700, 1}]]], 
 PlotRange -> .4, ImageSize -> 800]
High-res Notes: 26 5/26/12 — 7:53pm Filed under: #2color  #CTD  #Mathematica 
 
  1. pigeonholeprinciple reblogged this from intothecontinuum
  2. dapierco1 reblogged this from turnmil
  3. fromorganto-oregon reblogged this from -dilatedmind
  4. alittlesomthingsomething reblogged this from turnmil
  5. turnmil reblogged this from intothecontinuum
  6. -dilatedmind reblogged this from intothecontinuum
  7. magickhouse reblogged this from intothecontinuum
  8. serialbabe reblogged this from intothecontinuum
  9. background-radiation reblogged this from intothecontinuum
  10. d4zed-and-confused reblogged this from intothecontinuum
  11. intothecontinuum posted this