function init()
	local s = FindShapes("delete")
	for i=1,#s do
		Delete(s[i])
	end
end