2010 年マルチメディア論 画像処理演習（２） （ pic1.txt ～ pic8.txt ）

１．プログラム環境の準備 （１） 検索エンジンで「 Tiny Basic 」をキーワードにして、「 Tiny Basic for Windows 」のトップページを開く。 （２）「 Tiny Basic for Windows Ver 」をダウンロードする。 → 左の「ダウンロード」をクリックし、「最新版 Ver 」を 選択する。 → 保存したファイル（セットアップファイル）をクリックする。 （３） TBasic のフォルダを開いて、 Tbasic.exe を実行（クリック） する。 （４）プログラム－新規作成 で、以下のプログラムを入力して、実 行してみる。 （５） Tiny Basic for Windows のＷＥＢページがあるので参考にしてくだ さい。

２．画像とプログラム 画像を z: のドライブにダウンロードする。 「プログラム」－「新規作成」の画面に 以下のプログラムをコピーする。 「即実行」をクリックする。

３．座標系を知る (0,0) (300,0)(600,0) (600,400)(300,400) (0,400)

４． 1 ＬＩＮＥと色番号 直線を描く方法： line ( 始点 )-( 終点 ), 色番号 【例】 line (150,0)-(150,400),14 グラフィックで使える色は 16 色で，色番 号 0 から 15 まで指定できます。 色は次のよ うに割り当てられています。

４． 2 ＬＩＮＥで長方形を 描く 長方形を描く方法： line ( 始点 )-( 終点 ), 色番 号,bf 【例】 line (300,0)-(600,400),14,bf ← 塗りつぶ す 【例】 line (300,0)-(600,400),14,b ← 塗りつぶ さない 長方形の色は 16 色で，色番号 0 から 15 まで指 定できます。 色は次のように割り当てられ ています。

【演習１】 LINE の演習 (0,0) (300,0)(600,0) (600,400)(300,400) (0,400) ここを黒 く塗る 簡単な漢字を LINE で書く

５．画素（ピクセル） (x,y) の色を読み取る方法 iro$ =GetRGBPixel(x,y) ※ GetRGBPixel の y 座標（次頁参照）に注意すること。 (x+300,400-y) に色を書き込む方法 forecolor=iro$ pset(x+300,400-y)

６． GetRGBPixel(x,y) のｙ座標 (0,0) (300,0)(600,0) (600,400)(300,400) (0,400) y の値 x の値 pset(x+300,400-y)

【演習２】 画像を斜め傾ける (0,0) (300,0)(600,0) (600,400)(300,400) (0,400)

７． 1 ＲＧＢを１６進数で表 示 ＲＧＢを１６進数で表示 zr$="&h"+mid$(iro$,2,2) zg$="&h"+mid$(iro$,4,2) zb$="&h"+mid$(iro$,6,2) iro="#FF005A" のとき、 mid$(iro$,2,2) は、 FF mid$(iro$,4,2) は、 00 mid$(iro$,6,2) は、 5A

７． 2 ＲＧＢを１０進数で表 示 iro="#FF005A" のとき、 mid$() によって、 zr$="&hFF" になる。 zg$="&h00" になる。 zb$="&h5A" になる。 ＲＧＢを１０進数で表示 nr=val(zr$) → nr=16x15+15=255 ng=val(zg$) → ng=16x 0+ 0= 0 nb=val(zb$) → nb=16x 5+10= 90

８． 1 画像（カラー）を赤色の みに iro="#xx????" のとき、 mid$() によって、 zr$="#xx0000" にする。 zr$="&h"+mid$(iro$,2,2) または、 zr$=mid$(iro$,1,3) forecolor=zr$+"0000" pset(x+300,0)

８． 2 画像（カラー）をモノク ロに nr と ng と nb の平均を求め、整数化する。 nx=int((nr+ng+nb)/3) nx を１６進数にする。 zx$=right$("0"+hex$(nx),2) ＲＧＢをすべて同じ zx$ にして、その色を pset の座標に置く。 forecolor="#"+zx$+zx$+zx$ pset(x+300,400-y)

【演習３】 画像を２値化する ２値化とは、白か黒にする。白と黒の中間（灰 色）は使わない。 前頁の nx は、 nr と ng と nb の平均なので、 ０≦ nx ≦ 255 となる。 ２値化の場合、 nx を０（ nx ＜ 128 のとき） または 255 （ 128 ≦ nx ≦ 255 のとき）のどちらか にする。 BASIC の条件分岐 If nx<128 Then nx=0 Else nx=255

９．画像をぼかす n5 のまわりの画素（ n1 ～ n9 ）の平均を nx とする。 nx=int((n1+n2+n3+n4+n5+n6+n7+n8+n9)/9) zx$=right$("0"+hex$(nx),2) forecolor="#"+zx$+zx$+zx$ n1 ： (x-1,y-1)n2 ： (x,y-1)n3 ： (x+1,y-1) n4 ： (x-1,y) n5 ： (x,y) n6 ： (x+1,y) n7 ： (x-1,y+1)n8 ： (x,y+1)n9 ： (x+1,y+1)

【演習４】 カラー画像をぼか す n5 のまわりの画素（ n1 ～ n9 ）について、ＲＧＢそれぞ れの平均を求める。 n1 ： (x-1,y-1)n2 ： (x,y-1)n3 ： (x+1,y-1) n4 ： (x-1,y) n5 ： (x,y) n6 ： (x+1,y) n7 ： (x-1,y+1)n8 ： (x,y+1)n9 ： (x+1,y+1)

１０．画像のエッジを抽出する N1 （上の画素）と n4 （下の画素）の差を nx とする。 nx=int((n1-n4)/4) zx$=right$("0"+hex$(nx),2) forecolor="#"+zx$+zx$+zx$ n1 ： (x-1,y-1) n2 ： (x,y-1)n3 ： (x+1,y-1) n4 ： (x-1,y) n5 ： (x,y)n6 ： (x+1,y) n7 ： (x-1,y+1)n8 ： (x,y+1)n9 ： (x+1,y+1)

【演習５】 エッジ抽出後にぼか す エッジ抽出画像は、白黒がはっきりと描 かれている。そこで、この画像をぼかし てみよう。 元画像を左に、エッジ抽出画像を右に描 いたので、今度はエッジ抽出画像（右の 画像）をベースにして、左にぼかした画 像を描いてみよう。