–画像のうえに指定の文字を描画して画像を返す
on drawStringsOnImage(anImage, aText, aFontName, aPoint, drawColor)
　　set retinaF to (current application’s NSScreen’s mainScreen()’s backingScaleFactor()) as real
　　–>　　2.0 (Retina) / 1.0 (Non Retina)
　　
　　set aString to current application’s NSString’s stringWithString:aText
　　set aDict to current application’s NSDictionary’s dictionaryWithObjects:{current application’s NSFont’s fontWithName:aFontName |size|:aPoint, drawColor} forKeys:{current application’s NSFontAttributeName, current application’s NSForegroundColorAttributeName}
　　set imageSize to anImage’s |size|()
　　set textSize to aString’s sizeWithAttributes:aDict
　　
　　set xPos to ((width of imageSize) – (width of textSize)) / 2 / retinaF
　　set yPos to ((height of imageSize) – (height of textSize)) / 2 / retinaF
　　
　　–文字描画開始
　　anImage’s lockFocus()
　　aString’s drawAtPoint:(current application’s NSMakePoint(xPos, yPos)) withAttributes:aDict
　　anImage’s unlockFocus()
end drawStringsOnImage

–指定サイズの画像を作成し、背景を指定色で塗る
on makeImageWithFilledColor(aWidth, aHeight, outPath, fillColor)
　　set anImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　
　　–描画開始
　　anImage’s lockFocus()
　　
　　set theRect to {{x:0, y:0}, {width:aWidth, height:aHeight}}
　　set theNSBezierPath to current application’s NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　
　　anImage’s unlockFocus()
　　–描画ここまで
　　
　　return anImage –画像を返す　　
end makeImageWithFilledColor