int readBMPfile(char *frame,ImageData **img)
{
int i,c;
int errcode=0;
BITMAPFILEHEADER BMPFile;
int fsize;
BITMAPINFOHEADER BMPInfo;
BITMAPCOREHEADER BMPCore;
int colors;
int colorTableSize;
int bitSize;
int BISize;
int x,y;
int mx,my,depth;
int pad;
int mxb,myb;
int isPM=FALSE;
FILE *fp;
WORD HEAD_bfType;
DWORD HEAD_bfSize;
WORD HEAD_bfReserved1;
WORD HEAD_bfReserved2;
DWORD HEAD_bfOffBits;
DWORD INFO_bfSize;
Pixel palet[MAXCOLORS];
Pixel setcolor;
if((fp=fopen(fname,"rb"))==NULL){
return -1;
}
if(!freadWORD(&HEAD_byType,fp)){
errcode=-2;
goto $ABORT;
}
if (HEAD_byType != 0x4d42){
errcode=-10;
goto $ABORT;
}
if(!freadDWORD(&HEAD_bfSize,fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&HEAD_bfReserved1,fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&HEAD_bfOffBits,fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&HEAD_bfSize,fp)){
errcode=-10;
goto $ABORT;
}
if (INFO_bfSize == 40 || INFO_bfSize == 12){
BMPInfo.biSize = INFO_bfSize;
if(INFO_bfSize == sizeof(BITMAPCOREHEADER)){
WORD tmp;
isPM = TRUE;
if(!freadWORD(&tmp,fp)){
errcode=-10;
goto $ABORT;
}
BMPInfo.biWidth=tmp;
if(!freadWORD(&tmp,fp)){
errcode=-10;
goto $ABORT;
}
BMPInfo.biHeight=tmp;
if(!freadWORD(&(BMPInfo.biPlanes),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biBitCount),fp)){
errcode=-10;
goto $ABORT;
}
}
else {
if(!freadWORD(&(BMPInfo.biWidth),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biHeight),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biPlanes),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biBitCount),fp)){
errcode=-10;
goto $ABORT;
}
}
if(!isPM) {
if(!freadWORD(&(BMPInfo.biCompression),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biSizeImage),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biXPelsPerMeter),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biYPelsPerMeter),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biClrUsed),fp)){
errcode=-10;
goto $ABORT;
}
if(!freadWORD(&(BMPInfo.biClrImportant),fp)){
errcode=-10;
goto $ABORT;
}
}
}
else {
errcode=-10;
goto $ABORT;
}
mx=BMPInfo.biWidth;
my=BMPInfo.biHeight;
depth=BMPInfo.biBitCount;
if(depth!=8 && depth!=24){
errcode=-3;
goto $ABORT;
}
if(BMPInfo.biCompression!=BI_RGB){
errcode=-20;
goto $ABORT;
}
if(BMPInfo.biClrUsed==0){
colors = countOfDIBColorEntries(BMPInfo.biBitCount);
}
else {
colors = BMPInfo.biClrUsed;
}
if (!isPM){
for(i=0;i<colors;i++){
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].b=c;
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].g=c;
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].r=c;
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
}
} else {
for(!=0;i<colors;i++){
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].b=c;
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].g=c;
c=fgetc(fp);
if(c==EOF){
errcode=-10;
goto $ABORT;
}
palet[i].r=c;
}
}
*img=createImage(mx,my,24);
mxb=getDIBxmax(mx,depth);
pad=mxb-mx*depth/8;
for(y=my-1;y>=0;y--){
for(x=0;x<mx;x++){
if(depth==8){
c=fgetc(fp);
if(c==EOF){
errcode=-20;
goto $ABORT;
}
setcolor.r=palet[c].r;
setcolor.g=palet[c].g;
setcolor.b=palet[c].b;
}
else if(depth==24){
c=fgetc(fp);
if(c==EOF){
errcode=-20;
goto $ABORT;
}
setcolor.b=c;
c=fgetc(fp);
if(c==EOF){
errcode=-20;
goto $ABORT;
}
setcolor.g=c;
c=fgetc(fp);
if(c==EOF){
errcode=-20;
goto $ABORT;
}
setcolor.r=c;
}
setPixel(*img,x,y,&setcolor);
}
for(i=0;i<pad;i++){
c=fgetc(fp);
if(c==EOF){
errcode=-20;
goto $ABORT;
}
}
}
$ABORT:
fclose(fp);
return errcode;
}
// List1-6
// BMPデータをファイルより読み込む
int readBMPfile(char *fname, ImageData **img)
{
int i, c;
int errcode = 0;
BITMAPFILEHEADER BMPFile;
int fsize;
BITMAPINFOHEADER BMPInfo;
BITMAPCOREHEADER BMPCore;
int colors;
int colorTableSize;
int bitsSize;
int BISize;
int x, y;
int mx, my, depth;
int pad;
int mxb, myb;
int isPM = FALSE; // BMPの形式を記録するフラグ
FILE *fp;
WORD HEAD_bfType;
DWORD HEAD_bfSize;
WORD HEAD_bfReserved1;
WORD HEAD_bfReserved2;
DWORD HEAD_bfOffBits;
DWORD INFO_bfSize;
Pixel palet[MAXCOLORS];
Pixel setcolor;
errno_t error;
if(error=fopen_s(&fp, fname, "rb") != 0){
return -1;
}
// BMPファイルは必ず'BM(0x4d42)'で始まる．それ以外の場合はBMPではないので，中止する
if (!freadWORD(&HEAD_bfType, fp)) {
errcode = -2;
goto $ABORT;
}
if (HEAD_bfType != 0x4d42) {
errcode = -10;
goto $ABORT;
}
// ヘッダ部のサイズ(Byte)
if (!freadDWORD(&HEAD_bfSize, fp)) {
errcode = -10;
goto $ABORT;
}
// 予約用領域（未使用）
if (!freadWORD(&HEAD_bfReserved1, fp)) {
errcode = -10;
goto $ABORT;
}
// 予約用領域（未使用）
if (!freadWORD(&HEAD_bfReserved2, fp)) {
errcode = -10;
goto $ABORT;
}
// オフセット
if (!freadDWORD(&HEAD_bfOffBits, fp)) {
errcode = -10;
goto $ABORT;
}
// ヘッダ部のサイズ
if (!freadDWORD(&INFO_bfSize, fp)) {
errcode = -10;
goto $ABORT;
}
// ヘッダ部のサイズが規定外ならばエラーとする
if (INFO_bfSize == 40/*sizeof(BITMAPINFOHEADER)*/ || INFO_bfSize == 12/*sizeof(BITMAPCOREHEADER)*/) {
BMPInfo.biSize = INFO_bfSize;
// BITMAPCOREHEADER形式の場合
if (INFO_bfSize == sizeof(BITMAPCOREHEADER)) {
WORD tmp;
isPM = TRUE;
// 画像の横幅
if (!freadWORD(&tmp, fp)) {
errcode = -10;
goto $ABORT;
}
BMPInfo.biWidth = tmp;
// 画像の縦幅
if (!freadWORD(&tmp, fp)) {
errcode = -10;
goto $ABORT;
}
BMPInfo.biHeight = tmp;
// 画像のプレーン数
if (!freadWORD(&(BMPInfo.biPlanes), fp)) {
errcode = -10;
goto $ABORT;
}
// １画素あたりのビット数
if (!freadWORD(&(BMPInfo.biBitCount), fp)) {
errcode = -10;
goto $ABORT;
}
}
else { // BITMAPINFOHEADER形式の場合
// 画像の横幅
if (!freadDWORD(&(BMPInfo.biWidth), fp)) {
errcode = -10;
goto $ABORT;
}
// 画像の縦幅
if (!freadDWORD(&(BMPInfo.biHeight), fp)) {
errcode = -10;
goto $ABORT;
}
// 画像のプレーン数
if (!freadWORD(&(BMPInfo.biPlanes), fp)) {
errcode = -10;
goto $ABORT;
}
// １画素あたりのビット数
if (!freadWORD(&(BMPInfo.biBitCount), fp)) {
errcode = -10;
goto $ABORT;
}
}
// BITMAPINFOHEADERの場合のみ存在する情報を読み込む
if (!isPM) {
// 圧縮形式
if (!freadDWORD(&(BMPInfo.biCompression), fp)) {
errcode = -10;
goto $ABORT;
}
// 画像データ部のサイズ
if (!freadDWORD(&(BMPInfo.biSizeImage), fp)) {
errcode = -10;
goto $ABORT;
}
// X方向の解像度
if (!freadDWORD(&(BMPInfo.biXPelsPerMeter), fp)) {
errcode = -10;
goto $ABORT;
}
// Y方向の解像度
if (!freadDWORD(&(BMPInfo.biYPelsPerMeter), fp)) {
errcode = -10;
goto $ABORT;
}
// 格納されているパレットの色数
if (!freadDWORD(&(BMPInfo.biClrUsed), fp)) {
errcode = -10;
goto $ABORT;
}
// 重要なパレットのインデックス
if (!freadDWORD(&(BMPInfo.biClrImportant), fp)) {
errcode = -10;
goto $ABORT;
}
}
}
else {
errcode = -10;
goto $ABORT;
}
mx = BMPInfo.biWidth;
my = BMPInfo.biHeight;
depth = BMPInfo.biBitCount;
// 256色，フルカラー以外サポート外
if (depth != 8 && depth != 24) {
errcode = -3;
goto $ABORT;
}
// 非圧縮形式以外はサポート外
if (BMPInfo.biCompression != BI_RGB) {
errcode = -20;
goto $ABORT;
}
// ヘッダ部にパレットサイズの情報がない場合は１画素あたりのビット数から求める
if (BMPInfo.biClrUsed == 0) {
colors = countOfDIBColorEntries(BMPInfo.biBitCount);
}
else {
colors = BMPInfo.biClrUsed;
}
// パレット情報の読み込み
// BMPの種類によってフォーマットが異なるので処理をわける
if (!isPM) {
for (i = 0; i<colors; i++) {
// Blue成分
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].b = c;
// Green成分
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].g = c;
// Red成分
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].r = c;
// あまり
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
}
}
else {
for (i = 0; i<colors; i++) {
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].b = c;
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].g = c;
c = fgetc(fp);
if (c == EOF) {
errcode = -10;
goto $ABORT;
}
palet[i].r = c;
}
}
// フルカラーで画像データを作成
*img = createImage(mx, my, 24);
mxb = getDIBxmax(mx, depth);
pad = mxb - mx*depth / 8;
// 画像データ読み込み
for (y = my - 1; y >= 0; y--) {
for (x = 0; x<mx; x++) {
if (depth == 8) { // 256色形式の場合はパレットからRGB値を求める
c = fgetc(fp);
if (c == EOF) {
errcode = -20;
goto $ABORT;
}
setcolor.r = palet[c].r;
setcolor.g = palet[c].g;
setcolor.b = palet[c].b;
}
else if (depth == 24) {
c = fgetc(fp);
if (c == EOF) {
errcode = -20;
goto $ABORT;
}
setcolor.b = c;
c = fgetc(fp);
if (c == EOF) {
errcode = -20;
goto $ABORT;
}
setcolor.g = c;
c = fgetc(fp);
if (c == EOF) {
errcode = -20;
goto $ABORT;
}
setcolor.r = c;
}
setPixel(*img, x, y, &setcolor);
}
// Padding部の読み飛ばし
for (i = 0; i<pad; i++) {
c = fgetc(fp);
if (c == EOF) {
errcode = -20;
goto $ABORT;
}
}
}
$ABORT: // エラー時の飛び先
fclose(fp);
return errcode;
}
