synfig-core/tags/stable/src/modules/mod_bmp/trgt_bmp.cpp

   1 /* === S I N F G =========================================================== */
   2 /*!     \file trgt_bmp.cpp
   3 **      \brief Bitmap Target
   4 **
   5 **      $Id: trgt_bmp.cpp,v 1.1.1.1 2005/01/04 01:23:10 darco Exp $
   6 **
   7 **      \legal
   8 **      Copyright (c) 2002 Robert B. Quattlebaum Jr.
   9 **
  10 **      This software and associated documentation
  11 **      are CONFIDENTIAL and PROPRIETARY property of
  12 **      the above-mentioned copyright holder.
  13 **
  14 **      You may not copy, print, publish, or in any
  15 **      other way distribute this software without
  16 **      a prior written agreement with
  17 **      the copyright holder.
  18 **      \endlegal
  19 */
  20 /* ========================================================================= */
  21
  22 /* === H E A D E R S ======================================================= */
  23
  24 #define SINFG_NO_ANGLE
  25
  26 #ifdef USING_PCH
  27 #       include "pch.h"
  28 #else
  29 #ifdef HAVE_CONFIG_H
  30 #       include <config.h>
  31 #endif
  32
  33 #include "trgt_bmp.h"
  34 #include <sinfg/general.h>
  35
  36 #include <cstdio>
  37 #include <algorithm>
  38 #include <functional>
  39 #endif
  40
  41 /* === U S I N G =========================================================== */
  42
  43 using namespace sinfg;
  44 using namespace std;
  45 using namespace etl;
  46
  47 /* === I N F O ============================================================= */
  48
  49 SINFG_TARGET_INIT(bmp);
  50 SINFG_TARGET_SET_NAME(bmp,"bmp");
  51 SINFG_TARGET_SET_EXT(bmp,"bmp");
  52 SINFG_TARGET_SET_VERSION(bmp,"0.1");
  53 SINFG_TARGET_SET_CVS_ID(bmp,"$Id: trgt_bmp.cpp,v 1.1.1.1 2005/01/04 01:23:10 darco Exp $");
  54
  55 /* === C L A S S E S & S T R U C T S ======================================= */
  56
  57 struct BITMAPFILEHEADER
  58 {
  59         unsigned char   bfType[2];
  60         unsigned long   bfSize;
  61         unsigned short  bfReserved1;
  62         unsigned short  bfReserved2;
  63         unsigned long   bfOffsetBits;
  64 };
  65
  66 struct BITMAPINFOHEADER
  67 {
  68         unsigned long   biSize;
  69         long                    biWidth;
  70         long                    biHeight;
  71         unsigned short  biPlanes;
  72         unsigned short  biBitCount;
  73         unsigned long   biCompression;
  74         unsigned long   biSizeImage;
  75         long                    biXPelsPerMeter;
  76         long                    biYPelsPerMeter;
  77         unsigned long   biClrUsed;
  78         unsigned long   biClrImportant;
  79 };
  80
  81 /* === M E T H O D S ======================================================= */
  82
  83 #ifdef WORDS_BIGENDIAN
  84 inline long little_endian(const long &x)
  85 {
  86         long ret;
  87         char *big_e=(char *)&ret;
  88         char *lit_e=(char *)&x;
  89         big_e[0]=lit_e[3];
  90         big_e[1]=lit_e[2];
  91         big_e[2]=lit_e[1];
  92         big_e[3]=lit_e[0];
  93         return ret;
  94 }
  95 inline short little_endian_short(const short &x)
  96 {
  97         short ret;
  98         char *big_e=(char *)&ret;
  99         char *lit_e=(char *)&x;
 100         big_e[0]=lit_e[1];
 101         big_e[1]=lit_e[0];
 102         return ret;
 103 }
 104 #else
 105 #define little_endian(x)        (x)
 106 #define little_endian_short(x)  (x)
 107 #endif
 108
 109 bmp::bmp(const char *Filename)
 110 {
 111         file=NULL;
 112         filename=Filename;
 113         multi_image=false;
 114         buffer=0;
 115         color_buffer=0;
 116 }
 117
 118 bmp::~bmp()
 119 {
 120         if(file)
 121                 fclose(file);
 122         file=NULL;
 123         delete [] buffer;
 124         delete [] color_buffer;
 125 }
 126
 127 bool
 128 bmp::set_rend_desc(RendDesc *given_desc)
 129 {
 130         pf=PF_BGR;
 131
 132         // Flip the image upside down,
 133         // because bitmaps are upside down.
 134         Point tl=given_desc->get_tl();
 135         Point br=given_desc->get_br();
 136         Point::value_type tmp;
 137         tmp=tl[1];
 138         tl[1]=br[1];
 139         br[1]=tmp;
 140         given_desc->set_tl(tl);
 141         given_desc->set_br(br);
 142
 143         desc=*given_desc;
 144         if(desc.get_frame_end()-desc.get_frame_start()>0)
 145         {
 146                 multi_image=true;
 147                 imagecount=desc.get_frame_start();
 148         }
 149         else
 150                 multi_image=false;
 151
 152         return true;
 153 }
 154
 155 void
 156 bmp::end_frame()
 157 {
 158         if(file)
 159                 fclose(file);
 160         delete [] color_buffer;
 161         color_buffer=0;
 162         file=NULL;
 163         imagecount++;
 164 }
 165
 166 bool
 167 bmp::start_frame(sinfg::ProgressCallback *callback)
 168 {
 169         int w=desc.get_w(),h=desc.get_h();
 170
 171         rowspan=4*((w*(channels(pf)*8)+31)/32);
 172
 173         if(multi_image)
 174         {
 175                 String
 176                         newfilename(filename),
 177                         ext(find(filename.begin(),filename.end(),'.'),filename.end());
 178                 newfilename.erase(find(newfilename.begin(),newfilename.end(),'.'),newfilename.end());
 179
 180                 newfilename+=etl::strprintf("%04d",imagecount)+ext;
 181                 file=fopen(newfilename.c_str(),"wb");
 182                 if(callback)callback->task(newfilename+_(" (animated)"));
 183         }
 184         else
 185         {
 186                 file=fopen(filename.c_str(),"wb");
 187                 if(callback)callback->task(filename);
 188         }
 189
 190         if(!file)
 191         {
 192                 if(callback)callback->error(_("Unable to open file"));
 193                 else sinfg::error(_("Unable to open file"));
 194                 return false;
 195         }
 196
 197         BITMAPFILEHEADER fileheader;
 198         BITMAPINFOHEADER infoheader;
 199
 200         fileheader.bfType[0]='B';
 201         fileheader.bfType[1]='M';
 202         fileheader.bfSize=little_endian(sizeof(BITMAPFILEHEADER)+sizeof(BITMAPINFOHEADER)+rowspan*h);
 203         fileheader.bfReserved1=0;
 204         fileheader.bfReserved2=0;
 205         fileheader.bfOffsetBits=little_endian(sizeof(BITMAPFILEHEADER)+sizeof(BITMAPINFOHEADER)-2);
 206
 207         infoheader.biSize=little_endian(40);
 208         infoheader.biWidth=little_endian(w);
 209         infoheader.biHeight=little_endian(h);
 210         infoheader.biPlanes=little_endian_short((short)1);
 211         infoheader.biBitCount=little_endian_short((short)(channels(pf)*8));
 212         infoheader.biCompression=little_endian(0);
 213         infoheader.biSizeImage=little_endian(0);
 214         infoheader.biXPelsPerMeter=little_endian((int)rend_desc().get_x_res());
 215         infoheader.biYPelsPerMeter=little_endian((int)rend_desc().get_y_res()); // pels per meter...?
 216         infoheader.biClrUsed=little_endian(0);
 217         infoheader.biClrImportant=little_endian(0);
 218
 219         fprintf(file,"BM");
 220
 221         if(!fwrite(&fileheader.bfSize,sizeof(BITMAPFILEHEADER)-4,1,file))
 222         {
 223                 if(callback)callback->error(_("Unable to write file header to file"));
 224                 else sinfg::error(_("Unable to write file header to file"));
 225                 return false;
 226         }
 227
 228         if(!fwrite(&infoheader,sizeof(BITMAPINFOHEADER),1,file))
 229         {
 230                 if(callback)callback->error(_("Unable to write info header"));
 231                 else sinfg::error(_("Unable to write info header"));
 232                 return false;
 233         }
 234
 235         delete [] buffer;
 236         buffer=new unsigned char[rowspan];
 237
 238         delete [] color_buffer;
 239         color_buffer=new Color[desc.get_w()];
 240
 241         return true;
 242 }
 243
 244 Color *
 245 bmp::start_scanline(int scanline)
 246 {
 247         return color_buffer;
 248 }
 249
 250 bool
 251 bmp::end_scanline()
 252 {
 253         if(!file)
 254                 return false;
 255
 256         convert_color_format(buffer, color_buffer, desc.get_w(), pf, gamma());
 257
 258         if(!fwrite(buffer,1,rowspan,file))
 259                 return false;
 260
 261         return true;
 262 }