2 replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/ edited Apr 13 '17 at 12:55 I nest the right turns with # + Normalize@Cross[#] &. Since 2012rcampion2012rcampion has rather solved the coloring, here's a version using a close match from one of Mathematica's gradients. cf = Lighter[ColorData["AvocadoColors", 1. - #], (1. - #)^8] &; With[{npts = 87}, Graphics[ GraphicsComplex[ NestList[# + Normalize@Cross[#] &, {1., 0.}, npts - 1] ~Append~ {0., 0.}, {EdgeForm[Thin], Table[{cf[i/npts], Polygon[{i, i + 1, npts + 1}]}, {i, npts - 1, 1, -1}], Table[{White, Disk[i, 1/3], Black, Text[HoldForm[Sqrt[#]] &@i, i]}, {i, npts}]} ], BaseStyle -> {FontSize -> Scaled[0.1/Sqrt[npts]]} ] ]  I nest the right turns with # + Normalize@Cross[#] &. Since 2012rcampion has rather solved the coloring, here's a version using a close match from one of Mathematica's gradients. cf = Lighter[ColorData["AvocadoColors", 1. - #], (1. - #)^8] &; With[{npts = 87}, Graphics[ GraphicsComplex[ NestList[# + Normalize@Cross[#] &, {1., 0.}, npts - 1] ~Append~ {0., 0.}, {EdgeForm[Thin], Table[{cf[i/npts], Polygon[{i, i + 1, npts + 1}]}, {i, npts - 1, 1, -1}], Table[{White, Disk[i, 1/3], Black, Text[HoldForm[Sqrt[#]] &@i, i]}, {i, npts}]} ], BaseStyle -> {FontSize -> Scaled[0.1/Sqrt[npts]]} ] ]  I nest the right turns with # + Normalize@Cross[#] &. Since 2012rcampion has rather solved the coloring, here's a version using a close match from one of Mathematica's gradients. cf = Lighter[ColorData["AvocadoColors", 1. - #], (1. - #)^8] &; With[{npts = 87}, Graphics[ GraphicsComplex[ NestList[# + Normalize@Cross[#] &, {1., 0.}, npts - 1] ~Append~ {0., 0.}, {EdgeForm[Thin], Table[{cf[i/npts], Polygon[{i, i + 1, npts + 1}]}, {i, npts - 1, 1, -1}], Table[{White, Disk[i, 1/3], Black, Text[HoldForm[Sqrt[#]] &@i, i]}, {i, npts}]} ], BaseStyle -> {FontSize -> Scaled[0.1/Sqrt[npts]]} ] ]  1 answered Apr 25 '15 at 21:25 Michael E2 159k1313 gold badges217217 silver badges516516 bronze badges I nest the right turns with # + Normalize@Cross[#] &. Since 2012rcampion has rather solved the coloring, here's a version using a close match from one of Mathematica's gradients. cf = Lighter[ColorData["AvocadoColors", 1. - #], (1. - #)^8] &; With[{npts = 87}, Graphics[ GraphicsComplex[ NestList[# + Normalize@Cross[#] &, {1., 0.}, npts - 1] ~Append~ {0., 0.}, {EdgeForm[Thin], Table[{cf[i/npts], Polygon[{i, i + 1, npts + 1}]}, {i, npts - 1, 1, -1}], Table[{White, Disk[i, 1/3], Black, Text[HoldForm[Sqrt[#]] &@i, i]}, {i, npts}]} ], BaseStyle -> {FontSize -> Scaled[0.1/Sqrt[npts]]} ] ]