{-# LANGUAGE DeriveFunctor #-}
module Bitmap where
import Geometry(Point(..),Size)

data Bitmap bits = Bitmap Size (Maybe Point) bits
  deriving (Eq, Ord, Show, Read, Functor)

-- | Create a bitmap without a hotspot
bm w h = Bitmap (Point w h) Nothing