Use slider n for number of iterations
Use slider r for rotation in 0.001 increments
Use slider d for dilation in 0.001 increments
Build command structure in 3 steps:
Enter Dilate[poly1, d^i], where i = 1, 2, 3 to find pattern
Enter Rotate[Dilate[poly1, d^i], i r π], where i = 1, 2, 3 to find pattern
Enter Sequence[Rotate[Dilate[poly1, d^i], i r π], i, 1, n, 1]
This Sequence command should work for all polygons.
