archery

$High-Res: 763x1280 PDF Animate Mathematica code: Graphics[ Line[ Table[{-.999^n*Sin[n*3.08914], .999^n*Cos[n*3.08914]}, {n, 0, 3249}]], PlotRange -> .0036]$

High-Res: 763x1280

PDF

Animate

Mathematica code:

 Graphics[
  Line[
   Table[{-.999^n*Sin[n*3.08914], .999^n*Cos[n*3.08914]}, {n, 0, 3249}]],
 PlotRange -> .0036]

High-res Notes: 14 11/23/11 — 12:01pm Filed under: #Mathematica #lines #PDF #CTD

High-Res: (1000x1000)

PDF

Mathematica code:

 
   Graphics[
     Table[
       Circle[{25*Cos[i*2Pi/25], 25*Sin[i*2Pi/25]},
        .6 + (100 - n) (1 + Sign[100 - n])/2],
     {n, 0, 50, 1}, {i, 0, 24, 1}],
   PlotRange -> 15, ImageSize -> 500]

High-res Notes: 551 11/20/11 — 6:06pm Filed under: #Mathematica #circles #PDF

High-Res: (1000x1000)

PDF

Mathematica code:

 
   Graphics[
     Table[
       Circle[{20*Cos[i*Pi/25], 20*Sin[i*Pi/25]},
        .7 + (50 - n) (1 + Sign[50 - n])/2],
     {n, 0, 50, 1}, {i, 0, 24, 1}],
   PlotRange -> 8, ImageSize -> 500]

High-res Notes: 219 11/15/11 — 3:03pm Filed under: #Mathematica #circles #PDF

$Hi-res (753x1280)Make it move!PDFr = 1 a = 2.35685 s = 320 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, 4*Pi, .00005}, {s, 1, 800, 1}]$

Hi-res (753x1280)

Make it move!

PDF

r = 1

a = 2.35685

s = 320

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, 4*Pi, .00005}, {s, 1, 800, 1}]

High-res Notes: 16 11/6/11 — 12:12pm Filed under: #Mathematica #lines #PDF #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

This image is made with 590 straight lines.

It is the full image of the detail that was shown here.

A PDF file of this image can be downloaded here, which gives the ability to zoom into the image without loss of quality.

High-res Notes: 39 10/18/11 — 3:04pm Filed under: #Mathematica #lines #PDF #CTD