Skip to content

Instantly share code, notes, and snippets.

@jasondew

jasondew/gist:470216

Created July 9, 2010 22:56
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save jasondew/470216 to your computer and use it in GitHub Desktop.
Save jasondew/470216 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
getPixel :: Point -> Image -> IO Color
getPixel (x,y) i =
withImagePtr i $
\p -> gdImageGetTrueColorPixel p (int x) (int y)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment