archery

$Mathematica code: ListAnimate[Table[ ImageCrop[ Graphics[ {White, Line[ Table[ {-.983^n*Sin[n*9.34], .983^n*Cos[n*9.34]}, {n, 0, s}]]}, PlotRange -> 1/40, ImageSize -> 800, Background -> Black], {500, 700}],{s, 46, 350, 4}]]$

Mathematica code:

ListAnimate[
Table[
 ImageCrop[
  Graphics[
   {White, Line[
     Table[
      {-.983^n*Sin[n*9.34], .983^n*Cos[n*9.34]}, 
     {n, 0, s}]]},
   PlotRange -> 1/40, ImageSize -> 800, Background -> Black],
 {500, 700}],
{s, 46, 350, 4}]]

Notes: 850 4/5/12 — 5:02pm Filed under: #GIF #Mathematica #The Light #CTD

$High-res: 800x800 Mathematica code: Graphics[ {White, Line[ Table[ {-.983^n*Sin[n*9.34], .983^n*Cos[n*9.34]}, {n, 0, 350}]]}, PlotRange -> 1/25, ImageSize -> 800, Background -> Black]$

High-res: 800x800

Mathematica code:

 Graphics[
  {White, Line[
    Table[
     {-.983^n*Sin[n*9.34], .983^n*Cos[n*9.34]}, 
    {n, 0, 350}]]},
  PlotRange -> 1/25, ImageSize -> 800, Background -> Black]

High-res Notes: 13 4/5/12 — 5:00pm Filed under: #Mathematica #The Light #CTD

$Mathematica code: ListAnimate[Table[ ImageCrop[ Graphics[ {White, Line[ Table[ {-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]}, {n, 0, If[0 < t < 51, 21 + 7*t, If[50 < t, 400 + 30*(t - 51), 0]]}]]}, PlotRange -> 1/5, ImageSize -> 800, Background -> Black], {500, 700}],{t, 0, 60, 1}]]$

Mathematica code:

ListAnimate[
Table[
 ImageCrop[
  Graphics[
   {White, Line[
     Table[
      {-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]}, 
     {n, 0, If[0 < t < 51, 21 + 7*t, If[50 < t, 400 + 30*(t - 51), 0]]}]]},
   PlotRange -> 1/5, ImageSize -> 800, Background -> Black],
 {500, 700}],
{t, 0, 60, 1}]]

Notes: 456 4/4/12 — 5:00pm Filed under: #GIF #Mathematica #The Light #CTD

$High-res: 800x800 Mathematica code: Graphics[ {White, Line[ Table[ {-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]}, {n, 0, 650}]]}, PlotRange -> 1/5, ImageSize -> 800, Background -> Black]$

High-res: 800x800

Mathematica code:

 Graphics[
  {White, Line[
    Table[
     {-.99^n*Sin[n*3.657], .99^n*Cos[n*3.657]}, 
    {n, 0, 650}]]},
  PlotRange -> 1/5, ImageSize -> 800, Background -> Black]

High-res Notes: 14 4/4/12 — 5:00pm Filed under: #Mathematica #The Light #CTD

[Flash 10 is required to watch video]

Music: “Rained the Whole Time” by Shlohmo

Mathematica code:

Animate[
  Graphics[
    Line[
     Table[{-Sin[n*a], Cos[n*a]}, {n, 0, 350}]],
  PlotRange -> .672],
{a, 3.2, 3.215}]

Notes: 42 2/28/12 — 5:06pm Filed under: #Mathematica #video #Shlohmo #the Light #CTD

$Mathematica code: Animate[ Graphics[ Line[ Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]], PlotRange -> p],{p, .5, .47, .01}]$

Mathematica code:

Animate[
 Graphics[
  Line[
   Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]],
 PlotRange -> p],
{p, .5, .47, .01}]

Notes: 420 1/16/12 — 5:51pm Filed under: #GIF #Mathematica #the Light

$Mathematica code: Animate[ Graphics[ Line[ Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]], PlotRange -> p],{p, .39, .37, .01}]$

Mathematica code:

Animate[
 Graphics[
  Line[
   Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]],
 PlotRange -> p],
{p, .39, .37, .01}]

Notes: 680 1/13/12 — 6:22pm Filed under: #GIF #Mathematica #PS #let yr eyes blur #the Light

High-Res: 768x1280

High-res Notes: 116 12/23/11 — 5:01pm Filed under: #Mathematica #Moire pattern #SCROLL! #the Light

$Mathematica code: Animate[ Graphics[ Line[ Table[{-.999^n*Sin[n*4.083], .999^n*Cos[n*4.083]}, {n, 0, 3000}]], PlotRange -> p],{p, .0045, .0048, .0001}]$

Mathematica code:

Animate[
 Graphics[
  Line[
   Table[{-.999^n*Sin[n*4.083], .999^n*Cos[n*4.083]}, {n, 0, 3000}]],
 PlotRange -> p],
{p, .0045, .0048, .0001}]

Notes: 588 12/19/11 — 5:12pm Filed under: #GIF #Mathematica #the Light #CTD

$r = 1 2.07773 ≤ a ≤ 2.07777 s = 401 Mathematica code: Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]$

r = 1

2.07773 ≤ a ≤ 2.07777

s = 401

Mathematica code:

Manipulate[Graphics[Line[
   Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
  PlotRange -> 1.3],
 {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]

Notes: 26 11/5/11 — 6:01pm Filed under: #GIF #Mathematica #lines #Moire pattern #the Light #CTD

$r = 1 2.0425 ≤ a ≤ 2.0426 s = 800 (High-Res detail for a = 2.04252) Mathematica code: Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]$

r = 1

2.0425 ≤ a ≤ 2.0426

s = 800

(High-Res detail for a = 2.04252)

Mathematica code:

Manipulate[Graphics[Line[
   Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
  PlotRange -> 1.3],
 {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]

Notes: 174 11/3/11 — 12:05pm Filed under: #GIF #Mathematica #Moire pattern #the Light #CTD

$High-Res (762x1280) PDF r = 1 a = 2.04252 s = 800 Mathematica code: Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]$

High-Res (762x1280)

PDF

r = 1

a = 2.04252

s = 800

Mathematica code:

Manipulate[Graphics[Line[
   Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
  PlotRange -> 1.3],
 {r, .1, 1}, {a, 0.001, 6*Pi, .00001}, {s, 1, 800, 1}]

High-res Notes: 53 11/3/11 — 12:00pm Filed under: #Mathematica #lines #PDF #the Light #CTD

High-Res (753x1280)

High-res Notes: 39 10/31/11 — 8:21pm Filed under: #Mathematica #lines #r=.996 #a=11.138 #s=800 #Dn={sin(an);cos(an)} #the Light #CTD

a = 1

High-res Notes: 12 10/23/11 — 3:02pm Filed under: #Mathematica #lines #the Light #CTD