archery

$Mathematica code: Ce[r_, k_, N_, n_] := r^n {Cos[2 Pi*k/N], Sin[2 Pi*k/N]}f[n_, N_] := 2 Pi*n/NG[op_, P_, c_, d_, r_, N_, s_, t_, IS_] := Graphics[ Table[ {Opacity[op], Rotate[ Disk[ Ce[r, k, N, n], d*c^n], f[n, N]*t, {0, 0}]}, {k, 1, N, 1}, {n, 1, s, 1}], ImageSize -> IS, PlotRange -> P]ListAnimate[ Table[ G[.175, 1.3, .95, .3, 1, 4, 100, t, 500], {t, 0, 1, .02}]]$

Mathematica code:

Ce[r_, k_, N_, n_] := r^n {Cos[2 Pi*k/N], Sin[2 Pi*k/N]}
f[n_, N_] := 2 Pi*n/N

G[op_, P_, c_, d_, r_, N_, s_, t_, IS_] :=
 Graphics[
  Table[
   {Opacity[op],
    Rotate[
     Disk[
      Ce[r, k, N, n],
      d*c^n],
     f[n, N]*t, {0, 0}]},
   {k, 1, N, 1}, {n, 1, s, 1}],
  ImageSize -> IS, PlotRange -> P]

ListAnimate[
 Table[
  G[.175, 1.3, .95, .3, 1, 4, 100, t, 500],
 {t, 0, 1, .02}]]

Notes: 171 7/3/12 — 4:59pm Filed under: #GIF #Mathematica #drafts #queued #circles

Notes: 77 7/2/12 — 4:59pm Filed under: #GIF #Mathematica #logpolar coordinates #drafts #queued #code?

$Mathematica code: Animate[ DensityPlot[ Cos[Exp[Sqrt[x^2 + y^2]]*Sin[ArcTan[x, y]] + t], {x, -7, 7}, {y, -7, 7}, PlotPoints -> 150, Mesh -> False, Frame -> False, ColorFunction -> GrayLevel, ImageSize -> 521],{t, 0, 2 Pi, 2 Pi/10}]$

Mathematica code:

Animate[
  DensityPlot[
    Cos[Exp[Sqrt[x^2 + y^2]]*Sin[ArcTan[x, y]] + t], 
    {x, -7, 7}, {y, -7, 7},
  PlotPoints -> 150, Mesh -> False, Frame -> False, 
  ColorFunction -> GrayLevel, ImageSize -> 521],
{t, 0, 2 Pi, 2 Pi/10}]

Notes: 115 7/1/12 — 5:00pm Filed under: #GIF #Mathematica #density plot #drafts #queued

$Mathematica code: F[A_, B_, s_, L_, K_, t_] := ((1 - K) A + s*(1 - Abs[2 L - 1])*K*B)ListAnimate[ Table[ ParametricPlot[ Evaluate[ {F[Cos[t], Cos[t (1/0.7654 - 1)], 1, L, .7654, t], F[Sin[t], Sin[t (1/0.7654 - 1)], -1, L, .7654, t]}], {t, 0, 389.5}, Axes -> False, ImageSize -> 500, PlotRange -> 1.01],{L, 0, 1, .02}]]$

Mathematica code:

F[A_, B_, s_, L_, K_, t_] := ((1 - K) A + s*(1 - Abs[2 L - 1])*K*B)

ListAnimate[
 Table[
  ParametricPlot[
   Evaluate[
    {F[Cos[t], Cos[t (1/0.7654 - 1)], 1, L, .7654, t],
     F[Sin[t], Sin[t (1/0.7654 - 1)], -1, L, .7654, t]}],
   {t, 0, 389.5},
  Axes -> False, ImageSize -> 500, PlotRange -> 1.01],
{L, 0, 1, .02}]]

Notes: 184 6/30/12 — 4:56pm Filed under: #spirograph #GIF #Mathematica #drafts #queued

created with Mathematica

Notes: 659 6/29/12 — 4:58pm Filed under: #GIF #Mathematica #drafts #queued #code? #circles

$Mathematica code: G[t_, h_, o_, s_, P_] := Graphics[{ {White, Thickness[h], Opacity[o], Table[ Circle[ {i + t, -1}, s], {i, -1, .8, .2}], Table[ Circle[ {i - t, 1}, s], {i, -.8, 1, .2}], Table[ Circle[ {-1, j - t}, s], {j, -.8, 1, .2}], Table[ Circle[ {1, j + t}, s], {j, -1, .8, .2}] } }, Background -> Black, ImageSize -> 500, PlotRange -> P]ListAnimate[ Table[ G[t, .3, .63, 1.12, .07], {t , 0 , .195, .005}]]$

Mathematica code:

G[t_, h_, o_, s_, P_] :=
 Graphics[{
   {White, Thickness[h], Opacity[o],
    Table[
     Circle[
      {i + t, -1}, s],
     {i, -1, .8, .2}],
    Table[
     Circle[
      {i - t, 1}, s],
     {i, -.8, 1, .2}],
    Table[
     Circle[
      {-1, j - t}, s],
      {j, -.8, 1, .2}],
    Table[
     Circle[
      {1, j + t}, s],
     {j, -1, .8, .2}]
    }
   },
  Background -> Black,
  ImageSize -> 500,
  PlotRange -> P]

ListAnimate[
 Table[
  G[t, .3, .63, 1.12, .07],
 {t , 0 , .195, .005}]]

Notes: 62 6/28/12 — 4:55pm Filed under: #GIF #Mathematica #drafts #queued

$Mathematica code: G[t_, h_, o_, s_, P_] := Graphics[{ {White, Thickness[h], Opacity[o], Table[ Circle[ {i + t, -1}, s], {i, -1, .8, .2}], Table[ Circle[ {i - t, 1}, s], {i, -.8, 1, .2}], Table[ Circle[ {-1, j - t}, s], {j, -.8, 1, .2}], Table[ Circle[ {1, j + t}, s], {j, -1, .8, .2}] } }, Background -> Black, ImageSize -> 500, PlotRange -> P]ListAnimate[ Table[ G[t, .005, 1, 1, 2.1], {t , 0 , .18, .02}]]$

Mathematica code:

G[t_, h_, o_, s_, P_] :=
 Graphics[{
   {White, Thickness[h], Opacity[o],
    Table[
     Circle[
      {i + t, -1}, s],
     {i, -1, .8, .2}],
    Table[
     Circle[
      {i - t, 1}, s],
     {i, -.8, 1, .2}],
    Table[
     Circle[
      {-1, j - t}, s],
      {j, -.8, 1, .2}],
    Table[
     Circle[
      {1, j + t}, s],
     {j, -1, .8, .2}]
    }
   },
  Background -> Black,
  ImageSize -> 500,
  PlotRange -> P]

ListAnimate[
 Table[
  G[t, .005, 1, 1, 2.1],
 {t , 0 , .18, .02}]]

Notes: 334 6/27/12 — 4:57pm Filed under: #GIF #Mathematica #drafts #queued #circles

Notes: 76 6/26/12 — 5:57pm Filed under: #GIF #Mathematica #drafts #queued #code?

Notes: 122 6/26/12 — 5:00pm Filed under: #GIF #Mathematica #drafts #queued #code?

Notes: 232 6/25/12 — 5:00pm Filed under: #GIF #Mathematica #drafts #queued

800x800

created with Mathematica

High-res Notes: 24 6/23/12 — 5:57pm Filed under: #2color #Mathematica #drafts #queued #code?

800x800

created with Mathematica

High-res Notes: 51 6/23/12 — 4:59pm Filed under: #2color #Mathematica #drafts #queued #code?

created with Mathematica

Notes: 35 6/22/12 — 6:00pm Filed under: #GIF #Mathematica #2color #drafts #queued #code?

Music: “Psychometry 3.2” by Akufen

Created with Mathematica

Notes: 12 6/22/12 — 5:01pm Filed under: #2color #Mathematica #code? #drafts #queued #video #Akufen

created with Mathematica

Notes: 32 6/21/12 — 8:00pm Filed under: #wigglegram? #GIF #2color #Mathematica #drafts #queued #code?