I wrote an implementation of this in common lisp when they published it:

http://dev.crazyrobot.net/2011/07/12/pixelart-to-vector/