texplay 0.2.1-x86-mswin32-60

data/examples/test.rb

@@ -0,0 +1,70 @@
+require 'common'
+require 'gosu'
+require 'texplay'
+
+class MyWindow < Gosu::Window
+    def initialize
+        super(1024, 768, false, 20)
+
+        # image for texture filling
+        @gosu = Gosu::Image.new(self,"#{Common::MEDIA}/gosu.png")
+
+        # images for testing
+        @unchanged = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png")  
+        @simple = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png")  
+        @polyline = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+        @bezier = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+        @flood_fill = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+
+        # height and width
+        @width = @simple.width
+        @height = @simple.height
+
+        # initializations
+        setup_simple
+        setup_polyline
+        setup_bezier
+        setup_flood_fill
+
+    end
+
+    def setup_simple
+        @simple.line 0, 0, 1024, 1024
+        @simple.rect 0,0, @width - 1, @height - 1
+        @simple.circle @simple.width/2, @simple.height/2, 30
+    end
+
+    def setup_polyline
+        @polyline.polyline [0, 0, @width / 2, @height - 1, @width - 1, 0]
+    end
+
+    def setup_bezier
+        points = []
+        10.times {
+            point = []
+            point[0] = @width * rand
+            point[1] = @height * rand
+
+            points += point
+        }
+        @bezier.bezier points
+    end
+
+    def setup_flood_fill
+        @flood_fill.fill 100, 96, :color => :random, :scan => true
+    end
+
+    def draw
+
+        @simple.draw(20, 10, 1)
+        @polyline.draw(20, 210, 1)
+        @bezier.draw(20, 410, 1)
+        @flood_fill.draw(400, 10, 1)
+
+    end
+end
+
+w = MyWindow.new
+w.show
+
+    

data/examples/test2.rb

@@ -0,0 +1,72 @@
+require 'common'
+require 'gosu'
+require 'texplay'
+
+class MyWindow < Gosu::Window
+    def initialize
+        super(1024, 768, false, 20)
+
+        # image for texture filling
+        @gosu = Gosu::Image.new(self,"#{Common::MEDIA}/gosu.png")
+
+        # images for testing
+        @unchanged = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png")  
+        @simple = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png")  
+        @polyline = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+        @bezier = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+        @flood_fill = Gosu::Image.new(self,"#{Common::MEDIA}/texplay.png") 
+
+        # height and width
+        @width = @simple.width
+        @height = @simple.height
+
+        # initializations
+        setup_simple
+        setup_polyline
+        setup_bezier
+        setup_flood_fill
+
+    end
+
+    def setup_simple
+        @simple.line 0, 0, 1024, 1024
+        @simple.rect 0,0, @width - 1, @height - 1
+        @simple.circle @simple.width/2, @simple.height/2, 30
+    end
+
+    def setup_polyline
+        @polyline.polyline [0, 0, @width / 2, @height - 1, @width - 1, 0]
+    end
+
+    def setup_bezier
+        points = []
+        10.times {
+            point = []
+            point[0] = @width * rand
+            point[1] = @height * rand
+
+            points += point
+        }
+        @bezier.bezier points
+    end
+
+    def setup_flood_fill
+        @flood_fill.fill 100, 96, :color => :random
+    end
+
+    def draw
+
+        @simple.draw(20, 10, 1)
+        @polyline.draw(20, 210, 1)
+        @bezier.draw(20, 410, 1)
+        @flood_fill.draw(400, 10, 1)
+
+        @polyline.paint
+
+    end
+end
+
+w = MyWindow.new
+w.show
+
+    

data/lib/texplay-contrib.rb

@@ -0,0 +1,77 @@
+begin
+    require 'rubygems'
+rescue LoadError
+end
+
+require 'texplay'
+
+# setup will be executed straight after Gosu::Image instantiation
+TexPlay.on_setup do
+    @turtle_pos = TexPlay::TPPoint.new(width / 2, height / 2 )
+    @turtle_angle = 0
+end
+
+TexPlay.create_macro(:move_to) do |x, y|
+    capture { 
+        @turtle_pos.x = x
+        @turtle_pos.y = y
+    }
+end
+
+TexPlay.create_macro(:move_rel) do |dx, dy|
+    capture { 
+        @turtle_pos.x += dx
+        @turtle_pos.y += dy
+    }
+end
+
+TexPlay.create_macro(:line_to) do |x, y, *other|
+    capture { 
+        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
+
+        @turtle_pos.x, @turtle_pos.y = x, y
+    }
+end
+
+TexPlay.create_macro(:line_rel) do |dx, dy, *other|
+    capture { 
+        x = @turtle_pos.x + dx
+        y = @turtle_pos.y + dy
+
+        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
+
+        @turtle_pos.x, @turtle_pos.y = x, y
+    }
+end
+
+TexPlay.create_macro(:turn_to) do |a|
+    capture {
+        @turtle_angle = a
+    }
+end
+
+TexPlay.create_macro(:turn) do |da|
+    capture { 
+        @turtle_angle += da
+    }
+end
+
+TexPlay.create_macro(:forward) do |dist, *other|
+    capture {
+        visible = other.shift
+
+        radians_per_degree = 0.0174532925199433
+
+        x = @turtle_pos.x + dist * Math::cos(radians_per_degree * @turtle_angle)
+        y = @turtle_pos.y + dist * Math::sin(radians_per_degree * @turtle_angle)
+
+        if(visible) then
+            line_to(x, y, *other)
+        else
+            move_to(x, y)
+        end
+    }
+end
+
+
+

data/lib/texplay.rb

@@ -0,0 +1,134 @@
+# (C) John Mair 2009, under the MIT licence
+
+begin
+    require 'rubygems'
+rescue LoadError
+end
+
+# include gosu first
+require 'rbconfig'
+require 'gosu'
+
+module TexPlay
+    TEXPLAY_VERSION = "0.2.1"
+
+    def self.on_setup(&block)
+        raise "need a block" if !block
+        
+        @__init_procs__ ||= []
+        @__init_procs__.push(block)
+    end
+
+    def self.setup(receiver)
+        if @__init_procs__ then
+            @__init_procs__.each do |init_proc|
+                receiver.instance_eval(&init_proc)
+            end
+        end
+    end
+
+    def self.create_blank_image(window, width, height)
+        Gosu::Image.new(window, EmptyImageStub.new(width, height))
+    end
+
+    module Colors
+        Red = [1, 0, 0, 1]
+        Green = [0, 1, 0, 1]
+        Blue = [0, 0, 1, 1]
+        Black = [0, 0, 0, 1]
+        White = [1, 1, 1, 1]
+        Grey = [0.5, 0.5, 0.5, 0.5]
+        Alpha = [0, 0, 0, 0]
+        Purple = [1, 0, 1, 1]
+        Yellow = [1, 1, 0, 1]
+        Cyan = [0, 1, 1, 1]
+        Orange = [1, 0.5, 0, 1]
+        Brown = [0.39, 0.26, 0.13, 1]
+        Turquoise = [1, 0.6, 0.8, 1]
+        Tyrian = [0.4, 0.007, 0.235, 1]
+    end
+    include Colors
+end
+
+# credit to philomory for this class
+class EmptyImageStub
+    def initialize(w,h)
+        @w, @h = w, h;
+    end
+    
+    def to_blob
+        "\0" * @w * @h * 4
+    end
+    
+    def rows
+        @h
+    end
+    
+    def columns
+        @w
+    end
+end
+
+# bring in user-defined extensions to TexPlay
+direc = File.dirname(__FILE__)
+dlext = Config::CONFIG['DLEXT']
+begin
+    if RUBY_VERSION && RUBY_VERSION =~ /1.9/
+        require "#{direc}/ctexplay.19.#{dlext}"
+    else
+        require "#{direc}/ctexplay.18.#{dlext}"
+    end
+rescue LoadError => e
+    require "#{direc}/ctexplay.#{dlext}"
+end
+    
+require "#{direc}/texplay-contrib"
+
+# monkey patching the Gosu::Image class to add image manipulation functionality
+module Gosu
+    class Image
+
+        # bring in the TexPlay image manipulation methods
+        include TexPlay
+        
+        class << self 
+            alias_method :original_new, :new
+            
+            def new(*args, &block)
+
+                # invoke old behaviour
+                obj = original_new(*args, &block)
+
+                # refresh the TexPlay image cache
+                if obj.width <= (TexPlay::TP_MAX_QUAD_SIZE - 2) &&
+                        obj.height <= (TexPlay::TP_MAX_QUAD_SIZE - 2) && obj.quad_cached? then
+                    
+                    obj.refresh_cache
+                end
+
+                # run custom setup
+                TexPlay::setup(obj)
+
+                 obj.instance_variable_set(:@__window__, args.first)
+
+                # return the new image
+                obj
+            end
+        end
+        
+        def __window__
+            @__window__
+        end
+    end
+end
+
+# a bug in ruby 1.8.6 rb_eval_string() means i must define this here (rather than in texplay.c)
+class Proc  
+    def __context__
+        eval('self', self.binding)
+    end
+end
+
+
+
+

data/src/Makefile

@@ -0,0 +1,181 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = c:/ruby/lib/ruby/1.8/i386-mswin32
+hdrdir = $(topdir)
+VPATH = $(srcdir);$(topdir);$(hdrdir)
+
+DESTDIR = c:
+prefix = $(DESTDIR)/ruby
+exec_prefix = $(prefix)
+sitedir = $(prefix)/lib/ruby/site_ruby
+rubylibdir = $(libdir)/ruby/$(ruby_version)
+archdir = $(rubylibdir)/$(arch)
+sbindir = $(exec_prefix)/sbin
+datadir = $(prefix)/share
+includedir = $(prefix)/include
+infodir = $(prefix)/info
+sysconfdir = $(prefix)/etc
+mandir = $(prefix)/man
+libdir = $(exec_prefix)/lib
+sharedstatedir = $(DESTDIR)/etc
+oldincludedir = $(DESTDIR)/usr/include
+sitearchdir = $(sitelibdir)/$(sitearch)
+localstatedir = $(DESTDIR)/var
+bindir = $(exec_prefix)/bin
+sitelibdir = $(sitedir)/$(ruby_version)
+libexecdir = $(exec_prefix)/libexec
+
+CC = cl -nologo
+LIBRUBY = $(RUBY_SO_NAME).lib
+LIBRUBY_A = $(RUBY_SO_NAME)-static.lib
+LIBRUBYARG_SHARED = $(LIBRUBY)
+LIBRUBYARG_STATIC = $(LIBRUBY_A)
+
+RUBY_EXTCONF_H = 
+CFLAGS   =  -MD -Zi -O2b2xg- -G6 
+INCFLAGS = -I. -I. -Ic:/ruby/lib/ruby/1.8/i386-mswin32 -I.
+DEFS     = 
+CPPFLAGS =  
+CXXFLAGS = $(CFLAGS) 
+DLDFLAGS =  -link -incremental:no -debug -opt:ref -opt:icf -dll $(LIBPATH) -def:$(DEFFILE) -implib:$(*F:.so=)-$(arch).lib -pdb:$(*F:.so=)-$(arch).pdb 
+LDSHARED = cl -nologo -LD
+AR = lib -nologo
+EXEEXT = .exe
+
+RUBY_INSTALL_NAME = ruby
+RUBY_SO_NAME = msvcrt-ruby18
+arch = i386-mswin32
+sitearch = i386-msvcrt
+ruby_version = 1.8
+ruby = c:/ruby/bin/ruby
+RUBY = $(ruby:/=\)
+RM = $(RUBY) -run -e rm -- -f
+MAKEDIRS = @$(RUBY) -run -e mkdir -- -p
+INSTALL = @$(RUBY) -run -e install -- -vp
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 0644
+COPY = copy > nul
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir)
+LIBPATH =  -libpath:"." -libpath:"$(libdir)"
+DEFFILE = $(TARGET)-$(arch).def
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = vc*.pdb $(DEFFILE)
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED) glut32.lib  oldnames.lib user32.lib advapi32.lib shell32.lib ws2_32.lib  
+SRCS = actions.c bindings.c cache.c gen_eval.c object2module.c texplay.c utils.c
+OBJS = actions.obj bindings.obj cache.obj gen_eval.obj object2module.obj texplay.obj utils.obj
+TARGET = ctexplay
+DLLIB = $(TARGET).so
+EXTSTATIC = 
+STATIC_LIB = 
+
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).so $(TARGET).il? $(TARGET).tds $(TARGET).map
+CLEANOBJS     = *.obj *.lib *.s[ol] *.pdb *.exp *.bak
+
+all:		$(DLLIB)
+static:		$(STATIC_LIB)
+
+clean:
+		@-$(RM) $(CLEANLIBS:/=\) $(CLEANOBJS:/=\) $(CLEANFILES:/=\)
+
+distclean:	clean
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES:/=\)
+
+realclean:	distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	$(INSTALL_PROG) $(DLLIB:/=\) $(RUBYARCHDIR:/=\)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .obj
+
+{$(srcdir)}.cc{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(topdir)}.cc{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(hdrdir)}.cc{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+.cc.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(srcdir)}.cxx{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(topdir)}.cxx{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(hdrdir)}.cxx{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+.cxx.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(srcdir)}.cpp{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(topdir)}.cpp{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(hdrdir)}.cpp{}.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+.cpp.obj:
+	$(CXX) $(INCFLAGS) $(CXXFLAGS) $(CPPFLAGS) -c -Tp$(<:\=/)
+
+{$(srcdir)}.c{}.obj:
+	$(CC) $(INCFLAGS) $(CFLAGS) $(CPPFLAGS) -c -Tc$(<:\=/)
+
+{$(topdir)}.c{}.obj:
+	$(CC) $(INCFLAGS) $(CFLAGS) $(CPPFLAGS) -c -Tc$(<:\=/)
+
+{$(hdrdir)}.c{}.obj:
+	$(CC) $(INCFLAGS) $(CFLAGS) $(CPPFLAGS) -c -Tc$(<:\=/)
+
+.c.obj:
+	$(CC) $(INCFLAGS) $(CFLAGS) $(CPPFLAGS) -c -Tc$(<:\=/)
+
+$(DLLIB): $(DEFFILE) $(OBJS)
+	@-$(RM) $@
+	$(LDSHARED) -Fe$(@) $(OBJS) $(LIBS) $(LOCAL_LIBS) $(DLDFLAGS)
+
+
+
+$(DEFFILE): 
+	$(RUBY) -e "puts 'EXPORTS', 'Init_$(TARGET)'"  > $@
+
+$(OBJS): {.;$(srcdir);$(topdir);$(hdrdir)}ruby.h {.;$(srcdir);$(topdir);$(hdrdir)}defines.h