User:Remark/Icon2ppm.c

// DSi icon2ppm - #dsidev
// written by remark
// thanks to loopy_, bLASTY

// Copyright 2007,2008  Segher Boessenkool  <segher@kernel.crashing.org>
// Licensed under the terms of the GNU GPL, version 2
// http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt

#include <stdio.h>
#include <unistd.h>
typedef unsigned long u32;
typedef unsigned short u16;
typedef unsigned char u8;
 
u16 be16(const u8 *p)
{
  return (p[0] << 8) | p[1];
}
u32 be32(const u8 *p)
{
  return (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
}
  
#define BNR_VER 0x0301
#define FLAG_FLIPV 0x80
#define FLAG_FLIPH 0x40
typedef struct {
  u16 version;
  u16 crcs[4];
  u8 padding[0x16]; 
  u8 bitmap[0x200];
  u16 palette[0x10];
  u8 title_jap[0x100];
  u8 title_eng[0x100];
  u8 title_fr[0x100];
  u8 title_ger[0x100];
  u8 title_ita[0x100];
  u8 title_spa[0x100];
  u8 title_unk[0x100]; 
  u8 title_unk2[0x100];
  u8 padding2[0x800];
  u8 bitmaps[8][0x200];
  u16 palettes[8][0x10];
  u16 sequence[0x40];
} bannerstruct;

int flength(FILE *f)
{
  int pos,end;
  pos = ftell (f);
  fseek (f, 0, SEEK_END);
  end = ftell (f);
  fseek (f, pos, SEEK_SET);
  return end;
}

void do_bitmap(u8* bitmap, u16* palette, char* fname)
{
  FILE *fp = fopen(fname, "wb");
  if (fp == NULL)
  {
    fprintf(stderr, "file cannot be opened: %s\n", fname);
    exit(1);
  }
  fprintf(fp, "P6 %d %d 255\n", 32, 32);
  
  // fix 8x8 tiling
  u8 tilebuf[0x204];
  int x,y,z;
  for(x=0; x<4; x++)
  {
    for(y=0; y<8; y++)
    {
      for(z=0; z<8; z++)
      {
        memcpy(tilebuf+(x*128)+(16*y)+(4*z),
          bitmap+(x*128)+(32*z)+(4*y), 4);
      }
    }
  }
  
  // convert to rgb888
  int i,j;
  u8 pixeldata[32*32][3];
  for(i=0; i<0x200; i++)
  {
    u8 off = tilebuf[i];
    int offs[2];
    offs[0] = off&0x0F;
    offs[1] = (off&0xF0)>>4;
    
    u16 colors[2];
    colors[0] = *(palette+offs[0]);
    colors[1] = *(palette+offs[1]);
    
    for(j=0; j<2; j++)
    {
      u8 r = (colors[j]      ) & 0x1f;
      u8 g = (colors[j] >>  5) & 0x1f;
      u8 b = (colors[j] >> 10) & 0x1f;
      pixeldata[i*2+j][0] = (r << 3);
      pixeldata[i*2+j][1] = (g << 3);
      pixeldata[i*2+j][2] = (b << 3);
    }
  }
  
  if(fwrite(pixeldata, sizeof(pixeldata), 1, fp) != 1)
  {
    fprintf(stderr, "writing output-file failed\n");
    exit(1);
  }

  fclose(fp);
}
  
int main(int argc, char* argv[])
{
  if(argc != 2)
  {
    fprintf(stderr, "usage: %s <icon.bin>\n", argv[0]);
    exit(0);
  }
  
  FILE* fp = fopen(argv[1], "rb");
  if(fp == NULL)
  {
    fprintf(stderr, "input file not found\n");
    exit(1);
  }
  
  int f_len = flength(fp);
  char* f_buf = malloc(f_len);
  if(f_buf == NULL)
  {
    fprintf(stderr, "not enough memory\n");
    exit(1);
  }
  if(fread(f_buf, f_len, 1, fp) != 1)
  {
    fprintf(stderr, "file read failure\n");
    exit(1);
  }
  
  char dirname[256];
  snprintf(dirname, sizeof(dirname), "%s.out", argv[1]);
  mkdir(dirname, 0777);
  chdir(dirname);
  
  bannerstruct* bnr = (bannerstruct*) f_buf;
  // check magic
  if(be16((u8*)&bnr->version) != BNR_VER)
  {
    fprintf(stderr, "invalid banner icon (magic mismatch)\n");
    exit(1);
  }
  
  // extract default bitmap
  do_bitmap(bnr->bitmap, bnr->palette, "default.ppm");
  
  // loop through all sequences
  u16* pseq = bnr->sequence;
  u16 seq, i;
  for(i=0; (seq = be16((u8*) pseq+i)) != 0; i++)
  {
    // masking out 
    int bid = (seq&0x7);
    int pid = (seq&0x38)>>3;
    
    // write to logfile
    char fname[256];
    snprintf(fname, sizeof(fname), "seq#%d.txt", i);
    
    FILE* flog = fopen(fname, "w+");
    if(flog == NULL)
    {
      fprintf(stderr, "log-file couldn't be created\n");
      exit(1);
    }
    
    fprintf(flog, "duration : %d frames\n", (seq&0xFF00)>>8);
    fprintf(flog, "bitmap   : #%d\n", bid);
    fprintf(flog, "palette  : #%d\n", pid);
    fclose(flog);
    
    // todo: flipz!
    if((seq & FLAG_FLIPV) == FLAG_FLIPV)
      fprintf(stderr, "warning: vertical flip ignored on sequence #%d\n", i);
    if((seq & FLAG_FLIPH) == FLAG_FLIPH)
      fprintf(stderr, "warning: horizontal flip ignored on sequence #%d\n", i);
    
    // change extension to .ppm
    char* dot_pos = strchr(fname, '.');
    strcpy(dot_pos, ".ppm");
    
    // extract bitmap to file
    do_bitmap(bnr->bitmaps[bid], bnr->palettes[pid], fname);
  }

  fclose(fp);
  free(f_buf);
  
  return 0;
}