Subversion Repositories wf3d

//=======================================================================
// Project Monophony
//   Wire-Frame 3D Graphics Accelerator IP Core
//
// File:
//   bitmap.c
//
// Abstract:
//   ascii to bitmap converter
//
// Author:
//   Kenji Ishimaru (info.info.wf3d@gmail.com)
//
//======================================================================
//
// Copyright (c) 2015, Kenji Ishimaru
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
//
//  -Redistributions of source code must retain the above copyright notice,
//   this list of conditions and the following disclaimer.
//  -Redistributions in binary form must reproduce the above copyright notice,
//   this list of conditions and the following disclaimer in the documentation
//   and/or other materials provided with the distribution.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
// EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// Revision History
 
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<math.h>
#include"bitmap.h"
 
 
Image *read_txt(char *filename, int w, int h)
{
  int i, j;
  unsigned int color;
  FILE *fp;
  Image *img;
 
  if((fp = fopen(filename, "rb")) == NULL){
    fprintf(stderr, "Error: %s not found.", filename);
    return NULL;
  }
  // File format ABGR
  printf("w=%d, h=%d\n",w,h);
 
  if((img = create_image(w, h)) == NULL) return NULL;
  for (i=0;i<h;i++) {
    for (j=0;j<w;j++) {
      fscanf(fp, "%08x", &color);
      img->dat[w*i+j].r = color & 0xff;
      img->dat[w*i+j].g = (color >> 8) & 0xff;
      img->dat[w*i+j].b = (color >> 16) & 0xff;
    }
  }
 
  fclose(fp);
 
  return img;
}
 
int write_bmp(char *filename, Image *img)
{
  int i, j;
  FILE *fp;
  int real_width;
  unsigned char *bmp_line_data;
  unsigned char header_buf[HEADERSIZE];
  unsigned int file_size;
  unsigned int offset_to_data;
  unsigned long info_header_size;
  unsigned int planes;
  unsigned int color;
  unsigned long compress;
  unsigned long data_size;
  long xppm;
  long yppm;
 
  if((fp = fopen(filename, "wb")) == NULL){
    fprintf(stderr, "Error: %s could not open.", filename);
    return 1;
  }
 
  real_width = img->width*3 + img->width%4;
 
  // create header
  file_size = img->height * real_width + HEADERSIZE;
  offset_to_data = HEADERSIZE;
  info_header_size = INFOHEADERSIZE;
  planes = 1;
  color = 24;
  compress = 0;
  data_size = img->height * real_width;
  xppm = 1;
  yppm = 1;
 
  header_buf[0] = 'B';
  header_buf[1] = 'M';
  memcpy(header_buf + 2, &file_size, sizeof(file_size));
  header_buf[6] = 0;
  header_buf[7] = 0;
  header_buf[8] = 0;
  header_buf[9] = 0;
  memcpy(header_buf + 10, &offset_to_data, sizeof(file_size));
  header_buf[11] = 0;
  header_buf[12] = 0;
  header_buf[13] = 0;
 
  memcpy(header_buf + 14, &info_header_size, sizeof(info_header_size));
  header_buf[15] = 0;
  header_buf[16] = 0;
  header_buf[17] = 0;
  memcpy(header_buf + 18, &img->width, sizeof(img->width));
  memcpy(header_buf + 22, &img->height, sizeof(img->height));
  memcpy(header_buf + 26, &planes, sizeof(planes));
  memcpy(header_buf + 28, &color, sizeof(color));
  memcpy(header_buf + 30, &compress, sizeof(compress));
  memcpy(header_buf + 34, &data_size, sizeof(data_size));
  memcpy(header_buf + 38, &xppm, sizeof(xppm));
  memcpy(header_buf + 42, &yppm, sizeof(yppm));
  header_buf[46] = 0;
  header_buf[47] = 0;
  header_buf[48] = 0;
  header_buf[49] = 0;
  header_buf[50] = 0;
  header_buf[51] = 0;
  header_buf[52] = 0;
  header_buf[53] = 0;
 
  // write header
  fwrite(header_buf, sizeof(unsigned char), HEADERSIZE, fp);
 
  if((bmp_line_data = (unsigned char *)malloc(sizeof(unsigned char)*real_width)) == NULL){
    fprintf(stderr, "Error: Allocation error.\n");
    fclose(fp);
    return 1;
  }
 
  // write RGB
  for(i=0; i<img->height; i++){
    for(j=0; j<img->width; j++){
      bmp_line_data[j*3] = img->dat[(img->height - i - 1)*img->width + j].b;
      bmp_line_data[j*3 + 1] = img->dat[(img->height - i - 1)*img->width + j].g;
      bmp_line_data[j*3 + 2] = img->dat[(img->height - i - 1)*img->width + j].r;
    }
    // 4-bite align
    for(j=img->width*3; j<real_width; j++){
      bmp_line_data[j] = 0;
    }
    fwrite(bmp_line_data, sizeof(unsigned char), real_width, fp);
  }
  free(bmp_line_data);
 
  fclose(fp);
  return 0;
}
 
Image *create_image(int width, int height)
{
  Image *img;
 
  if((img = (Image *)malloc(sizeof(Image))) == NULL){
    fprintf(stderr, "Allocation error\n");
    return NULL;
  }
 
  if((img->dat = (rgb*)malloc(sizeof(rgb)*width*height)) == NULL){
    fprintf(stderr, "Allocation error\n");
      free(img);
      return NULL;
  }
 
  img->width = width;
  img->height = height;
 
  return img;
}
 
void delete_image(Image *img)
{
  free(img->dat);
  free(img);
}