retmx 0.0.1 → 0.0.2

data/lib/retmx.rb

@@ -6,7 +6,7 @@
 require 'rexml/document'
 require 'base64'
 require 'zlib'
-require 'csv'
+require 'stringio'
 
 module RETMX
   include REXML
@@ -246,7 +246,27 @@ When the object has a gid set, then it is represented by the image of the tile w
             @map.tilesets.each {|k, t|
               if t.firstgid <= cell.gid
                 cell.gid -= t.firstgid
-                block.call(bx, by, t, cell)
+                block.call(self, bx, by, t, cell)
+                break
+              end
+            }
+          }
+        }
+      end
+
+      #This function render partial of layer
+      #:x: offset in tiles
+      #:y: offset in tiles
+      #:w: in tiles
+      #:h: in tiles
+      def render_partial(x, y, w, h, &block)
+        h.times {|by|
+          w.times {|bx|
+            cell = @data[((by + y )  * @height) + (bx + x)]
+            @map.tilesets.each {|k, t|
+              if t.firstgid <= cell.gid
+                cell.gid -= t.firstgid
+                block.call(self, bx, by, t, cell)
                 break
               end
             }

data/lib/retmx_sdl.rb

@@ -0,0 +1,137 @@
+=begin
+#Libreria para leer archivo TMX de mapeditor.org
+ (C) 2011 Jovany Leandro G.C <info@manadalibre.org>
+
+  This file is part of retmx.
+
+    retmx is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    any later version.
+
+    retmx is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+=end
+
+
+require 'sdl'
+require 'retmx'
+
+module RETMX
+
+  #Wrapper for RETMX and RubySDL
+  class TMXSDL
+    attr_reader :tmx
+
+    def initialize(tmx)
+
+      case tmx
+      when Map
+        @tmx = tmx
+      when String
+        @tmx = RETMX.load(tmx)
+      else
+        raise RuntimeError, "Need a RETMX::Map or path to .tmx" unless tmx.kind_of? Map
+      end
+
+
+      @tileset_images = {}
+      @tmx.tilesets.each {|k,t|
+        if File.exists? t.image.source or !@tileset_imagen.include? t.name
+          image = SDL::Surface.load(t.image.source)
+          image.setColorKey(SDL::SRCCOLORKEY, t.image.trans.hex) unless t.image.trans.nil?
+          @tileset_images[t.name] = image
+        end
+      }
+    end
+
+
+    #Blit all layers to +surface+ at (+dx+, +dy+)
+    #:dx: on tiles
+    #:dy: on tiles
+    def put_layers(surface, dx, dy)
+      raise RuntimeError, "Need SDL::Surface" unless surface.kind_of? SDL::Surface
+
+      @tmx.layers.each {|name, l|
+        put_layer(name, surface, dx, dy)
+      }
+    end
+
+    #Perfoms a blit from entire layer +name+ to +surface+ at (+dx+, +dy+)
+    #:dx: on tiles
+    #:dy: on tiles
+    def put_layer (name, surface, dx, dy)
+      raise NameError, "Can get layer of name #{name}" unless @tmx.layers.include? name
+      raise RuntimeError, "Need SDL::Surface" unless surface.kind_of? SDL::Surface
+
+      @tmx.layers[name].render {|layer, bx, by, tileset, index|
+        pos = tileset.at(index)
+        alpha_now = @tileset_images[tileset.name].alpha
+        image = @tileset_images[tileset.name]
+        image.setAlpha(SDL::SRCALPHA, layer.opacity * SDL::ALPHA_OPAQUE)
+
+        x =  tileset.tilewidth * (bx + dx)
+        y =  tileset.tileheight * (by + dy)
+
+        SDL::Surface.blit(image, pos.x, pos.y, pos.w, pos.h, surface, x, y)
+        image.setAlpha(SDL::SRCALPHA, alpha_now)
+      }
+    end
+
+    #Perfoms a blit from layer at (+sx+,+sy+,+sw+,+sh+) to +surface+ at (+dx+, +dy)
+    #:sx: on tiles
+    #:sy: on tiles
+    #:sw: on tiles
+    #:sh: on tiles
+    #:dx: on tiles
+    #:dy: on tiles
+    def blit_layer(name, sx, sy, sw, sh, surface, dx, dy)
+      raise NameError, "Can get layer of name #{name}" unless @tmx.layers.include? name
+      raise RuntimeError, "Need SDL::Surface" unless surface.kind_of? SDL::Surface
+
+      @tmx.layers[name].render_partial(sx, sy, sw, sh) { |layer, bx, by, tileset, index|
+        pos = tileset.at(index)
+        alpha_now = @tileset_images[tileset.name].alpha
+        image = @tileset_images[tileset.name]
+        image.setAlpha(SDL::SRCALPHA, layer.opacity * SDL::ALPHA_OPAQUE)
+
+        x =  tileset.tilewidth * (bx + dx)
+        y =  tileset.tileheight * (by + dy)
+
+        SDL::Surface.blit(image, pos.x, pos.y, pos.w, pos.h, surface, x, y)
+        image.setAlpha(SDL::SRCALPHA, alpha_now)
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+
+  abort "#{$0}: <file .tmx>" if ARGV.size != 1
+
+
+  SDL.init(SDL::INIT_VIDEO)
+  $quit = false
+
+  tmx = RETMX.load(ARGV[0])
+  tmxsdl = RETMX::TMXSDL.new(tmx)
+
+  $screen = SDL.setVideoMode(tmx.width * tmx.tilewidth, tmx.height * tmx.tileheight, 0, 0)
+
+  #Blit specific layer
+  #tmxsdl.blit_layer('Ground', 0,0,8,8, $screen, 0, 0)
+  tmxsdl.put_layers($screen, 0, 0)
+  $screen.flip
+  until $quit
+    e = SDL::Event.wait
+    case e
+    when SDL::Event::Quit
+      $quit = true
+    end
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: retmx
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -18,6 +18,7 @@ extensions: []
 extra_rdoc_files: []
 files:
 - lib/retmx.rb
+- lib/retmx_sdl.rb
 homepage: https://www.manadalibre.org/desarrollos/doku.php?id=videojuegos:librerias:retmx
 licenses: []
 post_install_message: