--- /dev/null
+! Copyright (C) 2011 John Benediktsson.
+! See http://factorcode.org/license.txt for BSD license.
+
+USING: images.http kernel sequences urls urls.encoding ;
+
+IN: robohash
+
+<PRIVATE
+
+: robohash-url ( str -- url )
+ url-encode "http://robohash.org/" prepend >url ;
+
+: (robohash) ( str type -- image )
+ [ robohash-url ] [ "set" set-query-param ] bi*
+ load-http-image ;
+
+PRIVATE>
+
+: robohash1 ( str -- image ) "set1" (robohash) ;
+
+: robohash2 ( str -- image ) "set2" (robohash) ;
+
+: robohash3 ( str -- image ) "set3" (robohash) ;