RosettaCodeData/Task/Koch-curve/Mathematica/koch-curve.math
2023-07-01 13:44:08 -04:00

3 lines
232 B
Text

Graphics[{GeometricTransformation[KochCurve[5], RotationTransform[Pi, {0.5, 0}]],
GeometricTransformation[KochCurve[5], RotationTransform[-Pi/3, {1, 0}]],
GeometricTransformation[KochCurve[5], RotationTransform[Pi/3, {0, 0}]]}]