use AppleScript version "2.4" — Yosemite (10.10) or later
use scripting additions

set radiusNum to 12

— キャンバスのサイズ
set canvasWidth to 80
set canvasHeight to 40

— 円の中心座標
set centerX to canvasWidth / 2
set centerY to canvasHeight / 2

— 全角文字のアスペクト比補正係数
set aspectRatio to 0.7

— 描画する線の太さ
set lineWidth to 0.5
set ssRes to aaDrawCircleLine(radiusNum, canvasWidth, canvasHeight, centerX, centerY, aspectRatio, lineWidth) of me

on aaDrawCircleLine(radiusNum, canvasWidth, canvasHeight, centerX, centerY, aspectRatio, lineWidth)
　　script spd
　　　　property outputText : ""
　　end script
　　
　　— 描画結果を格納する変数
　　set (outputText of spd) to ""
　　
　　— 描画処理 (1行ずつ文字を生成)
　　repeat with y from 1 to canvasHeight
　　　　set currentLine to ""
　　　　repeat with x from 1 to canvasWidth
　　　　　　— 円の方程式を使い、中心からの距離を計算
　　　　　　set distSquared to ((x – centerX) * aspectRatio) ^ 2 + (y – centerY) ^ 2
　　　　　　
　　　　　　— 現在の座標が円周上にあるか判定
　　　　　　if (distSquared > (radiusNum – lineWidth) ^ 2) and (distSquared < (radiusNum + lineWidth) ^ 2) then
　　　　　　　　set currentLine to currentLine & "■"
　　　　　　else
　　　　　　　　set currentLine to currentLine & "　"
　　　　　　end if
　　　　end repeat
　　　　— 1行分の文字列と改行を出力に追加
　　　　set (outputText of spd) to (outputText of spd) & currentLine & "
"
　　end repeat
　　return contents of (outputText of spd)
end aaDrawCircleLine