Hi all,
After stumbling across this I started poking around with Image::Magick - so it should be portable (afaik - it's untested on anything but freebsd)
it's based loosely on this

use Image::Magick;$_="0b2fb33600bdadaf363db6a4bcb6a426003dbda676b6a4";
+@a
=/../g;$y=20;$i=new Image::Magick;$i->Set(size=>"570x180");$i->ReadIma
+ge
('xc:black');for(@a){$z=pack v,hex$_;$x+=9;$c=4;for(15053505,0,1010103
+0,
15353535,40104030,10401060,15653565,40404060,35101530,15403560){@b=/..
+/g
;$i->Draw(stroke=>'green',primitive=>'line',points=>sprintf"%d,%d %d,%
+d"
,$b[0]+$x,$b[1]+$y,$b[2]+$x,$b[3]+$y)if$c>11?$d:vec($z,11-$c,1)&!(!($c
+-7
&&$c-10)&($d=vec$z,6,1));$c++}$x+=35;if($x>500){$x=0;$y+=70}}$i->Displ
+ay
[download]

Enjoy.
Alex
ps. I'll look at getting it a bit shorter - i can definitely compress the array of points (amongst other things)...
pps. obviously it requires you have Image::Magick installed...

Update: optimised down by 1 line...