From 9bd59a251b768f87197f9f1a0618784b485353a7 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Sun, 3 Feb 2013 15:34:28 +0400
Subject: Better icon alignment

---
 src/Bitmap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Bitmap.hs')

diff --git a/src/Bitmap.hs b/src/Bitmap.hs
index a896626..dfc1d04 100644
--- a/src/Bitmap.hs
+++ b/src/Bitmap.hs
@@ -65,4 +65,4 @@ drawBitmap d p gc fc bc x y i =
         h = height i
     setForeground d gc fc'
     setBackground d gc bc'
-    copyPlane d (pixmap i) p gc 0 0 w h x (y - fromIntegral h) 1
+    copyPlane d (pixmap i) p gc 0 0 w h x (1 + y - fromIntegral h `div` 2)  1
-- 
cgit v1.2.3