Tag Info

New answers tagged

5

With a hue disk as you suggested (but slightly tweaked to get the colours in the right spot): hueDisk = With[{sectors = 360}, angle = 2 Pi/sectors; Table[{Hue[1 - i/sectors], EdgeForm[{Thick, Hue[1 - i/sectors]}], Disk[{0, 0}, 0.6, {\[Pi]/2 + i angle, \[Pi]/2 + (i + 1) angle}]}, {i, 0, sectors - 1}]]; Then we can use the FilledCurve technique to ...


5

One way is to use your code for the snowflake, and turn it into an image. Then use the code for the colored circle and turn it into an image. Then multiply: f[{a : {x1_, y1_}, b : {x2_, y2_}}] := Partition[{a, (2 a + b)/3, {3 (x1 + x2) + \[Sqrt]3 (y1 - y2), \[Sqrt]3 (x2 - x1) + 3 (y1 + y2)}/6, (a + 2 b)/3, b}, 2, 1]; pts = Join @@ Nest[Join @@ f ...



Top 50 recent answers are included