Generates a Koch fractal curve as a Line primitive.
KochCurve[n]
KochCurve[n, {θ 1, θ 2, …}]
KochCurve[n, {{r1, θ 1}, {r2, θ 2}, …}]
Graphics[KochCurve[2]]
→ -Graphics-Table[ArcLength[KochCurve[n]], {n, 5}]//Rationalize
→ {4/3, 16/9, 64/27, 3.1604938271604963, 4.213991769547333}Table[Graphics[GeometricTransformation[KochCurve[i], {RotationTransform[Pi, {1 / 2, 0}], RotationTransform[-Pi / 3, {1, 0}], RotationTransform[Pi / 3, {0, 0}]}]], {i, 4}]
→ {-Graphics-, -Graphics-, -Graphics-, -Graphics-}