AppleScript名:16bitカラー値から明度を取得 v1.1.scptd

—
– Created by: Takaaki Naganoya
– Created on: 2022年01月20日
—
– Copyright © 2022 Piyomaru Software, All Rights Reserved
—

set a1Col to {26148, 65535, 58650}
set a1Col to choose color default color a1Col
set w1Col to calcBrightnessFrom16bitColorList(a1Col) of colorBrightnessKit
–> 0.900838315487

set a2Col to {2966, 23133, 21203}
set a2Col to choose color default color a2Col
set w2Col to calcBrightnessFrom16bitColorList(a2Col) of colorBrightnessKit
–> 0.37399661541–0に近いのでこちらのほうが暗い

set cIndRes to calcColorPairsDarkerCol(a1Col, a2Col) of colorBrightnessKit
–> {2, 1}–暗い順にインデックス値を返す

–色情報から明度を計算するKit。0に近い値が暗い。CMYKやグレースケール値は対象外。RGBのみ
script colorBrightnessKit

use AppleScript
use framework "Foundation"
use framework "AppKit"
use scripting additions
property parent : AppleScript

property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSAttributedString : a reference to current application’s NSAttributedString
property NSUTF16StringEncoding : a reference to current application’s NSUTF16StringEncoding
property NSDeviceWhiteColorSpace : a reference to current application’s NSDeviceWhiteColorSpace


–2つの16ビットカラー値でそれぞれ明度を計算し、暗いものから順にインデックス値を返す
on calcColorPairsDarkerCol(aCol as list, bCol as list)
set b1 to calcBrightnessFrom16bitColorList(aCol) of me
set b2 to calcBrightnessFrom16bitColorList(bCol) of me
if b1 ≥ b2 then
return {2, 1} –bColのほうが暗い
else
return {1, 2} –aColのほうが暗い
end if
end calcColorPairsDarkerCol


–16ビットカラー値から明度を計算
on calcBrightnessFrom16bitColorList(colList as list)
copy colList to {rVal, gVal, bVal}
–NSColorを作成
set aCol to makeNSColorFromRGBAval(rVal, gVal, bVal, 65535, 65535) of me
— グレースケール化
set gCol to aCol’s colorUsingColorSpaceName:(NSDeviceWhiteColorSpace)
set wComp to gCol’s whiteComponent() –whiteComponentを取得することで擬似的に明度情報を取得
return wComp
end calcBrightnessFrom16bitColorList


–HTMLカラー値あから明度を計算
on calcBrightnessFromHTMLColorCodeStr(aStr as string)
set {rVal, gVal, bVal} to rgbHex2nunList(aStr) of me
–NSColorを作成
set aCol to makeNSColorFromRGBAval(rVal, gVal, bVal, 255, 255) of me
— グレースケール化
set gCol to aCol’s colorUsingColorSpaceName:(NSDeviceWhiteColorSpace)
set wComp to gCol’s whiteComponent() –whiteComponentを取得することで擬似的に明度情報を取得
return wComp
end calcBrightnessFromHTMLColorCodeStr


on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
set aRedCocoa to (redValue / aMaxVal) as real
set aGreenCocoa to (greenValue / aMaxVal) as real
set aBlueCocoa to (blueValue / aMaxVal) as real
set aAlphaCocoa to (alphaValue / aMaxVal) as real
set aColor to NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
return aColor
end makeNSColorFromRGBAval



on decodeCharacterReference(aStr)
set anNSString to NSString’s stringWithString:aStr
set theData to anNSString’s dataUsingEncoding:(NSUTF16StringEncoding)
set styledString to NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
set plainText to (styledString’s |string|()) as string
return plainText
end decodeCharacterReference



–HTMLコードのRGB 16進数コードを数値リストに変換
on rgbHex2nunList(aHexStr)
–エラーチェック
if aHexStr does not start with "#" then return false
if length of aHexStr is not equal to 7 then return false
set bHex to text 2 thru -1 of aHexStr

set {rStr, gStr, bStr} to {text 1 thru 2 of bHex, text 3 thru 4 of bHex, text 5 thru 6 of bHex}

set bList to {}
repeat with i in {rStr, gStr, bStr}
set j to contents of i
set the end of bList to aHexStrToNum(j) of me
end repeat

return bList
end rgbHex2nunList


–16進数文字列を10進数数値に変換する
on aHexStrToNum(hexStr)
set hStr to "0123456789ABCDEF"

set aNum to 0
set aLen to length of hexStr

repeat with i from aLen to 1 by -1

set aCon to contents of character i of hexStr
using terms from scripting additions
set aVal to (offset of aCon in hStr) – 1
end using terms from
set aNum to aNum + aVal * (16 ^ (aLen – i))

end repeat

return aNum as integer
end aHexStrToNum
end script

★Click Here to Open This Script