script textcolorTestAppDelegate
　　property parent : class "NSObject"
　　
　　property nsc : class "NSColor"
　　property tf : missing value
　　property aTextField : missing value
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　
　　　　–ひとつめのNSTextField（入力フィールド）
　　　　set aString to current application’s NSMutableAttributedString’s alloc()’s initWithString_("これはテスト用の文字列ですよー")
　　　　
　　　　set colorArray to current application’s NSArray’s arrayWithObjects_(nsc’s redColor(), nsc’s orangeColor(), nsc’s yellowColor(), nsc’s greenColor(), nsc’s blueColor, nsc’s purpleColor(), missing value)
　　　　
　　　　repeat with i from 0 to (aString’s |length|()) - 1
　　　　　　aString’s addAttribute_value_range_(current application’s NSForegroundColorAttributeName, colorArray’s objectAtIndex_(i mod 6), {i, 1})
　　　　end repeat
　　　　
　　　　tf’s setAttributedStringValue_(aString)
　　　　
　　　　
　　　　–ふたつめのNSTextField（Label）
　　　　set bString to current application’s NSMutableAttributedString’s alloc()’s initWithString_("●私のユーザー名")
　　　　
　　　　set colorArray to current application’s NSArray’s arrayWithObjects_(nsc’s redColor(), nsc’s blackColor())
　　　　
　　　　set bLen to bString’s |length|()
　　　　
　　　　bString’s addAttribute_value_range_(current application’s NSForegroundColorAttributeName, colorArray’s objectAtIndex_(0), {0, 1})
　　　　bString’s addAttribute_value_range_(current application’s NSForegroundColorAttributeName, colorArray’s objectAtIndex_(1), {1, (bLen - 1)})
　　　　
　　　　aTextField’s setAttributedStringValue_(bString)
　　　　
　　end applicationWillFinishLaunching_
　　
　　
　　
　　on applicationShouldTerminate_(sender)
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

– generic CMYK color Spaceを用いて、RGB→CMYK変換を行い、ColorWellにCMYKベースで色をセットしたあとRGB値でその色を取り出す
–　

script rgb2cmykAppDelegate
　　
　　property parent : class “NSObject”
　　
　　property rgbWell : missing value
　　property rgbR : missing value
　　property rgbG : missing value
　　property rgbB : missing value
　　
　　property cmykWell : missing value
　　property cmykC : missing value
　　property cmykM : missing value
　　property cmykY : missing value
　　property cmykK : missing value
　　
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　– Insert code here to initialize your application before any files are opened
　　end applicationWillFinishLaunching_
　　
　　on applicationShouldTerminate_(sender)
　　　　– Insert code here to do any housekeeping before your application quits
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　
　　
　　on clicked_(sender)
　　　　
　　　　–RGB Color Wellのカラー値を読み取って、TextFieldに文字を入れる
　　　　set {rNum, gNum, bNum, aNum} to retColData(rgbWell)
　　　　
　　　　set rNumStr to (rNum as integer) as string
　　　　set gNumStr to (gNum as integer) as string
　　　　set bNumStr to (bNum as integer) as string
　　　　
　　　　rgbR’s setStringValue_(rNumStr)
　　　　rgbG’s setStringValue_(gNumStr)
　　　　rgbB’s setStringValue_(bNumStr)
　　　　
　　　　
　　　　–RGB Colorwellからカラーを読み取る
　　　　set tmpColor to rgbWell’s |color|
　　　　
　　　　–Generic ProfileでRGB to CMYK変換してColorWellに設定
　　　　set cmykColSpace to current application’s NSColorSpace’s genericCMYKColorSpace
　　　　set color1 to tmpColor’s colorUsingColorSpace_(cmykColSpace)
　　　　
　　　　
　　　　–cmykWell’s setColor_(color1)
　　　　tell cmykWell
　　　　　　setColor_(color1)
　　　　end tell
　　　　
　　　　
　　　　–とりあえずRGBAでデータを取り出してみる
　　　　set {temp21, temp22, temp23, temp24} to retColData(cmykWell)
　　　　
　　　　set temp21 to temp21 as string
　　　　set temp22 to temp22 as string
　　　　set temp23 to temp23 as string
　　　　set temp24 to temp24 as string
　　　　
　　　　–TextFieldにCMYKデータを入れる
　　　　cmykC’s setStringValue_(temp21)
　　　　cmykM’s setStringValue_(temp22)
　　　　cmykY’s setStringValue_(temp23)
　　　　cmykK’s setStringValue_(temp24)
　　　　
　　end clicked_
　　
　　
　　
　　–指定オブジェクトのカラー値を取得する
　　on retColData(aObject)
　　　　
　　　　–色空間のコンバートを行ってカラー値を取得する（強制的にRGB）
　　　　set tmpColor to aObject’s |color|
　　　　set color1 to tmpColor’s colorUsingColorSpaceName_(current application’s NSCalibratedRGBColorSpace)
　　　　
　　　　set temp11 to color1’s redComponent()
　　　　set temp12 to color1’s greenComponent()
　　　　set temp13 to color1’s blueComponent()
　　　　set temp14 to color1’s alphaComponent()
　　　　
　　　　–RGBAの並びでデータを返す
　　　　set TheColor to {(temp11 * 255) as integer, (temp12 * 255) as integer, (temp13 * 255) as integer, (temp14 * 255) as integer}
　　　　
　　　　return TheColor
　　end retColData
　　
　　
　　
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に