Fractal construction with pentagons.

Download raw source code

> {-# LANGUAGE NoMonomorphismRestriction #-}
> import Diagrams.Prelude

A 0-pentaflake is just a regular pentagon:

> pentaflake' 0 = regPoly 5 1 # lw 0

An n-pentaflake is an (n − 1)-pentaflake surrounded by five more. The appends function is useful here for positioning the five pentaflakes around the central one.

> pentaflake' n = appends
>                   pCenter
>                   (zip vs (repeat (rotateBy (1/2) pOutside)))
>   where vs = iterateN 5 (rotateBy (1/5))
>            . (if odd n then negateV else id)
>            $ unitY
>         pCenter  = pentaflake' (n-1)
>         pOutside = pCenter # opacity 0.8
> 
> pentaflake n = pentaflake' n # fc blue # bg white

A 4-pentaflake looks nice. Of course there’s an exponential blowup in the number of primitives, so generating higher-order pentaflakes can take a long time!

> example = pad 1.1 $ pentaflake 4