Block[{r = 100, cc, bc, rot, perim, plist}, cc = r + {0, 0} ; bc = {r + 1, r} ; plist = {{{75, ...  - bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.5]}, 2], {θ, 0, π, π/60}]]

[Graphics:HTMLFiles/index_62.gif]

Block[{r = 105, cc, bc, rot, perim, plist}, cc = r + {0, 0} ; bc = {r + 1, r} ; plist = {{{-45 ...  - bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.5]}, 2], {θ, 0, π, π/60}]]

[Graphics:HTMLFiles/index_124.gif]

Block[{r = 115, cc, bc, rot, perim, plist}, cc = r + {0, 0} ; bc = {r + 1, r} ; plist = (SeedR ... - bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.5]}, 3], {θ, 0, 2π, π/30}]]

[Graphics:HTMLFiles/index_186.gif]

Block[{r = 115, cc, rot, perim, plist}, cc = r + {0, 0} ; Do[RotorRouter[2 {r, r}, {{{0, 0} +  ... + os, 100/Sqrt[Pi]], Circle[{-1, 1} 231/2 + os + {0, 1}, 100/Sqrt[Pi]]} ; {}], {d, 0, 2r - 1, 3}]]

[Graphics:HTMLFiles/index_265.gif]

RotorRouter[{250, 250}, {# + 125, 2} &/@Select[Join @@ Table[{i, j}, {i, -125, 125}, {j, - ... matic, Epilog {Circle[{1, 1} 125, 80]}], ImageSizeDimensions[thepic] + {12, 12}] ;

[Graphics:HTMLFiles/index_267.gif]

⁃Graphics⁃

RotorRouter[{280, 280}, {# + 140, 3} &/@Select[Join @@ Table[{i, j}, {i, -140, 140}, {j, - ... matic, Epilog {Circle[{1, 1} 140, 80]}], ImageSizeDimensions[thepic] + {12, 12}] ;

[Graphics:HTMLFiles/index_270.gif]

Block[{r = 165}, RotorRouter[2 {r, r}, {# + r, 4} &/@Select[Join @@ Table[{i, j}, {i, -r,  ... utomatic, Epilog {Circle[{r, r}, 80]}], ImageSizeDimensions[thepic] + {14, 14}] ;]

[Graphics:HTMLFiles/index_272.gif]

Block[{r = 180}, RotorRouter[2 {r, r}, {# + r, 5} &/@Select[Join @@ Table[{i, j}, {i, -r,  ... utomatic, Epilog {Circle[{r, r}, 80]}], ImageSizeDimensions[thepic] + {14, 14}] ;]

[Graphics:HTMLFiles/index_274.gif]

Block[{r = 100, cc, bc, rot, perim, plist}, cc = r + {0, 0} ; bc = {r + 1, r} ; plist = Join @ ...  bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.3]}, 2], {θ, 0, π/2, π/90}]]

[Graphics:HTMLFiles/index_322.gif]

Block[{r = 100, cc, bc, rot, perim, plist}, cc = r + {0, 0} ; bc = {r + 1, r} ; plist = Join @ ...  bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.3]}, 2], {θ, 0, π/2, π/90}]]

[Graphics:HTMLFiles/index_369.gif]

Block[{r = 200, cc, bc, rot, perim, plist}, cc = r + {.5, .5} ; bc = {r + 1, r} ; plist = Tabl ... [(# - bc) . RotMat[θ] + bc&, perim, {3}]//Thicken[.3]}], {θ, 0, π, π/60}]]

[Graphics:HTMLFiles/index_371.gif]

Block[{xx = 260 + 40, yy = 220 + 80}, (rrtxtlist = DeleteCases[Join @@ MapIndexed[{#2, #1} &am ... ge {{-xx, xx}, {-yy, yy}}, AspectRatioAutomatic], ImageSize {xx, yy}]]] ;]

[Graphics:HTMLFiles/index_373.gif]

Block[{r = 150, rot, perim}, Do[rot = Round[(# - r + {1, 0}) . {{Cos[θ], Sin[θ]}, {- ... &/@perim}], ImageSizeDimensions[thepic] + {12, 12}], {θ, 0, 2π, π/30}]]

[Graphics:HTMLFiles/index_436.gif]


Created by Mathematica  (September 20, 2004)