kredki 0.1.0

data/lib/kredki/core/event/method_event_reaction.rb

@@ -0,0 +1,46 @@
+module Kredki
+  # Method based event reaction.
+  class MethodEventReaction < EventReaction
+
+    # Attach copy of reaction to another manager.
+    def attach manager, always = false
+      self.class.new @method, manager, always
+    end
+
+    # Cancel reaction.
+    def cancel
+      super
+      @method = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize method, ...
+      super(...)
+      @method = method
+    end
+
+    attr_accessor :method
+
+    def call event = nil
+      return if !@always && event&.closed?
+      event&.reaction = self
+      begin
+        @method.call event
+      rescue => e
+        res = Kredki.app.rescue
+        if res
+          res.call e, event
+        else
+          raise inspect
+        end
+      end
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@method.source_location}"
+    end
+
+
+  end
+end

data/lib/kredki/core/event/mouse_event_manager.rb

@@ -0,0 +1,27 @@
+module Kredki
+  # Manage mouse events managers.
+  class MouseEventManager
+
+    # :section: LEVEL 2
+
+    def initialize
+      @managers = {}
+    end
+
+    def report event
+      id = event.code and @managers[id]&.report event
+      @managers[nil]&.report event
+    end
+
+    def [](*ids)
+      case ids.size
+      when 0
+        @managers[nil] ||= EventManager.new
+      when 1
+        @managers[ids.first] ||= EventManager.new
+      else
+        CompositeEventManager.new ids.map{|it| @managers[it] ||= EventManager.new }
+      end
+    end
+  end
+end

data/lib/kredki/core/font.rb

@@ -0,0 +1,53 @@
+module Kredki
+  # Immutable font model
+  class Font
+
+    # Get name.
+    def name
+      unless @loaded
+        @name = Font.load path
+        @loaded = true
+      end
+      @name
+    end
+
+    # Get path.
+    def path
+      @path
+    end
+
+    # :section: LEVEL 2
+
+    def initialize path
+      @path = path
+      @loaded = false
+      @name = nil
+    end
+
+    class << self
+      attr_accessor :loaded_fonts
+
+      def load path
+        name = path_to_name path
+        loaded = loaded_fonts[name]
+        return name if loaded == path
+        unload name if loaded
+        Pastele.font_load path
+        loaded_fonts[name] = path
+        name
+      end
+
+      def unload font
+        name = String === font ? font : font.name
+        path = loaded_fonts.delete name
+        Pastele.font_unload name if path
+      end
+
+      def path_to_name path
+        path.split("/").last.split(".").first
+      end
+    end
+
+    self.loaded_fonts = {}
+  end
+end

data/lib/kredki/core/job/after_job.rb

@@ -0,0 +1,59 @@
+module Kredki
+  # Job executed after 0 or more milisecond delay.
+  class AfterJob < Job
+
+    # Run job.
+    def run host, event = nil
+      cancel
+      @host = host
+      @event = event || RunEvent.new(nil, nil, self)
+      @run_ms = @host.app.ms + @delay
+      @host.put_job self
+    end
+
+    # Cancel job and all subjobs.
+    def cancel event = nil
+      @host&.delete_job self
+      @event_manager.report event || CancelEvent.new
+      @host = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block, delay
+      super()
+      @block = block
+      @delay = delay
+      @run_ms = 0
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@block}"
+    end
+
+    def tick ms
+      dms = ms - @run_ms
+      if dms >= 0
+        if RunEvent === @event
+          if @block 
+            result = @block.call self, @event.source || @event, @event.result
+          else
+            result = @event.result
+          end
+          @event_manager.report RunEvent.new result, @event.source || nil, @host
+        else
+          if @block
+            result = @block.call self, @event
+          else
+            result = nil
+          end
+          @event_manager.report RunEvent.new result, @event, @host
+        end
+        @host = nil
+        @event = nil
+        return false
+      end
+      true
+    end
+  end
+end

data/lib/kredki/core/job/job.rb

@@ -0,0 +1,108 @@
+module Kredki
+  # Base class for jobs.
+  class Job
+    
+    # Create and attach job after.
+    def after delay = 0, &block
+      case delay
+      when Numeric
+        job = AfterJob.new block, delay
+        @event_manager << job
+        job
+      when Job
+        @event_manager << delay
+        delay
+      when Proc
+        job = AfterJob.new delay, 0
+        @event_manager << job
+        job
+      else raise_ia delay
+      end
+    end
+
+    # Create and attach Kredki::LoopJob.
+    def loop period = 0, &block
+      after LoopJob.new block, period
+    end
+
+    # Create and attach Kredki::SideJob.
+    def side &block
+      after SideJob.new block
+    end
+
+    # Create and attach play job.
+    def play subject, speed: 1, &block
+      case subject
+      when Numeric
+        after PlayJob.new block, subject, speed
+      else
+        after PlayAnimationJob.new block, subject, speed
+      end
+    end
+
+    # Create and attach play in loop job.
+    def play_loop subject, speed: 1, &block
+      case subject
+      when Numeric
+        after PlayLoopJob.new block, subject, speed
+      else
+        after PlayLoopAnimationJob.new block, subject, speed
+      end
+    end
+
+    # Push job after.
+    def << job
+      after job
+    end
+
+
+    # Get event.
+    def event
+      @event
+    end
+
+    # Get host.
+    def host
+      @host
+    end
+
+    # Release result.
+    def release result = nil
+      @result = result
+    end
+
+    # :section: LEVEL 2
+
+    class RunEvent < Event
+      def initialize result, ...
+        super(...)
+        @result = result
+      end
+
+      def result
+        @result
+      end
+    end
+
+    class CancelEvent < Event
+    end
+
+    def initialize
+      @event_manager = EventManager.new
+      @host = nil
+      @event = nil
+      @result = nil
+    end
+
+    def call event
+      case event
+      when RunEvent
+        run event.target, event
+      when CancelEvent
+        cancel event
+      else
+        run event.target.pane, event
+      end
+    end
+  end
+end

data/lib/kredki/core/job/loop_job.rb

@@ -0,0 +1,87 @@
+module Kredki
+  # Job executed in a loop.
+  class LoopJob < Job
+
+    # Get last iteration duration in milliseconds.
+    def ms
+      @ms
+    end
+
+    # Get total duration in milliseconds.
+    def total_ms
+      @total_ms
+    end
+
+    # Release job.
+    def release result = nil
+      super
+      @released = true
+    end
+
+    # Run job.
+    def run host, event = nil
+      cancel
+      @host = host
+      @event = event || RunEvent.new(nil, nil, self)
+      @next_ms = @host.app.ms
+      @total_ms = 0
+      @host.put_job self
+    end
+
+    # Cancel job and all subjobs.
+    def cancel event = nil
+      @host&.delete_job self
+      @event_manager.report event || CancelEvent.new
+      @host = nil
+      @result = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block, period
+      super()
+      @block = block
+      @period = period
+      @next_ms = 0
+      @released = false
+      @ms = nil
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@block}"
+    end
+
+    def tick ms
+      dms = ms - @next_ms
+      if dms >= 0
+        unless @released
+          @ms = dms + @period
+          @total_ms += @ms
+          if RunEvent === @event
+            @block.call self, @event.source || @event, @event.result
+          else
+            @block.call self, @event
+          end
+          if @period > 0
+            @next_ms += @period * (1 + dms / @period) 
+          else
+            @next_ms += dms
+          end
+        end
+        if @released
+          @released = false
+          if RunEvent === @event
+            @event_manager.report RunEvent.new @result, @event.source || nil, @host
+          else
+            @event_manager.report RunEvent.new @result, @event, @host
+          end
+          @host = nil
+          @event = nil
+          @result = nil
+          return false
+        end
+      end
+      true
+    end
+  end
+end

data/lib/kredki/core/job/play_animation_job.rb

@@ -0,0 +1,44 @@
+module Kredki
+  # Job executed in a loop.
+  class PlayAnimationJob < PlayLoopAnimationJob
+
+    # Get play progress.
+    def progress
+      progress = @total_ms * @speed / @period
+      progress > 1 ? 1.0 : progress
+    end
+
+    def tick ms
+      dms = ms - @next_ms
+      if dms >= 0
+        unless @released
+          @ms = dms
+          @total_ms += @ms
+          if !@block
+            frame = progress
+          elsif RunEvent === @event
+            frame = @block.call self, @event.source || @event, @event.result
+          else
+            frame = @block.call self, @event
+          end
+          @animation.set_frame frame if frame
+          @next_ms += dms
+        end
+        release if !@released && @animation.duration <= @total_ms
+        if @released
+          @released = false
+          if RunEvent === @event
+            @event_manager.report RunEvent.new @result, @event.source || nil, @host
+          else
+            @event_manager.report RunEvent.new @result, @event, @host
+          end
+          @host = nil
+          @event = nil
+          @result = nil
+          return false
+        end
+      end
+      true
+    end
+  end
+end

data/lib/kredki/core/job/play_job.rb

@@ -0,0 +1,41 @@
+module Kredki
+  # Job executed in a loop.
+  class PlayJob < PlayLoopJob
+
+    # Get play progress.
+    def progress
+      progress = @total_ms * @speed / @duration
+      progress > 1 ? 1.0 : progress
+    end
+
+    def tick ms
+      dms = ms - @next_ms
+      if dms >= 0
+        unless @released
+          @ms = dms
+          @total_ms += @ms
+          if RunEvent === @event
+            @block.call self, @event.source || @event, @event.result
+          else
+            @block.call self, @event
+          end
+          @next_ms += dms
+        end
+        release if !@released && @duration <= @total_ms
+        if @released
+          @released = false
+          if RunEvent === @event
+            @event_manager.report RunEvent.new @result, @event.source || nil, @host
+          else
+            @event_manager.report RunEvent.new @result, @event, @host
+          end
+          @host = nil
+          @event = nil
+          @result = nil
+          return false
+        end
+      end
+      true
+    end
+  end
+end

data/lib/kredki/core/job/play_loop_animation_job.rb

@@ -0,0 +1,98 @@
+module Kredki
+  # Job executed in a loop.
+  class PlayLoopAnimationJob < Job
+
+    # Get the period between the last two iterations in milliseconds.
+    def ms
+      @ms
+    end
+
+    # Get the period between the first and the last iteration in milliseconds.
+    def total_ms
+      @total_ms
+    end
+
+    # Get play progress.
+    def progress period = nil
+      duration = @animation.duration
+      if period == true
+        @total_ms * @speed % duration / duration
+      else
+        total_progress = @total_ms * @speed / duration
+        period ? total_progress - (total_progress / period).floor * period : total_progress
+      end
+    end
+
+    # Release job.
+    def release result = nil
+      super
+      @released = true
+    end
+
+    # Run job.
+    def run host, event = nil
+      cancel
+      @host = host
+      @event = event || RunEvent.new(nil, nil, self)
+      @next_ms = @host.app.ms
+      @total_ms = 0
+      @host.put_job self
+    end
+
+    # Cancel job and all subjobs.
+    def cancel event = nil
+      @host&.delete_job self
+      @event_manager.report event || CancelEvent.new
+      @host = nil
+      @result = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block, animation, speed
+      super()
+      @block = block
+      @animation = animation
+      @speed = speed
+      @next_ms = 0
+      @released = false
+      @ms = nil
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@block}"
+    end
+
+    def tick ms
+      dms = ms - @next_ms
+      if dms >= 0
+        unless @released
+          @ms = dms
+          @total_ms += @ms
+          if !@block
+            frame = progress true
+          elsif RunEvent === @event
+            frame = @block.call self, @event.source || @event, @event.result
+          else
+            frame = @block.call self, @event
+          end
+          @animation.set_frame frame if frame
+          @next_ms += dms
+        end
+        if @released
+          @released = false
+          if RunEvent === @event
+            @event_manager.report RunEvent.new @result, @event.source || nil, @host
+          else
+            @event_manager.report RunEvent.new @result, @event, @host
+          end
+          @host = nil
+          @event = nil
+          @result = nil
+          return false
+        end
+      end
+      true
+    end
+  end
+end

data/lib/kredki/core/job/play_loop_job.rb

@@ -0,0 +1,104 @@
+module Kredki
+  # Job executed in a loop.
+  class PlayLoopJob < Job
+
+    # Get the period between the last two iterations in milliseconds.
+    def ms
+      @ms
+    end
+
+    # Get the period between the first and the last iteration in milliseconds.
+    def total_ms
+      @total_ms
+    end
+
+    # Get play progress.
+    def progress period = nil
+      if period == true
+        @total_ms * @speed % @duration / @duration
+      else
+        total_progress = @total_ms * @speed / @duration
+        period ? total_progress - (total_progress / period).floor * period : total_progress
+      end
+    end
+
+    # Get animation progress
+    def progress clamp = false
+      if clamp
+        @total_ms % @duration / @duration
+      else
+        @total_ms / @duration
+      end
+    end
+
+    # Release job.
+    def release result = nil
+      super
+      @released = true
+    end
+
+    # Run job.
+    def run host, event = nil
+      cancel
+      @host = host
+      @event = event || RunEvent.new(nil, nil, self)
+      @next_ms = @host.app.ms
+      @total_ms = 0
+      @host.put_job self
+      release if @duration <= 0
+    end
+
+    # Cancel job and all subjobs.
+    def cancel event = nil
+      @host&.delete_job self
+      @event_manager.report event || CancelEvent.new
+      @host = nil
+      @result = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block, duration, speed
+      super()
+      @block = block
+      @duration = duration
+      @speed = speed
+      @next_ms = 0
+      @released = false
+      @ms = nil
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@block}"
+    end
+
+    def tick ms
+      dms = ms - @next_ms
+      if dms >= 0
+        unless @released
+          @ms = dms
+          @total_ms += @ms
+          if RunEvent === @event
+            @block.call self, @event.source || @event, @event.result
+          else
+            @block.call self, @event
+          end
+          @next_ms += dms
+        end
+        if @released
+          @released = false
+          if RunEvent === @event
+            @event_manager.report RunEvent.new @result, @event.source || nil, @host
+          else
+            @event_manager.report RunEvent.new @result, @event, @host
+          end
+          @host = nil
+          @event = nil
+          @result = nil
+          return false
+        end
+      end
+      true
+    end
+  end
+end