--
-- |
-- Module      : Bitmap
-- Author      : Sean Seefried (http://www.cse.unsw.edu.au/~sseefried)
-- Copyright   : (c) 2005
-- License     : BSD3
-- Created     : 16 Jun 2005
--
--
-- Thanks go to shelarcy for helping add bitmap support.
--
module Bitmap
where

import Pan

effect :: UI DisplayFun
effect = do
  b <- imageFromFile "pls-small.png"   -- Relative path. Should be in same
                                       -- directory as this file
  v <- makeSlider "Swirl factor" (100,1000) 100
  imageToDisplayFun (swirl v b)