[Therion] Metapost

Hi all, I look for code of "snail shell" written in metapost, to use it as point u (for organodetritic limestone layers), but I am not able to find anything, as well I haven´t any skills to write it by myself. Does anybody posses this kind of code? Thank you Pavel