kredki 0.1.0

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

@@ -0,0 +1,62 @@
+module Kredki
+  # Job executed in separated thread.
+  class SideJob < Job
+
+    # Run job.
+    def run host, event = nil
+      cancel
+      @host = host
+      @event = event || RunEvent.new(nil, nil, self)
+      @thread = Thread.new do
+        if RunEvent === @event
+          @block.call self, @event.source || @event, @event.result
+        else
+          @block.call self, @event
+        end
+      end
+      @host.put_job self
+    end
+
+    # Report some partial result.
+    def report &block
+      @host.job &block
+      nil # creating job tree in SideJob is not thread safe - nil returned to prevent such pattern
+    end
+
+    # Cancel job and all subjobs.
+    def cancel event = nil
+      @thread&.kill
+      @thread = nil
+      @host&.delete_job self
+      @event_manager.report event || CancelEvent.new
+      @host = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block
+      super()
+      @block = block
+      @threat = nil
+    end
+
+    def inspect
+      "#{self.class}:#{object_id} #{@block}"
+    end
+
+    def tick ms
+      if !@thread&.alive?
+        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
+      true
+    end
+  end
+end

data/lib/kredki/core/kernel-path.rb

@@ -0,0 +1,71 @@
+class Object
+  # Raise invalid argument exception.
+  def raise_ia argument, message = nil
+    raise "Invalid argument #{argument.inspect}. #{message}"
+  end
+
+  # Raise invalid state exception.
+  def raise_is state
+    raise "Invalid state #{state.inspect}."
+  end
+
+  # General purpose object altering.
+  def set *a, filter_keywords: false, **ka, &block
+    a.each{|it| self << it }
+    ka.each do |key, arg|
+      key = "#{key}=" if key =~ /^\w+$/
+      send key, arg if !filter_keywords || self.respond_to?(key)
+    end
+    instance_exec self, &block if block
+    self
+  end
+
+  # Parameter DSL helper.
+  def send_bundle method, param
+    if Array === param
+      if Hash === param.last
+        *a, h = param
+        send method, *a, **h
+      else
+        send method, *param
+      end
+    else
+      send method, param
+    end
+  end
+
+  # Another parameter DSL helper.
+  def send_branch root, branches, separator = "_"
+    branches.count{ send_bundle "#{root}#{separator}#{_1}", _2 }.nonzero?
+  end
+end
+
+class Symbol
+  alias_method :old_cmp, :<=>
+
+  # For DSL purposes ex. size_x_limit: Fit..1r .
+  def <=> that
+    Numeric === that ? 0 : old_cmp(that)
+  end
+end
+
+module Enumerable
+  # General purpose enumerable objects altering.
+  def each_set ...
+    each{|it| it.set(...) }
+  end
+end
+
+class TrueClass
+  # Negation.
+  def not
+    false
+  end
+end
+
+class FalseClass
+  # Negation.
+  def not
+    true
+  end
+end

data/lib/kredki/core/kredki.rb

@@ -0,0 +1,89 @@
+module Kredki
+
+  module Util
+    class << self
+
+      def eqr a, b
+        a == b and (Rational === a) == (Rational === b)
+      end
+
+      def polarize left, right
+        both = []
+        right_only = right.reject{|it| both << it if left.include? it }
+        [left - both, both, right_only]
+      end
+
+      def uncover array
+        case array.size
+        when 0 then nil
+        when 1 then array.first
+        else array
+        end
+      end
+
+      def cover object
+        object.is_a?(Array) ? object : [object]
+      end
+
+      def sin01 value, offset = 0
+        Math.sin(0.5 * Math::PI * value) + offset
+      end
+  
+      def cos01 value, offset = 0
+        Math.cos(0.5 * Math::PI * value) + offset
+      end
+    end
+  end
+end
+
+require_relative 'pastele/pastele'
+
+require_relative 'event/event'
+require_relative 'event/family/pastele_event'
+require_relative 'event/family/focus_enter_event'
+require_relative 'event/family/focus_leave_event'
+require_relative 'event/family/show_event'
+require_relative 'event/family/hide_event'
+require_relative 'event/family/drop_event'
+require_relative 'event/family/key_event'
+require_relative 'event/family/mouse_event'
+require_relative 'event/family/tick_event'
+require_relative 'event/family/update_complete_event'
+require_relative 'event/family/exit_event'
+require_relative 'event/family/text_event'
+require_relative 'event/family/window_event'
+require_relative 'event/family/joystick_event'
+
+require_relative 'paint/paint'
+require_relative 'paint/shape'
+require_relative 'paint/scene'
+require_relative 'paint/area'
+require_relative 'paint/shape_area'
+require_relative 'paint/block_shape_area'
+require_relative 'paint/ellipse'
+require_relative 'paint/rectangle'
+require_relative 'paint/text'
+require_relative 'paint/picture'
+require_relative 'paint/animation'
+
+require_relative 'job/job'
+require_relative 'job/after_job'
+require_relative 'job/loop_job'
+require_relative 'job/side_job'
+require_relative 'job/play_loop_job'
+require_relative 'job/play_job'
+require_relative 'job/play_loop_animation_job'
+require_relative 'job/play_animation_job'
+
+require_relative 'event/event_manager'
+require_relative 'event/keyboard_event_manager'
+require_relative 'event/mouse_event_manager'
+require_relative 'event/joystick_event_manager'
+
+require_relative 'window/pane'
+require_relative 'window/window'
+require_relative 'application'
+
+Kredki.app = Kredki::Application
+
+load Kredki.config

data/lib/kredki/core/linear_gradient.rb

@@ -0,0 +1,43 @@
+module Kredki
+  class LinearGradient
+
+    def initialize colors, ex, ey = 0, x = 0, y = 0, offsets: nil, spread: nil
+      @x = x
+      @y = y
+      @ex = ex
+      @ey = ey
+      @colors = colors
+      @offsets = offsets
+      @spread = spread
+    end
+
+    def self.[](...)
+      self.new(...)
+    end
+
+    # :section: LEVEL 2
+
+    def inspect
+      "#{self.class}:#{object_id}"
+    end
+
+    def ffi
+      rgbas = @colors.map{|color| Kredki.color(color).to_rgba }.flatten
+      offsets = @offsets || (0...@colors.size).map{|it| it.to_f / (@colors.size - 1) }
+      spread = case @spread
+      when :pad, nil, 0 then 0
+      when :reflect, 1 then 1
+      when :repeat, 2 then 2
+      else raise_is @spread
+      end
+      [
+        @x, @y, @ex, @ey,
+        Fiddle::Pointer[rgbas.pack "C*"],
+        Fiddle::Pointer[offsets.pack "f*"],
+        @colors.size,
+        spread
+      ]
+    end
+
+  end#LinearGradient
+end#Kredki

data/lib/kredki/core/media/clipboard.rb

@@ -0,0 +1,35 @@
+module Kredki
+  # Clipboard interface.
+  class Clipboard
+
+    # Set content.
+    def set_content content = nil
+      return set_content yield self.content if block_given?
+      Pastele.clipboard_set_text content.to_s
+      true
+    end
+    
+    # See #set_content.
+    def content= param
+      set_content param
+    end
+    
+    # Get content.
+    def content
+      ptr = Pastele.clipboard_get_text
+      str = ptr.to_s.force_encoding("utf-8")
+      ptr.free
+      return str
+    end
+
+    # Get available mime types in clipboard.
+    def mime_types
+      mime_types = []
+      callback = Fiddle::Closure::BlockCaller.new Fiddle::TYPE_VOID, [Fiddle::TYPE_VOIDP] do |pointer|
+        mime_types << pointer.to_s
+      end
+      Pastele.clipboard_get_mime_types callback
+      mime_types
+    end
+  end
+end

data/lib/kredki/core/media/joystick.rb

@@ -0,0 +1,199 @@
+module Kredki
+  # Joystick device interface.
+  class Joystick
+    # Joystick button interface.
+    class Button
+
+      # Get button id.
+      def id
+        @id
+      end
+
+      # Get button code.
+      def code
+        @code
+      end
+
+      # :section: LEVEL 2
+
+      def initialize id, code
+        @id = id
+        @code = code
+      end
+
+      def ==(other)
+        Button === other &&
+        @code == other.code &&
+        @id == other.id
+      end
+    end
+
+    # Joystick axis interface.
+    class Axis
+      # Get axis id.
+      def id
+        @id
+      end
+
+      # Get axis code.
+      def code
+        @code
+      end
+      
+      # :section: LEVEL 2
+
+      def initialize id, code
+        @id = id
+        @code = code
+      end
+      
+      def ==(other)
+        Axis === other &&
+        @code == other.code &&
+        @id == other.id
+      end
+    end
+
+    # Joystick hat interface.
+    class Hat
+      # Get hat id.
+      def id
+        @id
+      end
+
+      # Get hat code.
+      def code
+        @code
+      end
+
+      # Set state.
+      def state! id, code
+        @state_map[id] = @statecode_map[code] = id
+      end
+
+      # Get state.
+      def state param
+        @statecode_map[param] or @state_map[param]
+      end
+      
+      # :section: LEVEL 2
+
+      def initialize id, code
+        @id = id
+        @code = code
+        @state_map = {}
+        @statecode_map = {}
+      end
+      
+      def ==(other)
+        Hat === other &&
+        @code == other.code &&
+        @id == other.id
+      end
+    end
+
+    # Get button codes for input.
+    def buttons input
+      input.flatten.map{ button(_1).code }.uniq
+    end
+
+    # Get axis codes for input.
+    def axes input
+      input.flatten.map{ axis(_1).code }.uniq
+    end
+
+    # Get hat codes for input.
+    def hats input
+      input.flatten.map{ hat(_1).code }.uniq
+    end
+
+    # Set button.
+    def button! id, code
+      @button_map[id] = @buttoncode_map[code] = Button.new id, code
+    end
+
+    # Get button.
+    def button param
+      case param
+      when Button
+        param
+      else
+        @buttoncode_map[param] or @button_map[param]
+      end
+    end
+
+    # Set axis.
+    def axis! id, code
+      @axis_map[id] = @axiscode_map[code] = Axis.new id, code
+    end
+
+    # Get axis.
+    def axis param
+      case param
+      when Axis
+        param
+      else
+        @axiscode_map[param] or @axis_map[param]
+      end
+    end
+
+    # Set hat.
+    def hat! id, code, &block
+      @hat_map[id] = @hatcode_map[code] = Hat.new(id, code).set &block
+    end
+
+    # Get hat.
+    def hat param
+      case param
+      when Hat
+        param
+      else
+        @hatcode_map[param] or @hat_map[param]
+      end
+    end
+
+    # Get whether button is pressed.
+    def pressed? key
+      return nil if !opened?
+      button = button key
+      Pastele.joystick_get_button_state(@device_id, button.code) != 0 if button
+    end
+
+    # Get axis value.
+    def value key
+      return nil if !opened?
+      axis = axis key
+      Pastele.joystick_get_axis_value @device_id, axis.code if axis
+    end
+
+    # Get whether joystick is opened.
+    def opened?
+      !!@device_id
+    end
+
+    # :section: LEVEL 2
+
+    @@next_name = :joystick_1
+
+    def initialize
+      @button_map = {}
+      @buttoncode_map = {}
+      @axis_map = {}
+      @axiscode_map = {}
+      @hat_map = {}
+      @hatcode_map = {}
+      @device_id = nil
+      if @name.nil?
+        @name = @@next_name
+        @@next_name = @@next_name.next
+      end
+    end
+
+    def match device_index
+      0
+    end
+
+    attr_accessor :device_id
+
+  end
+end

data/lib/kredki/core/media/keyboard.rb

@@ -0,0 +1,84 @@
+
+module Kredki
+  # Keyboard device interface.
+  class Keyboard
+    include ModifiersDecoder
+    
+    # Keyboard key interface.
+    class Key
+
+      # Get key id.
+      def id
+        @id
+      end
+
+      # Get key code.
+      def keycode
+        @keycode
+      end
+  
+      # :section: LEVEL 2
+
+      def initialize id, keycode
+        @id = id
+        @keycode = keycode
+      end
+  
+      def ==(other)
+        Key === other &&
+        @keycode == other.keycode &&
+        @id == other.id
+      end
+    end
+
+    # Get keycodes for input.
+    def keycodes input
+      input.flatten.map{ _1.is_a?(String) ? _1.downcase.codepoints : _1 }.flatten.map{ key(_1).keycode }.uniq
+    end
+
+    # Set key.
+    def key! id, keycode
+      @key_map[id] = @keycode_map[keycode] = Key.new id, keycode
+    end
+
+    # Get key.
+    def key param
+      case param
+      when Key
+        param
+      when String
+        key param.to_sym
+      else
+        @keycode_map[param] or @key_map[param]
+      end
+    end
+
+    # Get whether key is pressed.
+    def pressed? param
+      Pastele.keyboard_get_key_state(key(param).keycode) != 0
+    end
+
+    # :section: LEVEL 2
+
+    def initialize
+      @key_map = {}
+      @keycode_map = {}
+    end
+
+    def inspect
+      "#{self.class}:#{object_id}"
+    end
+
+    def modifiers
+      Pastele.keyboard_get_mod_state
+    end
+
+    def key_press_event pastele_event
+      KeyboardKeyPressEvent.new self, pastele_event
+    end
+
+    def key_release_event pastele_event
+      KeyboardKeyReleaseEvent.new self, pastele_event
+    end
+  end
+end