Dear Vitaliy, this is very nice - and surprisingly easy - thanks for sharing!
The little remark I want to make here: Due to the way this point set is constructed, the points are "in order", i.e. instead of Point[pts] one can use Line[pts]. Then it might look even more "realistic"
Best regards -- Henrik
