Fractal hexagonal
Escribir, usando CodeWorld, un programa para dibujar el fractal hexagonal que se muestra en la siguiente animación
Las 4 primeras fases de la animación son
- Fase 0:
- Fase 1:
- Fase 2:
- Fase 3:
Nota: Este ejercicio ha sido propuesto por Agustín Martín Aguera.
Soluciones
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
import CodeWorld main :: IO() main = animationOf (hexagono . s) hexagono :: Int -> Picture hexagono 0 = colored red $ solidPolygon [(9,0),(4.5,c),(-4.5,c),(-9,0),(-4.5,-c),(4.5,-c)] where c = 9 * sin (pi / 3) hexagono n = pictures (hex : take 6 (iterate (rotated (pi / 3)) (translated 6 0 hex))) where hex = scaled (1/3) (1/3) $ hexagono (n-1) s :: Double -> Int s t = mod (floor t) 5 |