added intelligibility counting to directivity Forn