左上の3×3ピクセルの平均化

Size = 3 　‘平均化するピクセルのサイズ

For m = 0 To Size -1

For n = 0 To Size -1

sumR = getR(Picture1.Point(m, n)) + sumR

sumG = getG(Picture1.Point(m, n)) + sumG

sumB = getB(Picture1.Point(m, n)) + sumB

Next

Next

R=SumR/Size/Size : G=SumG/Size/Size: B=SubB/Size/Size

getR，getG，getBはあらかじめ設定した色成分抽出関数

1

０

2

3

4

０

1

2

3

前のｽﾗｲﾄﾞ

次のｽﾗｲﾄﾞ

最初のｽﾗｲﾄﾞに戻る

ｸﾞﾗﾌｨｯｸｽの表示