Newer posts are loading.
You are at the newest post.
Click here to check if anything new just came in.

December 25 2012

falk
5059 7238

intothecontinuum:

Each snowflake is algorithmically generated using some randomness to create infinitely many snowflakes where no two are exactly alike.

Mathematica code:

rr[n_] := (SeedRandom[n]; RandomReal[])

H = Table[{Cos[n*Pi/3], Sin[n*Pi/3]}, {n, 0, 5, 1}];

SnowFlake[Q_, x_, y_, R_, S_, k_, h_, o_, s_, N_, PR_, IS_] :=
Graphics[{
Rotate[
Translate[
Scale[
Table[
Table[
Rotate[
Translate[
Scale[
Table[
{AbsoluteThickness[k*h^(n - 1)], Opacity[o], White,
Line[
{{0, 0}, H[[i]]}]},
{i, 1, 6, 1}],
s^(n - 1)],
{If[n == 1, 0, rr[Q*n]], 0}],
If[n == 1, 0, (j + rr[Q*n])*Pi/3], {0, 0}],
{j, 0, 5, 1}],
{n, 1, N, 1}],
S],
{x, y}],
R, {x, y}]},
PlotRange -> PR, ImageSize -> IS, Background -> Black]

Manipulate[
SnowFlake[Q, 0, 0, rr[2 Q] Pi/3, 1, k, h, o, s, N, 2, 500],
{Q, 1, 1000, 1}, {{k, 1}, 0, 2}, {{h, .9}, 1, 0},
{{o, .75}, 1, 0}, {{s, .75}, 1, 0}, {{N, 10}, 1, 20, 1}]

Manipulate[
GraphicsGrid[
Table[
SnowFlake[Q*W, 0, 0, (-1)^(Round[rr[4 Q*W]]) (t + rr[2 Q*W]) Pi/3,
1, 1, .85, .8, .5 + .2 rr[3 Q*W], 15, 2, 100],
{Q, q, q+6, 1}, {W, w, w+4, 1}],
 Background -> Black, ImageSize -> {500, 700}, AspectRatio->7/5],
{q, 1, 100, 1}, {w, 1, 100, 1}, {t, 0, 1 - 1/25, 1/25}]
Reposted fromtohuwabohu tohuwabohu viae-gruppe e-gruppe
Sponsored post
soup-sponsored
5371 6093 500
rockyourmind, foods, 2010-2020.

So Long, and Thanks for All the Fish.
Reposted fromRockYourMind RockYourMind
falk
0269 19ff
The future of the Milky Way and the Andromeda Galaxy as time lapse gif.
Don't worry - this is not "our" future.
Reposted fromEusters Eusters viadosendieter dosendieter
8921 89bf
Reposted fromkniepuder kniepuder viaCarridwen Carridwen
falk
3199 f645
Reposted fromCarridwen Carridwen viarxr4 rxr4
7245 120d

Jewel Caterpillar

Reposted fromantiprodukt antiprodukt viafasel fasel
falk
3116 9634 500
Reposted fromapfelstrudl apfelstrudl viafasel fasel
falk
falk
6766 6dd1
Reposted fromhollowhd hollowhd viaCarridwen Carridwen
7239 997b 500
Reposted fromantiprodukt antiprodukt viaCarridwen Carridwen
falk
Reposted fromfalconwing falconwing viaCarridwen Carridwen

December 24 2012

falk

December 22 2012

falk
0168 34f6
Reposted fromSchapur Schapur viabitstacker bitstacker

December 18 2012

falk
falk
falk
7954 d162 500
Reposted fromilmarinenkowal ilmarinenkowal vianacia nacia
falk
3354 4b54 500
Reposted fromilmarinenkowal ilmarinenkowal vianacia nacia
falk
3360 b738 500
Reposted fromilmarinenkowal ilmarinenkowal vianacia nacia

December 07 2012

falk
Older posts are this way If this message doesn't go away, click anywhere on the page to continue loading posts.
Could not load more posts
Maybe Soup is currently being updated? I'll try again automatically in a few seconds...
Just a second, loading more posts...
You've reached the end.
(PRO)
No Soup for you

Don't be the product, buy the product!

close
YES, I want to SOUP ●UP for ...