This is a Haskell implemtation of the RosettaCode task, "Polyspiral"
http://rosettacode.org/wiki/Polyspiral#Haskell
It uses the reflex library collection for display and animation. https://github.com/reflex-frp/reflex
Click here : https://dc25.github.io/rosettaCode__Polyspiral_haskell/ for a live demo.