pikl 0.2.2-x86-mswin32

data/History.txt

@@ -0,0 +1,8 @@
+== 0.2.1
+* fix gem for mswin32.
+
+== 0.2.0
+* Supports method chain.
+
+== 0.1.0
+* First release!

data/License.txt

@@ -0,0 +1,21 @@
+Copyright (c) 2008 pikl Ryota Maruko
+Copyright (c) 2008 libpikl Keiko Soejima
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Manifest.txt

@@ -0,0 +1,37 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+config/hoe.rb
+config/requirements.rb
+ext/pikl/extconf.rb
+ext/pikl/pikl.h
+ext/pikl/pikl_bitmap.c
+ext/pikl/pikl_bitmap.h
+ext/pikl/pikl_effect.c
+ext/pikl/pikl_effect.h
+ext/pikl/pikl_io.c
+ext/pikl/pikl_io.h
+ext/pikl/pikl_jpeg.c
+ext/pikl/pikl_jpeg.h
+ext/pikl/pikl_png.c
+ext/pikl/pikl_png.h
+ext/pikl/pikl_private.h
+ext/pikl/pikl_resize.c
+ext/pikl/pikl_resize.h
+ext/pikl/pikl_rotate.c
+ext/pikl/pikl_rotate.h
+ext/pikl/pikl_trim.c
+ext/pikl/pikl_trim.h
+lib/pikl.rb
+lib/pikl/const.rb
+lib/pikl/errors.rb
+lib/pikl/ext.rb
+lib/pikl/image.rb
+lib/pikl/pikl.dll
+lib/pikl/version.rb
+setup.rb
+test/sample.jpg
+test/test_helper.rb
+test/test_pikl_image.rb

data/README.txt

@@ -0,0 +1,66 @@
+= pikl
+
+Pikl is an image librarry for ruby. This library aims easily image processing. Supports JPEG, PNG and BITMAP.
+
+=== Installation of pikl
+
+The simplest way is to install the gem:
+
+  $ sudo gem install pikl
+  
+To use option for libjpeg and libpng directories:
+
+  $ sudo gem install pikl -- --with-opt-dir=path/to/libraries
+
+== SYNOPSIS:
+
+Basic use of pikl:
+  require "rubygems"
+  require "pikl"
+  Pikl::Image.open('path/to/image.jpg') do |img|
+    img.trim(10,5,-10,-5)
+    img.save('path/to/output.png', :png)
+  end
+
+Use method chain for processing image:
+  require "rubygems"
+  require "pikl"
+  Pikl::Image.open('path/to/image.jpg') do |img|
+    img.resize(120,:auto).rotate(90).save('path/to/output.png')
+  end
+
+
+== REQUIREMENTS:
+
+Currently, pikl-core (implemented with C) depends on the following libraries:
+
+* libjpeg
+* libpng
+
+notice: pikl use binary library on windows. so these libraries aren't necessary on windows.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 pikl.rb Ryota Maruko
+Copyright (c) 2008 pikl.so Keiko Soejima
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,4 @@
+PACKAGE_PLATFORM = (ARGV[0] =~ /mswin32$/) ? 'mswin32' : RUBY_PLATFORM
+require 'config/requirements'
+require 'config/hoe' # setup Hoe + all gem configuration
+Dir['tasks/**/*.rake'].each { |rake| load rake }

data/config/hoe.rb

@@ -0,0 +1,89 @@
+require 'pikl/version'
+
+AUTHOR = 'Ryota Maruko'  # can also be an array of Authors
+EMAIL = ""
+DESCRIPTION = "Pikl is an image librarry for ruby. This library aims easily image processing. Supports JPEG, PNG and BITMAP."
+GEM_NAME = 'pikl' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'pikl' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+@config_file = "~/.rubyforge/user-config.yml"
+@config = nil
+RUBYFORGE_USERNAME = "unknown"
+def rubyforge_username
+  unless @config
+    begin
+      @config = YAML.load(File.read(File.expand_path(@config_file)))
+    rescue
+      puts <<-EOS
+ERROR: No rubyforge config file found: #{@config_file}
+Run 'rubyforge setup' to prepare your env for access to Rubyforge
+ - See http://newgem.rubyforge.org/rubyforge.html for more details
+      EOS
+      exit
+    end
+  end
+  RUBYFORGE_USERNAME.replace @config["username"]
+end
+
+REV = nil 
+# UNCOMMENT IF REQUIRED: 
+# REV = `svn info`.each {|line| if line =~ /^Revision:/ then k,v = line.split(': '); break v.chomp; else next; end} rescue nil
+VERS = Pikl::VERSION::STRING + (REV ? ".#{REV}" : "")
+RDOC_OPTS = ['--quiet', '--title', 'pikl documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject! { |x| Array(x).first == 'hoe' } 
+    @extra_deps
+  end 
+  
+  def spec= s
+    
+    if PACKAGE_PLATFORM =~ /mswin32/
+      s.files = s.files.reject! {|f| f =~ /extconf\.rb/ }
+    else
+      s.files = s.files.reject! {|f| f =~ /pikl\.dll/ }
+    end
+    @spec = s
+  end
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+$hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.developer(AUTHOR, EMAIL)
+  p.description = DESCRIPTION
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = (PACKAGE_PLATFORM =~ /mswin32/) ? "#{GEM_NAME}-mswin32" : GEM_NAME
+  
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs |= ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  #p.extra_deps = []     # An array of rubygem dependencies [name, version], e.g. [ ['active_support', '>= 1.3.1'] ]
+  if PACKAGE_PLATFORM =~ /mswin32/
+    platform = Gem::Platform.new('mswin32')
+    p.spec_extras[:platform] = platform
+  else
+    p.spec_extras[:extensions] = ['ext/pikl/extconf.rb']
+  end
+   # A hash of extra values to set in the gemspec.
+end
+  
+CHANGES = $hoe.paragraphs_of('History.txt', 0..1).join("\\n\\n")
+PATH    = (RUBYFORGE_PROJECT == GEM_NAME) ? RUBYFORGE_PROJECT : "#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+$hoe.remote_rdoc_dir = File.join(PATH.gsub(/^#{RUBYFORGE_PROJECT}\/?/,''), 'rdoc')
+$hoe.rsync_args = '-av --delete --ignore-errors'
+
+
+
+
+

data/config/requirements.rb

@@ -0,0 +1,15 @@
+require 'fileutils'
+include FileUtils
+
+require 'rubygems'
+%w[rake hoe newgem rubigen].each do |req_gem|
+  begin
+    require req_gem
+  rescue LoadError
+    puts "This Rakefile requires the '#{req_gem}' RubyGem."
+    puts "Installation: gem install #{req_gem} -y"
+    exit
+  end
+end
+
+$:.unshift(File.join(File.dirname(__FILE__), %w[.. lib]))

data/ext/pikl/pikl.h

@@ -0,0 +1,264 @@
+/*! @file
+    @brief  image library "pikl"
+    simple image library
+    @author soe(soezimaster@gmail.com)
+    @date   2008.4
+*/
+#ifndef _LIB_PIKL_
+#define _LIB_PIKL_
+
+#ifdef WIN32
+	#define PKLExport __declspec(dllexport)
+	#define XMD_H
+#else
+	#define PKLExport
+#endif
+
+#if defined __cplusplus
+extern "C" {
+#endif
+
+/*! version */
+#define PKL_VERSION "libpikl 0.1"
+
+// PKLImage
+typedef struct _PKLImage * PKLImage;
+
+/*!
+	support format<br>
+	■JPEG:<br>
+		gray, rgb, cmyk<br>
+		* color-typeのYCbCrおよびYCCには読み取りも保存も対応していません。<br>
+	■PNG:<br>
+		gray,gray-alpha,rgb,rgb-alpha,palette<br>
+		* alphaは読取は可能ですが、保存はできません。<br>
+		* paletteはRGBとして扱われます。<br>
+	■BMP(windows bitmap):<br>
+		24bit only
+*/
+typedef enum {
+	PKL_FORMAT_ERROR,	/*!< error */
+	PKL_FORMAT_JPEG,	/*!< jpeg */
+	PKL_FORMAT_PNG,		/*!< png */
+	PKL_FORMAT_BITMAP	/*!< windows bitmap */
+} PKL_FORMAT;
+
+/*! color type */
+typedef enum {
+	PKL_UNKNOWN,		/*!< error */
+	PKL_BLACKWHITE,		/*!< non support */
+	PKL_GRAYSCALE,		/*!< gray scale */
+	PKL_RGB,			/*!< 24bit RGB */
+	PKL_RGBA,			/*!< non support */
+	PKL_YCbCr,			/*!< non support */
+	PKL_CMYK,			/*!< CMYK(for jpeg) */
+	PKL_YCCK			/*!< non support */
+} PKL_COLOR_SPACE;
+
+/*! right turn angle(for rotate) */
+typedef enum {
+	PKL_ANGLE_000,
+	PKL_ANGLE_090,
+	PKL_ANGLE_180,
+	PKL_ANGLE_270
+} PKL_ANGLE;
+
+/*!
+	sampling pattern(for resize)<br>
+	※全てのサンプリングパターンに拡大縮小対応しています。<br>
+	※但し、pixcel averageで拡大をする場合は、lanczosと品質は同じになります。
+*/
+typedef enum {
+	PKL_SAMPLE_ERROR,
+	PKL_SAMPLE_NN,	/*!< nearest neighbor */
+	PKL_SAMPLE_BL,	/*!< bilinear */
+	PKL_SAMPLE_BC,	/*!< bicubic */
+	PKL_SAMPLE_PA,	/*!< pixcel average */
+	PKL_SAMPLE_LZ	/*!< lanczos */
+} PKL_SAMPLE;
+
+//=============================================================================
+// method
+//=============================================================================
+/*!
+	PKLImageを構築します。<br>
+	エラーが発生した場合は、NULLが返ります。<br>
+	@param in [in] ロードする画像
+	@return 成功した場合は、PKLImageのポインタが返ります。失敗したときはNULLが返ります。
+*/
+PKLExport PKLImage pkl_open(const char *in);
+
+/*!
+	画像フォーマットを返します。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@return PKL_FORMAT参照
+*/
+PKLExport PKL_FORMAT pkl_format(PKLImage pkl);
+
+/*!
+	画像の幅を返します。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@return 画像の幅(ピクセル数)
+*/
+PKLExport int pkl_width(PKLImage pkl);
+
+/*!
+	画像の高さを返します。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@return 画像の高さ(ピクセル数)
+*/
+PKLExport int pkl_height(PKLImage pkl);
+
+/*!
+	トリミングします。<br>
+	・パラメータは左上原点です。<br>
+	・パラメータは左上原点です。<br>
+	・左上原点はsx=0, sy=0になります。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param sx [in] 切り出し位置(x)
+	@param sy [in] 切り出し位置(y)
+	@param width [in] sxからの切り出す幅(ピクセル数)
+	@param height [in] syからの切り出す高さ(ピクセル数)
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_trim(PKLImage pkl, int sx, int sy, int width, int height);
+
+/*!
+	左回り90度単位で回転します。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param angle [in] 回転角度(PKL_ANGLE参照)
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_rotate(PKLImage pkl, PKL_ANGLE angle);
+
+/*!
+	拡大・縮小します。<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param width [in] 横方向の変形後サイズ(ピクセル数)
+	@param height [in] 縦方向の変形後サイズ(ピクセル数)
+	@param sample [in] サンプリングパターン(PKL_SAMPLE参照)
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_resize(PKLImage pkl, int width, int height, PKL_SAMPLE sample);
+
+/*!
+	アンシャープ処理<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param threshold [in]
+		適応量。0から255の範囲で指定します。
+		0の時：変化しません。
+		255の時：全ての色にアンシャープ処理が働きます
+	@param edge [in]
+		エッジ。想定結果が得られる範囲は-10 .. 10程度です。
+		edge=0の時：変化しません。
+		edge>0の時：値が大きいほど先鋭化されます。
+		edge<0の時：値が小さいほどぼやけます。
+		
+		想定結果が得られる範囲は-10 .. 10程度です。
+		これを超える場合は、品質の保証はありません。
+		※画質によりこの通りではありません。-10..10の範囲より小さくなる可能性があります。
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_unsharp(PKLImage pkl, int threshold, double edge);
+
+/*!
+	コントラスト調整<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param rate [in]
+		調整係数。-127 .. 127の範囲で指定します。<br>
+		0の時：変化しません。
+		* rateが0以上の時は周波数によるコントラスト強調がおこなわれます。
+		* rateが0未満の時は直線的に平坦化されます。
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_contrast(PKLImage pkl, int rate);
+
+/*!
+	レベル補正<br>
+	ヒストグラムの平坦化をおこないます。各色の分布に偏りがある画像に有効な場合があります。
+	@param pkl [in] PKLImageオブジェクト
+	@param low [in]
+		全ピクセル数に対して、切り捨てる暗い色の総数の割合(0-100%)
+	@param high [in]
+		全ピクセル数に対して、切り捨てる明るい色の総数の割合(0-100%)
+	@param coeff [in]
+		平坦化時の係数。
+		1が標準です。1より小さい場合は暗く、1より大きい場合は明るくなります(0.0..2.0)
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_level(PKLImage pkl, double low, double high, double coeff);
+
+/*!
+	明るさ調整<br>
+	各色にcolor値を加算する単純な処理です。
+	@param pkl [in] PKLImageオブジェクト
+	@param color [in]
+		各色に加算する色。
+		255を指定すれば、ただの白い画像になります。
+		-255を指定すると、ただの黒い画像になります。
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_brightness(PKLImage pkl, int color);
+
+/*!
+	輝度(明るさ)・彩度(鮮やかさ)・色相(色合い)調整<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param ym [in]
+		輝度(-1..1)。
+		+0.1で10%up。
+		0.0は変化なし
+	@param sm [in]
+		彩度(-1..1)。
+		+0.1で10%up。
+		0.0は変化なし
+	@param hd [in]
+		色相(360度回転)。
+		360度の倍数では変化しません。
+		参考：R=113.2/Ye=173.0/G=225.0/Cy=293.2/B=353.0/Mg=45.0
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_hls(PKLImage pkl, double ym, double sm, double hd);
+
+/*!
+	ガンマ補正<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param gm [in]
+		補正係数(0.0以上の値が指定できます)。
+		1.0より小さい時は暗く、1.0より大きい時は明るく調整されます。
+		1.0を指定した時は調整されません。
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_gamma(PKLImage pkl, double gm);
+
+/*!
+	PNG/JPEG保存時の圧縮率<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param level [in]
+		0(無圧縮) .. 10(最高圧縮)。
+		指定がない場合は、デフォルトレベルが設定されます。
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_compress(PKLImage pkl, int level);
+
+/*!
+	保存<br>
+	@param pkl [in] PKLImageオブジェクト
+	@param out [in] 保存ファイル名
+	@param format [in] 保存フォーマット(PKL_FORMAT参照)
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport int pkl_save(PKLImage pkl, const char *out, PKL_FORMAT format);
+
+/*!
+	PKLImageオブジェクトの破棄<br>
+	確保していたメモリを全て解放します。用がなくなったら実行するようにしてください。
+	@param pkl [in] PKLImageオブジェクト
+	@return 成功した場合は0。失敗した場合は真を返します。
+*/
+PKLExport void pkl_close(PKLImage pkl);
+
+#if defined __cplusplus
+}
+#endif
+
+#endif

data/ext/pikl/pikl_bitmap.c

@@ -0,0 +1,152 @@
+#include "pikl_bitmap.h"
+
+static void bmp_header(unsigned char *data, int offset, int value, int size);
+static int convert_numeric(unsigned char *src, int size);
+static int color_b2p(int biBitCount);
+static int bmp_channel(int biBitCount);
+static int bmp_width(int width, int channel);
+
+//=============================================================================
+// load_bitmap
+//=============================================================================
+int load_bitmap(PKLImage pkl, FILE *image)
+{
+	unsigned char header[BF_SIZE + BI_SIZE];
+	unsigned char *p, stuck;
+	int i, j, offset, scansize;
+	
+	if( fread(header, 1, sizeof(header), image) != sizeof(header) ) return(1);
+
+	pkl->width   = convert_numeric(&header[18], 4);
+	pkl->height  = convert_numeric(&header[22], 4);
+	pkl->color   = color_b2p(convert_numeric(&header[28], 2));
+	pkl->channel = bmp_channel(convert_numeric(&header[28], 2));
+	if(pkl->color==PKL_UNKNOWN) return(1);
+	
+	pkl->image = malloc(pkl->width * pkl->height * pkl->channel);
+	if(!pkl->image) return(1);
+	
+	offset = convert_numeric(&header[10], 4);
+	scansize = bmp_width(pkl->width, pkl->channel);
+
+	p = pkl->image + ((pkl->height-1) * pkl->width * pkl->channel);
+	fseek(image, offset, SEEK_SET);
+	
+	for(i=0; i<pkl->height; i++){
+		fread(p, 1, pkl->width*pkl->channel, image);
+		for(j=0; j<pkl->width; j++){
+			stuck = p[j*pkl->channel];
+			p[j*pkl->channel] = p[j*pkl->channel+2];
+			p[j*pkl->channel+2] = stuck;
+		}
+		p -= pkl->width*pkl->channel;
+		offset += scansize;
+		fseek(image, offset, SEEK_SET);
+	}
+	
+	return(0);
+}
+
+//=============================================================================
+// color_b2p
+//	biBitCount = 1,4,8,16,24,32
+//=============================================================================
+static int color_b2p(int biBitCount)
+{
+	switch(biBitCount){
+		case 24:
+			return PKL_RGB;
+		default:
+			return PKL_UNKNOWN;
+	}
+	return PKL_UNKNOWN;
+}
+
+//=============================================================================
+// bmp_channel
+//	biBitCount = 1,4,8,16,24,32
+//=============================================================================
+static int bmp_channel(int biBitCount)
+{
+	switch(biBitCount){
+		case 24:
+			return 3;
+		default:
+			return 0;
+	}
+	return 0;
+}
+
+//=============================================================================
+// convert_nv
+//=============================================================================
+static int convert_numeric(unsigned char *src, int size)
+{
+	int i, dst=0;
+	for(i=0; i<size; i++){
+		dst += (src[i]<<(8*i));
+	}
+	return(dst);
+}
+
+//=============================================================================
+// bmp_width
+//=============================================================================
+static int bmp_width(int width, int channel)
+{
+	int length;
+	if( width*channel % 4 ){
+		length = width*channel + (4 - width*channel % 4);
+	}else{
+		length = width*channel;
+	}
+	return(length);
+}
+
+//=============================================================================
+// save_bitmap
+//=============================================================================
+int save_bitmap(PKLImage pkl, FILE *image)
+{
+	unsigned char data[BF_SIZE+BI_SIZE], *wrk, stuck;
+	int linesize, i, j;
+	
+	linesize = bmp_width(pkl->width, pkl->channel);
+	
+	data[0] = 'B';
+	data[1] = 'M';
+	bmp_header(data, 2, BF_SIZE + BI_SIZE + linesize*pkl->height, 4);
+	bmp_header(data, 6, 0, 4);
+	bmp_header(data, 10, BF_SIZE + BI_SIZE, 4);
+	bmp_header(data, 14, BI_SIZE, 4);
+	bmp_header(data, 18, pkl->width, 4);
+	bmp_header(data, 22, pkl->height, 4);
+	bmp_header(data, 26, 1, 2);
+	bmp_header(data, 28, 24, 2);
+	bmp_header(data, 30, 0, 24);
+	fwrite(data, 1, BF_SIZE+BI_SIZE, image);
+	
+	wrk = malloc(linesize);
+	for(i=pkl->height-1; i>=0; i--){
+		memcpy(wrk, &pkl->image[i*pkl->width*pkl->channel], pkl->width*pkl->channel);
+		for(j=0; j<pkl->width; j++){
+			stuck = wrk[j*pkl->channel];
+			wrk[j*pkl->channel] = wrk[j*pkl->channel+2];
+			wrk[j*pkl->channel+2] = stuck;
+		}
+		fwrite(wrk, 1, linesize, image);
+	}
+	free(wrk);
+	return(0);
+}
+
+//=============================================================================
+// bmp_header
+//=============================================================================
+static void bmp_header(unsigned char *data, int offset, int value, int size)
+{
+	int i;
+	for(i=0; i<size; i++){
+		data[offset+i] = (unsigned char)(value >> (8*i));
+	}
+}

data/ext/pikl/pikl_bitmap.h

@@ -0,0 +1,18 @@
+#ifndef _LIB_PIKL_BITMAP_
+#define _LIB_PIKL_BITMAP_
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "pikl.h"
+#include "pikl_private.h"
+
+#define BF_SIZE 14		//BITMAPFILEHEADER size
+#define BI_SIZE 40		//BITMAPINFOHEADER size
+
+int load_bitmap(PKLImage pkl, FILE *image);
+int save_bitmap(PKLImage pkl, FILE *image);
+
+#endif
+