View source for 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;
  }