plotSites :: Image -> [Site] -> IO ()
plotSites im sites = do
    mapM_ (\(p, c) -> makeDot p) sites
    return ()
  where
    makeDot p = do
      antiAliased (drawFilledEllipse p (outlinediam, outlinediam)) outlinecolor im
      antiAliased (drawFilledEllipse p (sitediam, sitediam)) sitecolor im


-- Point-generating functions
plotSites :: Image -> [Site] -> IO ()
plotSites im sites = do
    mapM_ (\(p, c) -> makeDot p) sites
    return ()
  where
    makeDot p = do
      antiAliased (drawFilledEllipse p (outlinediam, outlinediam)) outlinecolor im
      antiAliased (drawFilledEllipse p (sitediam, sitediam)) sitecolor im


-- Point-generating functions
plotSites im sites = do
    mapM_ (\(p, c) -> makeDot p) sites
    return ()
  where
    makeDot p = do
      antiAliased (drawFilledEllipse p (outlinediam, outlinediam)) outlinecolor im
      antiAliased (drawFilledEllipse p (sitediam, sitediam)) sitecolor im


-- Point-generating functions