htdp-image is a simple graphics library written on top of Gloss that allows users to create complex images by combining smaller images.

For example, four iterations of the sierpinski triangle can be drawn as:

   import Graphics.Htdp
   main = drawImage $ sier . sier . sier . sier $ triangle 20 solid red
    where
    sier :: Image -> Image
    sier t = above t (beside t t)
   

Once the image is drawn, you can use Gloss key bindings to navigate around.