気づいたら全然更新していませんでした・・・

でもわざわざブログ書く時間もないので今日は１行プログラムで、

カラーの画像をモノクロ化するプログラムです。

正直１行じゃ誰もわからないと思うので１行を見やすくして４０行くらいに展開してみました

dialog "*",16,"画像ファイル読み込み"
picload refstr,1

buffer 1,1280,480,0
buffer 2,640,480,0
color 0,0,0:boxf
mref a2,66
buffer 3,640,480,0
color 0,0,0:boxf
mref a3,66
buffer 4,640,480,0
color 0,0,0:boxf
mref a4,66

gsel 1
redraw 0
pos 0,0:gmode 0:gcopy 0,0,0,640,480
color 255,0,0
boxf 640,0,1280,648

gsel 2
redraw 0
gmode 7,640,480,256
pos 0,0:gcopy 1,0,0,640,480
gmode 3,640,480,170
color 0,0,0:grect 320,240,0,640,480
memcpy a4,a2,480*640*3-2,0,2

gsel 1
color 0,255,0
boxf 640,0,1280,480

gsel 2
color 0,0,0:boxf
gmode 7,640,480,256
pos 0,0:gcopy 1,0,0,640,480
gmode 3,640,480,170
grect 320,240,0,640,480
memcpy a3,a2,480*640*3-1,0,1

gsel 1
color 0,0,255
boxf 640,0,1280,480

gsel 2
color 0,0,0:boxf
gmode 7,640,480,256
pos 0,0:gcopy 1,0,0,640,480
gmode 3,640,480,170
grect 320,240,0,640,480

buffer 1,640,480,0
mref a4,66
color 0,0,0:boxf
gmode 5,640,480,256
pos 0,0:gcopy 2,0,0,640,480
pos 0,0:gcopy 3,0,0,640,480
pos 0,0:gcopy 4,0,0,640,480

gsel 2
color 0,0,0:boxf
memcpy a2,a4,480*640*3-1,1,0

gsel 3
color 0,0,0:boxf
memcpy a3,a4,480*640*3-2,2,0

gsel 0
redraw 0
color 0,0,0:boxf
gmode 5,640,480,256
pos 0,0:gcopy 2,0,0,640,480
pos 0,0:gcopy 3,0,0,640,480
pos 0,0:gcopy 1,0,0,640,480
redraw 1

buffer 4,4,4,0
buffer 3,4,4,0
buffer 2,4,4,0
buffer 1,4,4,0
sdim a2,1
sdim a3,1
sdim a4,1