gale 0.0.1alpha-x86-mingw32

data/README.md

@@ -0,0 +1,45 @@
+Gale
+====
+
+Ruby gem to read info and data from a Graphics Gale (.gal) animation file.
+
+Note: Only works on Windows and requires the Graphics Gale DLL (galefile.dll),
+available for download from http://www.humanbalance.net/gale/us/
+(I have to ask for permission to distribute it with the gem, but haven't had a reply yet).
+
+* Author: Spooner / Bil Bas (bil.bagpuss@gmail.com)
+* License: MIT
+
+Installation
+------------
+
+    gem install gale
+
+Examples
+--------
+
+    # By default, gale has no external dependencies, but can only export bitmaps.
+    require 'gale'
+    animation = Gale::File.open "jumping.gal" do
+      puts animation.size                                           #=> 3, which is the number of frames.
+      puts [animation.width, animation.height]                      #=> [64, 32]
+      puts animation[0].name                                        #=> "Dog getting ready to jump"
+      puts animation[0][0].name                                     #=> "Dog's Body"
+      animation[0].export_bitmap "jump_0.bmp"                       # Saves the first frame as a bitmap.
+      animation[0][0].export_alpha_channel "jump_0_0_alpha.bmp"     # Saves the first layer's alpha channel
+      animation[0][0].export_bitmap "jump_0_0.bmp"                  # Saves the first layer as a bitmap.
+      animation.export_yaml "jump.yml", [:name, :delay]             # Saves a YAML data file containing info about each frame.
+    end
+
+    # If using Gosu/TexPlay, then it is possible to export directly to a Gosu::Image, with transparency.
+    require 'gale/gosu' # Will require the gosu and texplay gems for you.
+    animation = Gale::File.open "jumping.gal" do
+      gosu_frame = animation[0].to_image                            #=> a Gosu::Image, being the first frame.
+      gosu_layer = animation[0][0].to_image                         #=> a Gosu::Image, being the first layer.
+      gosu_frames = animation.map {|f| f.to_image }                 #=> Array of Gosu::Image, one for each frame.
+
+      gosu_spritesheet = animation.to_spritesheet                   #=> a Gosu::Image, being a horizontal series of frames.
+      gosu_spritesheet.save "jumping.png"                           # Gosu images can be saved in png or bmp format.
+
+      gosu_color = Gosu::Color.from_gale animation.background_color #=> a Gosu::Color
+    end

data/lib/gale.rb

@@ -0,0 +1,5 @@
+require 'gale/dll'
+
+require 'gale/layer'
+require 'gale/frame'
+require 'gale/file'

data/lib/gale/dll.rb

@@ -0,0 +1,244 @@
+require 'ffi'
+
+ENV['PATH'] = File.expand_path("../../../bin", __FILE__) + File::PATH_SEPARATOR + ENV['PATH']
+
+module Gale
+  # Directly exposes galefile.dll to Ruby
+  module Dll
+    extend FFI::Library
+
+    ffi_lib 'galefile'
+    ffi_convention :stdcall
+
+    # Sensible size for string buffer.
+    STRING_BUFFER_SIZE = 256
+
+    TRUE = 1
+
+    # Returned by #last_error (ggGetLastError)
+    module Error
+      NONE = 0
+      FILE_NOT_FOUND = 1      # File does not exist.
+      BAD_FORMAT = 2          # File format is invalid.
+      CANNOT_BE_CLOSED = 3    # File can not be closed.
+      INVALID_ADDRESS = 4     # The address of gale object is invalid.
+      PARAMETER_INVALID = 5   # Parameter is invalid.
+    end
+    
+    # Passed to #info (ggGetInfo)
+    module Info
+      BACKGROUND_COLOR = 1      # Return value is background-color.
+      PALETTE_SINGLE = 2        # If the palette is single, return value is 1.
+      TRANSPARENCY_DISABLED = 3 # If the transparency of bottom layer is disabled, return value is 1.
+      BPP = 4                   # Return value is bpp(1,4,8,15,16,24).
+      WIDTH = 5                 # Return value is width of image by pixel.
+      HEIGHT = 6                # Return value is height of image by pixel.
+    end
+
+    # Passed to #frame_info (ggGetFrameInfo)
+    module FrameInfo
+      TRANSPARENT_COLOR = 1 # Return value is the transparent color.
+      DELAY_MS = 2 # Return value is the delay by milli-second.
+      DISPOSAL = 3 # Return value is the disposal type after display.
+
+      # Returned by #frame_info (ggGetFrameInfo)
+      module Disposal
+        NOT_SPECIFIED = 0 # Not specified.
+        NOT_DISPOSED = 1 # Not disposed.
+        BACKGROUND_FILL = 2 # Filled by the background-color.
+        RESTORE_PREVIOUS = 3 # Restored to previous state.
+      end
+    end
+
+    # Passed to #layer_info (ggGetLayerInfo)
+    module LayerInfo
+      VISIBLE = 1           # If the layer is visible, return value is 1.
+      TRANSPARENT_COLOR = 2 # Return value is the transparent color.
+      OPACITY = 3           # Return value is the opacity(0~255).
+      ALPHA_CHANNEL = 4     # If the alpha-channel is effective, return value is 1
+    end
+
+    # LPVOID __stdcall ggOpen(LPCSTR apath);
+    # Opens a gal file.
+    # @param Filename [String] of the gal file.
+    # @return     If the function succeeds, the return value is the address of the gale object. The gale object must be deleted by ggClose. If the function fails, the return value is NULL.
+    attach_function :open, :ggOpen, [:string], :pointer
+
+    # LONG __stdcall ggClose(LPVOID pFile);
+    # Deletes a gale object.
+    # @param pFile The address of the gale object.
+    # @return If the function succeeds, the return value is 1. If the function fails, the return value is 0.
+    attach_function :close, :ggClose, [:pointer], :bool
+
+    #DWORD __stdcall ggGetLastError(void);
+    #Contents:   Retrieves the latest error code.
+    #Parameters: Nothing.
+    #Return:     Error code.
+    #        1 = File does not exist.
+    #        2 = File format is invalid.
+    #        3 = File can not be closed.
+    #        4 = The address of gale object is invalid.
+    #        5 = Parameter is invalid.
+    attach_function :last_error, :ggGetLastError, [], :uint
+
+    # DWORD __stdcall ggGetFrameCount(LPVOID pFile);
+    # Contents:   Retrieves number of frame.
+    # Parameters: pFile = The address of the gale object.
+    # Return:     If the function succeeds, the return value is number of frame.
+    #             If the function fails, the return value is 0.
+    attach_function :frame_count, :ggGetFrameCount, [:pointer], :uint
+
+    # DWORD __stdcall ggGetLayerCount(LPVOID pFile,LONG frameNo);
+    # Contents:   Retrieves number of layer.
+    # Parameters: pFile = The address of the gale object.
+    # frameNo = The frame index which begin from zero.
+    # Return:     If the function succeeds, the return value is number of
+    #             layer of specified frame.
+    #             If the function fails, the return value is 0.
+    attach_function :layer_count, :ggGetLayerCount, [:pointer, :long], :uint
+
+    # LONG __stdcall ggGetInfo(LPVOID pFile,LONG nID);
+    # Contents:   Retrieves information of gale object.
+    # Parameters: pFile = The address of the gale object.
+    #             nID = Specifies information ID.
+    # 1 = Return value is background-color.
+    # 2 = If the palette is single, return value is 1.
+    # 3 = If the transparency of bottom layer is disabled,
+    #    return value is 1.
+    # 4 = Return value is bpp(1,4,8,15,16,24).
+    # 5 = Return value is width of image by pixel.
+    # 6 = Return value is height of image by pixel.
+    # Return:     See the Parameters.
+    attach_function :info, :ggGetInfo, [:pointer, :long], :long
+
+    # LONG __stdcall ggGetFrameInfo(LPVOID pFile,LONG frameNo,LONG nID);
+    # Contents:   Retrieves information of specified frame.
+    # Parameters: pFile = The address of the gale object.
+    # frameNo = The frame index which begin from zero.
+    # nID = Specifies information ID.
+    # 1 = Return value is the transparent color.
+    # 2 = Return value is the delay by milli-second.
+    # 3 = Return value is the disposal type after display.
+    #   0 = Not specified.
+    #   1 = Not disposed.
+    #   2 = Filled by the background-color.
+    #   3 = Restored to previous state.
+    # Return:     See the Parameters.
+    attach_function :frame_info, :ggGetFrameInfo, [:pointer, :long, :long], :long
+
+    # LONG __stdcall ggGetFrameName(LPVOID pFile,LONG frameNo,LPSTR pName,LONG len);
+    # Contents:   Retrieves the name of specified frame.
+    # Parameters: pFile = The address of the gale object.
+    #             frameNo = The frame index which begin from zero.
+    #             pName = The address of string buffer that receives the
+    #                     null-terminated string specifying the name.
+    #                     If it is NULL, return value is necessary size of
+    #                     buffer.
+    #             len = Specifies the size in byte of the buffer.
+    # Return: If the function succeeds, the return value is the length in
+    #         byte, of the string copied to pName.
+    #         If the function fails, the return value is 0.
+    attach_function :frame_name, :ggGetFrameName, [:pointer, :long, :buffer_out, :long], :long
+
+    # LONG __stdcall ggGetLayerInfo(LPVOID pFile,LONG frameNo,LONG layerNo,LONG nID);
+    # Contents:   Retrieves information of specified layer.
+    # Parameters: pFile = The address of the gale object.
+    #             frameNo = The frame index which begin from zero.
+    #             layerNo = The layer index which begin from zero.
+    #             nID = Specifies information ID.
+    #                   1 = If the layer is visible, return value is 1.
+    #                   2 = Return value is the transparent color.
+    #                   3 = Return value is the opacity(0~255).
+    #                   4 = If the alpha-channel is effective, return value is 1
+    # Return:     See the Parameters.
+    attach_function :layer_info, :ggGetLayerInfo, [:pointer, :long, :long, :long], :long
+
+    # LONG __stdcall ggGetLayerName(LPVOID pFile,LONG frameNo,LONG layerNo,LPSTR pName,LONG len);
+    # Contents:   Retrieves the name of specified layer.
+    # Parameters: pFile = The address of the gale object.
+    #             frameNo = The frame index which begin from zero.
+    #             layerNo = The layer index which begin from zero.
+    #             pName = The address of string buffer that receives the
+    #                     null-terminated string specifying the name.
+    #                     If it is NULL, return value is necessary size of
+    #                     buffer.
+    #            len = Specifies the size in byte of the buffer.
+    # Return:     If the function succeeds, the return value is the length in
+    #             byte, of the string copied to pName.
+    #             If the function fails, the return value is 0.
+    attach_function :layer_name, :ggGetLayerName, [:pointer, :long, :long, :buffer_out, :long], :long
+
+    # HBITMAP __stdcall ggGetBitmap(LPVOID pFile,LONG frameNo,LONG layerNo);
+    # Contents:   Retrieves the handle of bitmap of specified frame and
+    #            layer. The handle must not be deleted.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #              layerNo = The layer index which begin from zero.
+    #                        If it is -1, combined image is retrieved.
+    # Return:     If the function succeeds, the return value is the handle of
+    # bitmap.
+    # If the function fails, the return value is 0.
+    #attach_function :bitmap, :ggGetBitmap, [:pointer, :long, :long], :pointer
+
+
+    #HBITMAP __stdcall ggGetAlphaChannel(LPVOID pFile,LONG frameNo,LONG layerNo);
+    #  Contents:   Retrieves the handle of bitmap of alpha channel of specified
+    #              frame and layer. The handle must not be deleted.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #              layerNo = The layer index which begin from zero.
+    #  Return:     If the function succeeds, the return value is the handle of
+    #              bitmap.
+    #              If the function fails, the return value is 0.
+    #attach_function :alpha_channel, :ggGetAlphaChannel, [:pointer, :long, :long], :pointer
+
+
+    #HPALETTE __stdcall ggGetPalette(LPVOID pFile,LONG frameNo);
+    #  Contents:   Retrieves the handle of palette of specified frame.
+    #              The handle must not be deleted.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #  Return:     If the function succeeds, the return value is the handle of
+    #              palette.
+    #              If the function fails, the return value is 0.
+    #attach_function :palette, :ggGetPalette, [:pointer, :long], :pointer
+
+
+    #LONG __stdcall ggDrawBitmap(LPVOID pFile,LONG frameNo,LONG layerNo,HDC toDC,LONG toX,LONG toY);
+    #  Contents:   Draws the image of specified frame and layer to specified
+    #              device context.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #              layerNo = The layer index which begin from zero.
+    #                        If it is -1, combined image is retrieved.
+    #              toDC = The handle of device context of the destination.
+    #              toX = Specifies the x-coordinate of the destination.
+    #              toY = Specifies the y-coordinate of the destination.
+    #  Return:     If the function succeeds, the return value is 1.
+    #              If the function fails, the return value is 0.
+
+    #LONG __stdcall ggExportBitmap(LPVOID pFile,LONG frameNo,LONG layerNo,LPCSTR outPath);
+    #  Contents:   Creates a bmp file from the image of specified frame and
+    #              layer.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #              layerNo = The layer index which begin from zero.
+    #                        If it is -1, combined image is created.
+    #              outPath = The filename for output.
+    #  Return:     If the function succeeds, the return value is 1.
+    #              If the function fails, the return value is 0.
+    attach_function :export_bitmap, :ggExportBitmap, [:pointer, :long, :long, :string], :long
+    
+
+    #LONG __stdcall ggExportAlphaChannel(LPVOID pFile,LONG frameNo,LONG layerNo,LPCSTR outPath);
+    #  Contents:   Creates a bmp file from the alpha channel of specified frame
+    #              and layer.
+    #  Parameters: pFile = The address of the gale object.
+    #              frameNo = The frame index which begin from zero.
+    #              layerNo = The layer index which begin from zero.
+    #              outPath = The filename for output.
+    #  Return:     If the function succeeds, the return value is 1.
+    #              If the function fails, the return value is 0.
+    attach_function :export_alpha_channel, :ggExportAlphaChannel, [:pointer, :long, :long, :string], :long
+  end
+end

data/lib/gale/file.rb

@@ -0,0 +1,105 @@
+require 'yaml'
+
+module Gale
+  class FormatError < StandardError; end
+
+  # A GraphicsGale image, containing Frames and Layers.
+  class File
+    include Enumerable
+
+    # Just for use by Frame/Layer
+    attr_reader :handle
+    protected :handle
+
+    class << self
+      alias_method :open, :new
+    end
+
+    def initialize(filename)
+      @handle = Dll.open filename
+      if @handle.null?
+        case Dll.last_error
+          when Dll::Error::FILE_NOT_FOUND
+            raise Errno::ENOENT, "File not found: #{filename}"
+          when Dll::Error::BAD_FORMAT
+            raise FormatError, "File not in GraphicsGale format: #{filename}"
+          else
+            raise "Unknown error opening: #{filename}"
+        end
+      end
+
+      num_frames = Dll.frame_count @handle
+      @frames = num_frames.times.map {|i| Frame.new self, i }
+
+      if block_given?
+        begin
+          yield self
+        ensure
+          close
+        end
+      end
+    end
+
+    def each_frame(&block)
+      @frames.each(&block)
+    end
+
+    alias_method :each, :each_frame
+
+    def size
+      @frames.size
+    end
+
+    def [](frame_index)
+      @frames[frame_index]
+    end
+
+    def close
+      Dll.close @handle
+      @handle = nil
+    end
+    
+    def height; @height ||= Dll.info @handle, Dll::Info::HEIGHT; end
+    def width; @width ||= Dll.info @handle, Dll::Info::WIDTH; end
+    def bits_per_pixel; @bits_per_pixel ||= Dll.info @handle, Dll::Info::BPP; end
+
+    def background_color
+      @background_color ||= Dll.info @handle, Dll::Info::BACKGROUND_COLOR
+    end
+
+    def transparency_disabled?
+      @transparency_disabled ||= begin
+        value = Dll.info @handle, Dll::Info::TRANSPARENCY_DISABLED
+        value == Dll::TRUE
+      end
+    end
+
+    def palette_single?
+      @palette_single ||= begin
+        value = Dll.info @handle, Dll::Info::PALETTE_SINGLE
+        value == Dll::TRUE
+      end
+    end
+
+    # @param properties [Array<Symbol>] One or more of [:name, :transparent_color, :transparent_color_hex, :delay, :disposal]
+    def export_yaml(filename, properties)
+      data = @frames.map do |frame|
+        frame_data = {}
+        frame_data[:name] = "".sub(//, frame.name)               if properties.include? :name
+
+        hex_color = frame.transparent_color? ? ("%06x" % frame.transparent_color) : nil
+        frame_data[:transparent_color] = frame.transparent_color if properties.include? :transparent_color
+        frame_data[:transparent_color_hex] = hex_color           if properties.include? :transparent_color_hex
+
+        frame_data[:delay] = frame.delay                         if properties.include? :delay
+        frame_data[:disposal] = frame.disposal                   if properties.include? :disposal
+
+        raise ArgumentError, "Must specify at least some :properties to export" if frame_data.empty?
+
+        frame_data
+      end
+
+      ::File.open(filename, "w") {|f| f.puts data.to_yaml }
+    end
+  end
+end

data/lib/gale/frame.rb

@@ -0,0 +1,77 @@
+module Gale
+  class Frame
+    include Enumerable
+    attr_reader :file, :index
+
+    def initialize(file, index)
+      @file, @index = file, index
+
+      num_layers = Dll.layer_count file.send(:handle), index
+      @layers = num_layers.times.map {|i| Layer.new file, self, i }
+    end
+
+    def each_layer(&block)
+      @layers.each(&block)
+    end
+
+    alias_method :each, :each_layer
+
+    def size
+      @layers.size
+    end
+
+    def [](layer_index)
+      @layers[layer_index]
+    end
+
+    def name
+      @name ||= begin
+        buffer = FFI::Buffer.new Dll::STRING_BUFFER_SIZE
+        length = Dll.frame_name file.send(:handle), index, buffer, buffer.size
+        buffer.get_string 0, length
+      end
+    end
+
+    def delay
+      @delay ||= Dll.frame_info file.send(:handle), index, Dll::FrameInfo::DELAY_MS
+    end
+
+    # @return [Integer, nil] 0xRRGGBB or nil if transparency disabled.
+    def transparent_color
+      @transparent_color ||= begin
+        value = Dll.frame_info file.send(:handle), index, Dll::FrameInfo::TRANSPARENT_COLOR
+        (value == -1) ? nil : value
+      end
+    end
+
+    # @return [Boolean] true if a transparent color has been set.
+    def transparent_color?
+      not transparent_color.nil?
+    end
+
+    # @return [:none, :no_disposal, :background, :previous]
+    def disposal
+      @disposal ||= begin
+        value = Dll.frame_info file.send(:handle), index, Dll::FrameInfo::DISPOSAL
+        case value
+          when Dll::FrameInfo::Disposal::NOT_SPECIFIED
+            :none
+          when Dll::FrameInfo::Disposal::NOT_DISPOSED
+            :no_disposal
+          when Dll::FrameInfo::Disposal::BACKGROUND_FILL
+            :background
+          when Dll::FrameInfo::Disposal::RESTORE_PREVIOUS
+            :previous
+          else
+            raise "Unknown disposal value #{value}"
+        end
+      end
+    end
+
+    def export_bitmap(filename)
+      result = Dll.export_bitmap file.send(:handle), index, -1, filename
+      raise "Export failed" if result == 0
+      nil
+    end
+  end
+end

data/lib/gale/gosu.rb

@@ -0,0 +1,134 @@
+require 'tempfile'
+
+require 'gosu'
+require 'texplay'
+
+require 'gale'
+
+module Gosu
+  class Color
+    class << self
+      # Create Color from an opaque color from a Graphics Gale file.
+      # @param color [Integer] 0xrrggbb
+      def from_gale(color)
+        rgb (color >> 16) & 0xff, (color >> 8) & 0xff, color & 0xff
+      end
+    end
+  end
+end
+
+module Gale
+  class File
+    # Create a sprite-sheet from the frames in the File. By default, this will be a horizontal strip.
+    #
+    # @option :columns [Integer] (#size) Number of columns to use. Will leave excess columns empty.
+    # @option :window [Gosu::Window] ($window) Window used to create the image.
+    # @return Gosu::Image
+    def to_spritesheet(options = {})
+      options = {
+          :columns => size,
+          :window => $window,
+      }.merge! options
+
+      columns = options[:columns]
+      rows = size.fdiv(columns).ceil
+
+      sheet = TexPlay.create_image options[:window], columns * width, rows * height, :caching => true
+
+      each do |frame|
+        row, column = frame.index.divmod columns
+        sheet.splice frame.to_image, column * width, row * height
+      end
+      sheet
+    end
+  end
+
+  class Frame
+    # @option :window [Gosu::Window] ($window) Window used to create the image.
+    # @return Gosu::Image
+    def to_image(options = {})
+      options = {
+          :window => $window,
+      }.merge! options
+
+      # Hack because I have no idea how to make #to_blob properly.
+      bitmap = Tempfile.new 'gale_bitmap'
+      image = nil
+      begin
+        bitmap.close # Don't actually use it directly, since we are going to overwrite it.
+        export_bitmap bitmap.path
+
+        image = Gosu::Image.new options[:window], bitmap.path, :caching => true
+        # TODO: Should use disposal to add a background or whatever.
+
+        if transparent_color?
+          # We want only to clear the alpha channel, not the whole bit to transparent black.
+          color_to_replace = Gosu::Color.from_gale(transparent_color)
+          replace_with = color_to_replace.dup
+          replace_with.alpha = 0
+          image.clear :dest_select => color_to_replace, :tolerance => 0.001, :color => replace_with
+        end
+      ensure
+        bitmap.unlink
+      end
+
+      image
+    end
+  end
+
+  class Layer
+    # @option :window [Gosu::Window] ($window) Window used to create the image.
+    # @return Gosu::Image
+    def to_image(options = {})
+      options = {
+          :window => $window,
+      }.merge! options
+
+      # Hack because I have no idea how to make #to_blob properly.
+      bitmap = Tempfile.new 'gale_bitmap'
+      alpha_channel = alpha_channel? ? Tempfile.new('gale_alpha_channel') : nil
+      image = nil
+      begin
+        bitmap.close # Don't actually use it directly, since we are going to overwrite it.
+        export_bitmap bitmap.path
+
+        if alpha_channel
+          alpha_channel.close
+          export_alpha_channel alpha_channel.path
+        end
+
+        image = Gosu::Image.new options[:window], bitmap.path, :caching => true
+        if alpha_channel?
+          # Multiply by alpha channel image.
+          ac_image = Gosu::Image.new options[:window], alpha_channel.path, :caching => true
+          image.splice ac_image, 0, 0, :color_control => lambda {|pixel, alpha|
+            # alpha will be black to white (transparent to opaque).
+            pixel[3] *= alpha[0]
+            pixel
+          }
+        end
+
+        if transparent_color?
+          color_to_replace = Gosu::Color.from_gale(transparent_color)
+          replace_with = color_to_replace.dup
+          replace_with.alpha = 0
+          image.clear :dest_select => color_to_replace, :tolerance => 0.001, :color => replace_with
+        end
+
+        # Fade out if opacity is low.
+        if opacity < 255
+          factor = opacity / 255.0
+          image.each do |c|
+            c[3] *= factor
+            c
+          end
+        end
+      ensure
+        bitmap.unlink
+        alpha_channel.unlink if alpha_channel
+      end
+
+      image
+    end
+  end
+end

data/lib/gale/layer.rb

@@ -0,0 +1,56 @@
+module Gale
+  class Layer
+    attr_reader :file, :frame, :index
+
+    def initialize(file, frame, index)
+      @file, @frame, @index = file, frame, index
+    end
+
+    def name
+      @name ||= begin
+        buffer = FFI::Buffer.new Dll::STRING_BUFFER_SIZE
+        length = Dll.layer_name file.send(:handle), frame.index, index, buffer, buffer.size
+        buffer.get_string 0, length
+      end
+    end
+
+    def visible?
+      @visible ||= Dll.layer_info(file.send(:handle), frame.index, index, Dll::LayerInfo::VISIBLE) == Dll::TRUE
+    end
+
+    def alpha_channel?
+      @alpha_channel ||= Dll.layer_info(file.send(:handle), frame.index, index, Dll::LayerInfo::ALPHA_CHANNEL) == Dll::TRUE
+    end
+
+    # Layer opacity
+    # @return [Integer] 0..255 for transparent to opaque.
+    def opacity
+      @opacity ||= Dll.layer_info file.send(:handle), frame.index, index, Dll::LayerInfo::OPACITY
+    end
+
+    # @return [Integer, nil] 0xRRGGBB or nil if transparency disabled.
+    def transparent_color
+      @transparent_color ||= begin
+        value = Dll.layer_info file.send(:handle), frame.index, index, Dll::LayerInfo::TRANSPARENT_COLOR
+        value == -1 ? nil : value
+      end
+    end
+
+    # @return [Boolean] true if a transparent color has been set.
+    def transparent_color?
+      not transparent_color.nil?
+    end
+
+    def export_bitmap(filename)
+      result = Dll.export_bitmap file.send(:handle), frame.index, index, filename
+      raise "Export failed" if result == 0
+      nil
+    end
+
+    def export_alpha_channel(filename)
+      result = Dll.export_alpha_channel file.send(:handle), frame.index, index, filename
+      raise "Export failed" if result == 0
+      nil
+    end
+  end
+end

data/lib/gale/version.rb

@@ -0,0 +1,3 @@
+module Gale
+  VERSION = "0.0.1alpha"
+end

metadata

@@ -0,0 +1,123 @@
+--- !ruby/object:Gem::Specification
+name: gale
+version: !ruby/object:Gem::Version
+  version: 0.0.1alpha
+  prerelease: 5
+platform: x86-mingw32
+authors:
+- Bil Bas (Spooner)
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-02-24 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ffi
+  requirement: &28062996 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.0.11
+  type: :runtime
+  prerelease: false
+  version_requirements: *28062996
+- !ruby/object:Gem::Dependency
+  name: gosu
+  requirement: &28062120 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.7.41
+  type: :development
+  prerelease: false
+  version_requirements: *28062120
+- !ruby/object:Gem::Dependency
+  name: texplay
+  requirement: &28039068 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.3.5
+  type: :development
+  prerelease: false
+  version_requirements: *28039068
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: &28038240 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.9.2.2
+  type: :development
+  prerelease: false
+  version_requirements: *28038240
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: &28037304 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.8.0
+  type: :development
+  prerelease: false
+  version_requirements: *28037304
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: &28036752 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.6.0
+  type: :development
+  prerelease: false
+  version_requirements: *28036752
+description: 
+email:
+- bil.bagpuss@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/gale/dll.rb
+- lib/gale/file.rb
+- lib/gale/frame.rb
+- lib/gale/gosu.rb
+- lib/gale/layer.rb
+- lib/gale/version.rb
+- lib/gale.rb
+- README.md
+homepage: http://spooner.github.com/libraries/gale/
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 93171905
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>'
+    - !ruby/object:Gem::Version
+      version: 1.3.1
+requirements: []
+rubyforge_project: gale
+rubygems_version: 1.8.16
+signing_key: 
+specification_version: 3
+summary: Read Graphics Gale (.gal) files
+test_files: []