Add getpixel (#37)

haskell · Mar 13, 2017 · b80b6bd · b80b6bd
1 parent 4e76f05
commit b80b6bd
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/Graphics/Win32/GDI/HDC.hs b/Graphics/Win32/GDI/HDC.hs
@@ -43,6 +43,17 @@ efficient (fromIntegral is optimized away,) and conveys the idea we
 simply want the same representational value.
 -}
 
+----------------------
+-- Implement GetPixel
+----------------------
+
+getPixel :: HDC -> Int -> Int -> IO COLORREF
+getPixel dc x y = c_GetPixel dc x y
+foreign import WINDOWS_CCONV unsafe "windows.h GetPixel"
+  c_GetPixel :: HDC -> Int -> Int -> IO COLORREF
+
+----------------------
+
 setArcDirection :: HDC -> ArcDirection -> IO ArcDirection
 setArcDirection dc dir =
   failIfZero "SetArcDirection" $ c_SetArcDirection dc dir