モザイクの計算ルーチン

Size = 10 'モザイクを行うピクセルサイズ

Xgrid = Picture1.ScaleWidth \ Size　　　 ‘\は整数除算 　モザイク格子の数を求める

Ygrid = Picture1.ScaleHeight \ Size

For X = 0 To Xgrid - 1　　　　　　　　 '半端になるピクセルは除外

For Y = 0 To Ygrid - 1

For m = X * Size To X * Size + Size

　　　　For n = Y * Size To Y * Size + Size

　　　　　　[RGBそれぞれの合計値の算出]

　　　Next

　　　Next

　　 [ RGBの平均値の算出]

　　　　　　For m = X * Size To X * Size + Size

　　　　 For n = Y * Size To Y * Size + Size [モザイクの対象となったピクセル(m,n)の平均色を与える]

　　　　 Next

　　　Next

　Next

Next

前のｽﾗｲﾄﾞ

次のｽﾗｲﾄﾞ

最初のｽﾗｲﾄﾞに戻る

ｸﾞﾗﾌｨｯｸｽの表示