property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

–TTS音声情報を取得する
set curLang to "ja_JP"

set v1List to getTTSVoiceNameWithLanguageAndGender(curLang, "Male") of me
if length of v1List = 0 then return
set v1 to contents of item 1 of v1List –Male Voice

set v2List to getTTSVoiceNameWithLanguageAndGender(curLang, "Female") of me
if length of v2List = 0 then return
set v2 to contents of item 1 of v2List –Female Voice

–TextEditの書類から情報を取得
set aResRec to (getTextStrAndColor() of me)
set colList to colorDat of aResRec
set strList to strList of aResRec

set aLen to length of strList

repeat with i from 1 to aLen
　　set curColor to contents of item i of colList
　　set curStr to contents of item i of strList
　　set aColor to retColorDomainNameFromList(curColor, 65535) of me
　　
　　if aColor = "blue" then
　　　　–Read by Male Voice
　　　　say curStr using v1
　　else if aColor = "red" then
　　　　–Read by Female Voice　　
　　　　say curStr using v2
　　end if
　　
end repeat

on getTextStrAndColor()
　　tell application "TextEdit"
　　　　if (count every document) = 0 then error "No Document"
　　　　
　　　　tell front document
　　　　　　set colList to (color of every attribute run)
　　　　　　set attList to every attribute run
　　　　end tell
　　　　return {colorDat:colList, strList:attList}
　　end tell
　　
end getTextStrAndColor

on retCocoaColorList(aColorList, aMax)
　　set cocoaColorList to {}
　　repeat with i in aColorList
　　　　set the end of cocoaColorList to i / aMax
　　end repeat
　　set the end of cocoaColorList to 1.0 –Alpha
　　return cocoaColorList
end retCocoaColorList

–数値の1D List with Recordをソート
on sort1DRecList(aList as list, aKey as string, ascendingF as boolean)
　　set aArray to NSArray’s arrayWithArray:aList
　　set desc1 to NSSortDescriptor’s sortDescriptorWithKey:aKey ascending:ascendingF selector:"compare:"
　　set bList to (aArray’s sortedArrayUsingDescriptors:{desc1}) as list
　　return bList
end sort1DRecList

on getTTSVoiceNameWithLanguageAndGender(voiceLang, aGen)
　　if aGen = "Male" then
　　　　set aGender to "VoiceGenderMale"
　　else if aGen = "Female" then
　　　　set aGender to "VoiceGenderFemale"
　　end if
　　
　　set outArray to current application’s NSMutableArray’s new()
　　
　　–Make Installed Voice List
　　set aList to current application’s NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aDIc to (current application’s NSSpeechSynthesizer’s attributesForVoice:j)
　　　　(outArray’s addObject:aDIc)
　　end repeat
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceLocaleIdentifier == %@ && VoiceGender== %@", voiceLang, aGender)
　　set filteredArray to outArray’s filteredArrayUsingPredicate:aPredicate
　　set aResList to (filteredArray’s valueForKey:"VoiceName") as list
　　
　　return aResList
end getTTSVoiceNameWithLanguageAndGender

on retColorDomainNameFromList(aColList as list, aColMax as integer)
　　set {rNum, gNum, bNum, aNum} to retCocoaColorList(aColList, aColMax) of me
　　set aCol to NSColor’s colorWithCalibratedRed:rNum green:gNum blue:bNum alpha:aNum
　　return retColorDomainNameFronNSColor(aCol) of me
end retColorDomainNameFromList