module ReadPic(readPic,readPics,bmScale) where
import Control.Applicative
import AllFudgets
--import Pics
import Metrics

readPics m (file1,file2) = (,) <$> readPic m file1 <*> readPic m file2

readPic m name =
    do bmr <- Mk (bitmapFromData (pics m name))
       case bmr of
         BitmapReturn (Bitmap size _ pm) -> return (PixmapImage size pm)
         BitmapBad -> error ("Can't read bitmap "++show name)