Distribution of potassium feldspar polymorphs in intrusive sequences