複数枚画像の合成
こんにちわ、Visual Studio 2005のフォームアプリケーションでプログラミングしているものです。複数枚の画像を一つの画像にしたいのですが、どうもあっているのかどうかわかりません。
たとえば、画像が9枚あって1枚目の一番左上の画素を[0-0,0]とすると、
[0-0,0][1-0,0][2-0,0]|[3-1,0][4-1,0][5-1,0]|[6-2,0][7-2,0][8-2,0]
[0-0,0][1-0,0][2-0,0]|[3-1,0][4-1,0][5-1,0]|[6-2,0][7-2,0][8-2,0]
[3-0,0][4-0,0][5-0,0]|[6-1,0][7-1,0][8-1,0]|[0-2,0][1-2,0][2-2,0]
[3-0,0][4-0,0][5-0,0]|[6-1,0][7-1,0][8-1,0]|[0-2,0][1-2,0][2-2,0]
[6-0,0][7-0,0][8-0,0]|[0-1,0][1-1,0][2-1,0]|[3-2,0][4-2,0][5-2,0]
[6-0,0][7-0,0][8-0,0]|[0-1,0][1-1,0][2-1,0]|[3-2,0][4-2,0][5-2,0]
-----------------+-----------------+------------------------
[0-0,1][1-0,1][2-0,1]|[3-1,1][4-1,1][5-1,1]|[6-2,1][7-2,1][8-2,1]
[0-0,1][1-0,1][2-0,1]|[3-1,1][4-1,1][5-1,1]|[6-2,1][7-2,1][8-2,1]
[3-0,1][4-0,1][5-0,1]|[6-1,1][7-1,1][8-1,1]|[0-2,1][1-2,1][2-2,1]
[3-0,1][4-0,1][5-0,1]|[6-1,1][7-1,1][8-1,1]|[0-2,1][1-2,1][2-2,1]
[6-0,1][7-0,1][8-0,1]|[0-1,1][1-1,1][2-1,1]|[3-2,1][4-2,1][5-2,1]
[6-0,1][7-0,1][8-0,1]|[0-1,1][1-1,1][2-1,1]|[3-2,1][4-2,1][5-2,1]
-----------------+-----------------+------------------------
[0-0,2][1-0,2][2-0,2]|[3-1,2][4-1,2][5-1,2]|[6-2,2][7-2,2][8-2,2]
[0-0,2][1-0,2][2-0,2]|[3-1,2][4-1,2][5-1,2]|[6-2,2][7-2,2][8-2,2]
[3-0,2][4-0,2][5-0,2]|[6-1,2][7-1,2][8-1,2]|[0-2,2][1-2,2][2-2,2]
[3-0,2][4-0,2][5-0,2]|[6-1,2][7-1,2][8-1,2]|[0-2,2][1-2,2][2-2,2]
[6-0,2][7-0,2][8-0,2]|[0-1,2][1-1,2][2-1,2]|[3-2,2][4-2,2][5-2,2]
[6-0,2][7-0,2][8-0,2]|[0-1,2][1-1,2][2-1,2]|[3-2,2][4-2,2][5-2,2]
といった感じにしようと思っています。
画像には配列を使っていてbmp[0]~[8]が9枚の画像を表し、picはbmp[0]~[8]の画像一枚に対してサイズが横3倍縦6倍の画像になるはずです。
自分でプログラムしたのですが、できた画像を拡大しても細かすぎてよくわからない状況です。
for ( y = 0; y < h; y += 6 ) {
for ( x = 0; x < w; x += 3 ) {
for( b = 0; b < 3; b++ ) {
for( a = 0; a < 3; a++ ) {
pic->SetPixel( x + a, y + (2 * b) , bmp[((2 * b) * 3 + a + x) % 9]->GetPixel( x / 3, y / 6 ) );
pic->SetPixel( x + a, y + (2 * b) , bmp[(((2 * b) + 1) * 3 + a + x) % 9]->GetPixel( x / 3, y / 6 ) );
}
}
}
}
以前に、同じような配置法なのですが横3倍縦3倍の合成画像として、
[0-0,0][1-0,0][2-0,0]|[3-1,0][4-1,0][5-1,0]|[6-2,0][7-2,0][8-2,0]
[3-0,0][4-0,0][5-0,0]|[6-1,0][7-1,0][8-1,0]|[0-2,0][1-2,0][2-2,0]
[6-0,0][7-0,0][8-0,0]|[0-1,0][1-1,0][2-1,0]|[3-2,0][4-2,0][5-2,0]
-----------------+-----------------+------------------------
[0-0,1][1-0,1][2-0,1]|[3-1,1][4-1,1][5-1,1]|[6-2,1][7-2,1][8-2,1]
[3-0,1][4-0,1][5-0,1]|[6-1,1][7-1,1][8-1,1]|[0-2,1][1-2,1][2-2,1]
[6-0,1][7-0,1][8-0,1]|[0-1,1][1-1,1][2-1,1]|[3-2,1][4-2,1][5-2,1]
-----------------+-----------------+------------------------
[0-0,2][1-0,2][2-0,2]|[3-1,2][4-1,2][5-1,2]|[6-2,2][7-2,2][8-2,2]
[3-0,2][4-0,2][5-0,2]|[6-1,2][7-1,2][8-1,2]|[0-2,2][1-2,2][2-2,2]
[6-0,2][7-0,2][8-0,2]|[0-1,2][1-1,2][2-1,2]|[3-2,2][4-2,2][5-2,2]
の配置プログラムとして、
for ( y = 0; y < h; y += 3 ) {
for ( x = 0; x < w; x += 3 ) {
for( b = 0; b < 3; b++ ) {
for( a = 0; a < 3; a++ ) {
pic->SetPixel( x + a, y + b , bmp[(b * 3 + a + x) % 9]->GetPixel( x / 3, y / 3 ) );
}
}
}
}
との回答をいただいたので、これを参考に作ってみたのですが・・・。
説明が下手でわかりにくいかもしれませんが、お分かりの方がいましたらご教授お願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ありがとうございます。 JPEGで生成方法してサイズを640*480のカラー画像を だいたい2万Byte程度に小さくすることが出来ました。 もう少し小さく出来ないか試してみますが、以下現状のコードです。 とても助かりました。有難うございました。 －－－－－－－－－－ Dim imgByte() As Byte '書込みイメージバッファ 'ファイルから画像を読み込む Dim bmp As Bitmap = Bitmap.FromFile(jpgFile) 'ピクチャボックスに表示 PictureBox1.Image = bmp 'メモリストリーム作成 Dim ms As MemoryStream = New MemoryStream() 'ビットマップをメモリストリームにJPEGで保存 bmp.Save(ms, ImageFormat.Jpeg) 'データをバイト配列で取得 imgByte = ms.ToArray() －－－－－－－－－－