800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}], Polygon[Table[i, {i, 1, 600, 1}]]], PlotRange -> .25, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}],
  Polygon[Table[i, {i, 1, 600, 1}]]], 
 PlotRange -> .25, ImageSize -> 800]
High-res Notes: 7 5/26/12 — 1:01pm Filed under: #2color  #CTD  #Mathematica 
 
  1. sorry-was-all-i-could-be reblogged this from intothecontinuum
  2. intothecontinuum posted this