I've translated some 3d simplex noise implementation to pascal : http://laggyluk.com/?p=86