texplay 0.4.3-x86-mingw32

data/examples/example_ippa.rb

@@ -0,0 +1,23 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+class Window < Gosu::Window
+  def initialize
+    super(500, 500, false, 20)
+
+    @image = TexPlay.create_image(self, 50, 50)
+
+    from_x = 50
+    from_y = 50
+    to_x = 51
+    to_y = 51
+
+    x2, y2, color = @image.line from_x, from_y, to_x, to_y, :trace => { :while_color => :red }
+
+    p x2
+    p y2
+    p color
+  end
+end
+
+Window.new.show

data/examples/example_light.rb

@@ -0,0 +1,75 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+class W < Gosu::Window
+  def initialize
+    super(500, 500, false, 20)
+
+    @x1 = 10
+    @x2 = 200
+    @y1 = 10
+    @y2 = 10
+
+    @radius = 100.0
+    @inner = 20.0
+    @max_opacity = 0.5
+    @max_opacity2 = 0.5
+
+    penumbra = (@radius - @inner).to_i
+    
+    @img = Gosu::Image.new(self, "#{Common::MEDIA}/maria.png")
+    #@img.rect(0, 0, @img.width - 1, @img.height - 1, :fill => true)
+
+    @circ2 = TexPlay.create_image(self, @radius * 2, @radius * 2)
+
+    @circ1 = TexPlay.create_image(self, @radius * 2, @radius * 2)
+
+     
+    shading_step = @max_opacity2.to_f / penumbra.to_f
+    @radius.to_i.downto(@inner) { |r|
+      @circ1.circle @radius, @radius, r, :color => [1, 0, 0, ((@radius - r) * shading_step)],
+      :fill => true
+    }
+
+    @circ1.circle @radius, @radius, @inner, :color => [1, 0, 0, @max_opacity2], :fill => true
+    
+   shading_step = @max_opacity.to_f / penumbra.to_f
+    @radius.to_i.downto(@inner) { |r|
+      @circ2.circle @radius, @radius, r, :color => [0, 0, 1, ((@radius - r) * shading_step)],
+      :fill => true
+    }
+
+    @circ2.circle @radius, @radius, @inner, :color => [0, 0, 1, @max_opacity], :fill => true
+  end
+  
+  def draw
+    @x1 += 1
+    @y1 += 1
+
+    @x2 -= 1
+    @y2 += 1
+    
+
+
+    @img.draw 10, 10,1
+    @circ1.draw @x1, @y1,1
+    @circ2.draw @x2, @y1,1
+
+    if button_down?(Gosu::KbEscape)
+      IL.Enable(IL::ORIGIN_SET)
+      IL.OriginFunc(IL::ORIGIN_UPPER_LEFT)
+      #            screenshot.crop(0,0, 500, 500).save("screenshot.jpg").free
+      exit
+    end  
+    
+  end
+
+  def update
+  end
+  
+end
+
+
+w = W.new
+w.show
+

data/examples/example_light_multiply.rb

@@ -0,0 +1,18 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+class W < Gosu::Window
+    def initialize
+      super(500, 500, false, 20)
+      @img = Gosu::Image.new(self, "#{Common::MEDIA}/sunset.png")
+      @cover = TexPlay.create_image(self, @img.width, @img.height, :color => Gosu::Color.new(127, 127, 127, 127))
+    end
+    
+    def draw
+      @img.draw 0, 0, 1
+      @cover.draw 0, 0, 1, 1, 1, Gosu::Color.new(0xffffffff), :multiply
+    end
+end
+
+W.new.show
+        

data/examples/example_lsystem.rb

@@ -0,0 +1,61 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+Dragon = TexPlay::LSystem.new do
+    rule "F" => "F"
+    rule "X" => "X+YF+"
+    rule "Y" => "-FX-Y"
+    angle 90
+
+    atom "FX"
+end
+
+Koch = TexPlay::LSystem.new do
+    rule "F" => "F-F++F-F"
+
+    angle 60
+
+    atom "F"
+end
+
+Bush1 = TexPlay::LSystem.new do
+    rule "F" => "F[-F]F[+F][F]"
+    
+    angle 20
+    atom "F"
+end
+
+Bush2 = TexPlay::LSystem.new do
+    rule "F" => "FF"
+    rule "X" => "F[+X]F[-X]+X"
+    
+    angle 20
+    atom "X"
+end
+
+Bush3 = TexPlay::LSystem.new do
+    rule "F" => "FF"
+    rule "X" => "F-[[X]+X]+F[+FX]-X"
+    
+    angle 22.5
+    atom "X"
+end
+
+
+
+class W < Gosu::Window
+    def initialize
+        super(500, 500, false, 20)
+        @img = TexPlay::create_blank_image(self, 500, 500)
+        @img.set_options :color => :rand
+        @img.lsystem(0, 250, Bush3, :order => 6, :line_length => 4)
+        #@img.save("dragon.jpg")
+    end
+
+    def draw
+        @img.draw(0,0,1)
+    end
+end
+
+w = W.new
+w.show

data/examples/example_melt.rb

@@ -0,0 +1,25 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+class W < Gosu::Window
+    def initialize
+        super(500, 500, false, 20)
+        @img = Gosu::Image.new(self, "#{Common::MEDIA}/sunset.png")
+    end
+    
+    def draw
+        x = (@img.width - 100/2) * rand 
+        y = (@img.height - 100/2) * rand 
+
+        @img.splice @img, x, y + 1, :crop => [x, y, x + 100, y + 100]
+
+        @img.draw 0, 0,1
+    end
+    
+end
+
+
+w = W.new
+w.show
+        

data/examples/example_meyet.rb

@@ -0,0 +1,62 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+
+# TEST_CASE 1 shows 2 pieces of text, but the background is black, even with :chroma_key. TEST_CASE 2 shows nothing.
+# However, if you remove the :chroma_key's, you see a black background (and no text) in TEST_CASE 2, so there, :chroma_key appears to work.
+TEST_CASE = 1 # 1 shows everything, 2 shows nothing. Both, however, should show everything, and haev a working :chroma_key => :alpha
+SYNC_TEST = false # Setting to true enables a force_sync.. but no matter where that is placed, it doesn't help
+
+class Wnd < Gosu::Window
+  def initialize  
+    super(500, 200, false)
+    self.caption = "Splice Issues"
+    
+    @chrome = TexPlay::create_blank_image(self, 200, 200)
+    @chrome.fill 0, 0, :color => :purple
+    @chrome.rect rand(200),rand(200),rand(200),rand(200), :color => :blue
+    @chrome.rect rand(200),rand(200),rand(200),rand(200), :color => :blue
+    @chrome.rect rand(200),rand(200),rand(200),rand(200), :color => :blue
+    @chrome.rect rand(200),rand(200),rand(200),rand(200), :color => :blue
+    
+    @chrome3 = @chrome.dup if TEST_CASE == 2
+    
+    @short_text = Gosu::Image.from_text(self, "text", Gosu::default_font_name, 20)
+    @long_text = Gosu::Image.from_text(self, "This is a long piece of text..", Gosu::default_font_name, 20)
+    
+    @chrome2 = @chrome.dup if TEST_CASE == 1
+    
+    @chrome.splice @short_text, 5, 5, :alpha_blend => true
+    @chrome.splice @long_text, 5, 105, :alpha_blend => true
+    puts @long_text.get_pixel(2,2)
+    
+    if TEST_CASE == 1
+      @chrome2.splice @short_text, 105, 5, :alpha_blend => true
+      @chrome2.splice @long_text, 105, 105, :alpha_blend => true
+    elsif TEST_CASE == 2
+      @chrome3.splice @short_text, 105, 5, :alpha_blend => true
+      @chrome3.splice @long_text, 105, 105, :alpha_blend => true
+    end
+  end
+  
+  def draw
+    @chrome.draw(0,0,1)
+    @chrome2.draw(200,0,1) if TEST_CASE == 1
+    @chrome3.draw(400,0,1) if TEST_CASE == 2
+  end
+  
+  def draw_text
+    @chrome.splice @short_text, 5, 40, :alpha_blend => true # Chroma key apparently doesn't work either..
+    @chrome2.splice @short_text, 5, 40, :alpha_blend => true if TEST_CASE == 1
+    @chrome3.splice @short_text, 5, 40, :alpha_blend => true if TEST_CASE == 2
+  end
+  
+  def button_down(id)
+    close if id == Gosu::KbEscape
+    draw_text if id == Gosu::KbSpace
+  end
+end
+
+Wnd.new.show
+

data/examples/example_polyline.rb

@@ -0,0 +1,42 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+class W < Gosu::Window
+    def initialize
+        super(500, 500, false, 20)
+        @img = Gosu::Image.new(self, "#{Common::MEDIA}/empty2.png")
+
+        # put a border on the image
+        @img.rect 0,0, @img.width - 1, @img.height - 1
+
+        points = []
+
+        # NOTE: TexPlay also accepts points. a 'point' is any object that responds to 'x' or 'y'
+        10.times {
+            p = TexPlay::TPPoint.new
+            p.x = @img.width * rand
+            p.y = @img.height * rand
+
+            points << p
+        }
+
+
+        # what if we want to turn a polyline into a polygon?
+        @img.polyline points, :closed => true, :color => :blue
+        @img.polyline points, :color => :red
+    end
+    
+    def draw
+
+        # NOTE: (when viewing) the blue line is the extra line added to close the polygon,
+        # red lines are original polyline
+        @img.draw 0, 0,1
+    end
+    
+end
+
+
+w = W.new
+w.show
+        

data/examples/example_scale.rb

@@ -0,0 +1,27 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+class W < Gosu::Window
+    def initialize
+        super(500, 500, false, 20)
+        @img = Gosu::Image.new(self, "#{Common::MEDIA}/logo.png")
+        @img2 = TexPlay::create_blank_image(self, 500, 500)
+
+        @img2.splice_and_scale @img, 0, 50, :factor => 2
+        @img2.splice @img, 0, 200 
+    end
+    
+    def draw
+        x = @img.width * rand
+        y = @img.height * rand
+
+        @img2.draw 100, 100,1
+    end
+    
+end
+
+
+w = W.new
+w.show
+        

data/examples/example_select.rb

@@ -0,0 +1,36 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+class W < Gosu::Window
+    def initialize
+      super(500, 500, false, 20)
+
+      # draw a filled rect with left region blue, and right region red
+      # at top and yellow at bottom
+      @img = TexPlay.create_image(self, 500, 500, :color => Gosu::Color::BLUE)
+      @img.rect 250,0, 500, 500, :color => :red, :fill => true
+      @img.rect 250, 250, 500, 500, :color => :yellow, :fill => true
+
+      # base rect is green on left and purple on right
+      @base = TexPlay.create_image(self, 500, 500, :color => :green)
+      @base.rect 250,0, 500, 500, :color => :purple, :fill => true
+
+      # splice @img into @base, and select the yellow part of @img to
+      # go into the purple part of @base
+      # a combination of source_select
+      # and dest_select - filtering both source and destination pixels
+      @base.splice @img, 0, 0, :dest_select => :purple, :source_select => :yellow
+
+    end
+    
+    def draw
+      @base.draw 0, 0,1
+    end
+    
+end
+
+
+w = W.new
+w.show
+        

data/examples/example_select2.rb

@@ -0,0 +1,25 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+require 'benchmark'
+
+
+class W < Gosu::Window
+  def initialize
+    super(500, 500, false, 20)
+    @img = Gosu::Image.new(self, "#{Common::MEDIA}/sunset.png")
+    @maria = Gosu::Image.new(self, "#{Common::MEDIA}/maria.png")
+    @img.rect 0,0, @img.width - 1, @img.height - 1
+    @img.splice @maria, 0, 0,  :tolerance => 0.70, :source_select => [:brown,:yellow], :crop => [200, 50, 500, 800]
+    
+  end
+  
+  def draw
+    @img.draw 0, 0,1
+  end
+  
+end
+
+
+w = W.new
+w.show
+

data/examples/example_simple.rb

@@ -0,0 +1,46 @@
+$LOAD_PATH.unshift File.dirname(File.expand_path(__FILE__))
+require 'common'
+
+
+class W < Gosu::Window
+    def initialize
+        super(500, 500, false, 20)
+        @img = Gosu::Image.new(self, "#{Common::MEDIA}/empty2.png")
+        @gosu = Gosu::Image.new(self, "#{Common::MEDIA}/gosu.png")
+
+        # put a border on the image
+        @img.rect 0,0, @img.width - 1, @img.height - 1, :color => 0xffff00ff, :fill => true
+
+        # perform some e drawing actions 
+        @img.line 0,0, @img.width - 1, @img.height - 1, :color => Gosu::Color::AQUA
+        @img.circle 400, 100, 40, :fill => true, :color => [rand, rand, rand, 1]
+      @img.rect 200, 300, 300, 400, :fill => true, :color => :red, :source_ignore => [:green],
+      :color_control => proc {
+        rand(2) == 1 ? :red : :blue
+      }
+
+        @img.ngon 400,300,50, 5, :start_angle => 90
+        @img.ngon 300,300,50, 5, :start_angle => 45
+
+        # NOTE: chroma_key means NOT to splice in that color (pixels with that color are skipped)
+        # (chroma_key_not does the opposite, it skips pixels that do NOT have that color)
+        @img.splice @gosu, 210, 330,
+      :dest_select => [:blue], :source_ignore => [:alpha, :green]
+
+      @img.line 200, 300, 300, 400, :thickness => 5,
+      :dest_select => :blue, :dest_ignore => :red
+
+      puts (@img.get_pixel 2000, 310).inspect
+      puts @img.get_pixel 2000, 310, :color_mode => :gosu
+    end
+    
+    def draw
+        @img.draw 100, 50,1
+    end
+    
+end
+
+
+w = W.new
+w.show
+