use AppleScript
use framework "Foundation"
use framework "CoreImage"
use framework "AppKit"
use scripting additions

set testString to "http://piyocast.com/as/"
set asciiQR to makeAsciiQRCode(testString)

display dialog asciiQR buttons {"OK"} default button "OK"

— ASCII ART QR Encoder
on makeAsciiQRCode(theText)
　　— 1. 文字列 → NSData
　　set textData to current application’s NSString’s stringWithString:theText
　　set dataObj to textData’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　
　　— 2. QR生成
　　set qrFilter to current application’s CIFilter’s filterWithName:"CIQRCodeGenerator"
　　qrFilter’s setDefaults()
　　qrFilter’s setValue:dataObj forKey:"inputMessage"
　　qrFilter’s setValue:"M" forKey:"inputCorrectionLevel"
　　
　　set ciImage to qrFilter’s outputImage()
　　
　　— 3. CIImage → NSBitmapImageRep
　　set bitmapRep to current application’s NSBitmapImageRep’s alloc()’s initWithCIImage:ciImage
　　
　　— サイズ取得
　　set pixelsWide to bitmapRep’s pixelsWide()
　　set pixelsHigh to bitmapRep’s pixelsHigh()
　　
　　set resultText to ""
　　
　　— 4. ピクセル走査
　　repeat with y from (pixelsHigh – 1) to 0 by -1
　　　　set lineText to ""
　　　　repeat with x from 0 to (pixelsWide – 1)
　　　　　　set pixelColor to (bitmapRep’s colorAtX:x y:y)
　　　　　　set grayColor to (pixelColor’s colorUsingColorSpaceName:(current application’s NSCalibratedWhiteColorSpace))
　　　　　　set brightness to grayColor’s whiteComponent()
　　　　　　
　　　　　　if brightness < 0.5 then
　　　　　　　　set lineText to lineText & "■"
　　　　　　else
　　　　　　　　set lineText to lineText & "　" — 全角スペース
　　　　　　end if
　　　　end repeat
　　　　set resultText to resultText & lineText & linefeed
　　end repeat
　　
　　return resultText
end makeAsciiQRCode