kredki 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 9af44856eae558d033e3b429e6e767ef560c0b828b9d55286ad19e374ee8d6d4
+  data.tar.gz: ea9590394ddc1d90e13fb15e803435844a688df926dec21f21c0a271a8c8e737
+SHA512:
+  metadata.gz: 5861f30176a2fff56ad78f3db95ec785920c1cdc3aac28d5b2fd9424087b5904e6004131846c047f8047bf73332c8277f636517df076d7191e52a72da0a5f62d
+  data.tar.gz: 60cb7728819220bd7dccc22a0a20cbd5bb217c4927add4f3682fe7082d37fbe5685b435030b661a0fdd9d7e93cfe25f437def526e299e3e2af1ecc115a56642d

data/lib/kredki/core/application.rb

@@ -0,0 +1,314 @@
+module Kredki
+  class Application
+    
+    # Run application event loop.
+    def run
+      @run_ms = Kredki.ms
+      Pastele.application_run @pointer
+      Kredki.clear_app
+      @result
+    end
+
+    # Open window in application.
+    def open opened = nil, *a, hidden: false, **ka, &b
+      case opened
+      when Window
+        window = opened
+        result = put_window(window).pane!.set(*a, **ka, &b)
+        window.show unless hidden
+      else
+        window = default_window
+        pane = opened || window.default_pane
+        result = put_window(window).set_pane(pane).set(*a, **ka, &b)
+        window.show unless hidden
+      end
+      result
+    end
+
+    # Get window.
+    def window key = nil
+      (key ? @windows[key] : @main_window)&.then{|it| it.scene }
+    end
+
+    # Get milliseconds since run.
+    def ms
+      Kredki.ms - (@run_ms || 0)
+    end
+
+    # Break event loop.
+    def return result = nil
+      @result = result
+      @windows.each_value{|it| delete_window it, false }
+      Pastele.application_exit @pointer
+    end
+
+    # General event exception handler.
+    def rescue &block
+      @rescue = block if block
+      @rescue
+    end
+
+    # :section: LEVEL 2
+
+    class DropData
+      def initialize source, text, type
+        @source = source
+        @text = text
+        @type = type
+      end
+
+      attr_accessor :source
+      attr_accessor :text
+      attr_accessor :type
+    end
+
+    def initialize
+      @pointer = Pastele.application_new
+      ObjectSpace.define_finalizer(self, Application.finalizer(@pointer))
+
+      @event_callback = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_INT, [Fiddle::TYPE_INT, Fiddle::TYPE_VOIDP], &method(:event))
+      Pastele.application_set_event_handler @pointer, @event_callback
+      @rescue = nil
+      @windows = {}
+      @early_close_next_text_event = false
+      @drop_data = nil
+    end
+
+    def self.finalizer pointer
+      proc{ Pastele.application_delete pointer }
+    end
+
+    def run_ms
+      @run_ms
+    end
+
+    def event event_type, event_ptr
+      event = case event_type
+      when 0x202
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, ShowEvent.new(abi)
+      when 0x203
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, HideEvent.new(abi)
+      when 0x204
+        abi = Pastele::WindowEvent.new event_ptr
+        application_event WindowExposeEvent.new(abi)
+      when 0x205
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, MoveEvent.new(abi.data1, abi.data2, abi)
+      when 0x206
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, ResizeEvent.new(abi.data1, abi.data2, abi)
+      when 0x209
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowMinimizeEvent.new(abi)
+      when 0x20A
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowMaximizeEvent.new(abi)
+      when 0x20B
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowRestoreEvent.new(abi)
+      when 0x20C
+        abi = Pastele::WindowEvent.new event_ptr
+        event = MousePointerEnterEvent.new abi
+        if window = @windows[abi.window_id]
+          window.update_mouse_in true
+          window.report event
+        end
+        event
+      when 0x20D
+        abi = Pastele::WindowEvent.new event_ptr
+        event = MousePointerLeaveEvent.new abi
+        if window = @windows[abi.window_id]
+          window.update_mouse_in false
+          window.report event
+        end
+        event
+      when 0x20E
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, FocusEnterEvent.new(abi)
+      when 0x20F
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, FocusLeaveEvent.new(abi)
+      when 0x210
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowCloseEvent.new(abi) do |event|
+          unless event.closed?
+            window = @windows[abi.window_id]
+            delete_window window if window
+            event.close
+          end
+        end
+      when 0x211
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowHitTestEvent.new(abi)
+      when 0x212
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowIccprofChangeEvent.new(abi)
+      when 0x213
+        abi = Pastele::WindowEvent.new event_ptr
+        window_event abi.window_id, WindowDisplayChangeEvent.new(abi)
+      when 0x300 # SDL_EVENT_KEY_DOWN
+        abi = Pastele::KeyboardEvent.new event_ptr
+        if keyboard = Kredki.keyboard
+          event = keyboard.key_press_event abi
+          window_event abi.window_id, event do |event|
+            @early_close_next_text_event = event.closed? && (32..122).include?(event.code)
+          end
+        end
+      when 0x301 # SDL_EVENT_KEY_UP
+        abi = Pastele::KeyboardEvent.new event_ptr
+        if keyboard = Kredki.keyboard
+          event = keyboard.key_release_event abi
+          window_event abi.window_id, event
+        end
+      when 0x400 # SDL_EVENT_MOUSE_MOTION
+        abi = Pastele::MouseMotionEvent.new event_ptr
+        if mouse = Kredki.mouse
+          event = mouse.pointer_move_event abi
+          window_event abi.window_id, event
+        end
+      when 0x401 # SDL_EVENT_MOUSE_BUTTON_DOWN
+        abi = Pastele::MouseButtonEvent.new event_ptr
+        if mouse = Kredki.mouse
+          event = mouse.button_press_event abi
+          window_event abi.window_id, event
+        end
+      when 0x402 # SDL_EVENT_MOUSE_BUTTON_UP
+        abi = Pastele::MouseButtonEvent.new event_ptr
+        if mouse = Kredki.mouse
+          event = mouse.button_release_event abi
+          window_event abi.window_id, event
+          event
+        end
+      when 0x403 # SDL_EVENT_MOUSE_WHEEL
+        abi = Pastele::MouseWheelEvent.new event_ptr
+        if mouse = Kredki.mouse
+          event = Kredki.mouse.wheel_scroll_event abi
+          window_event abi.window_id, event
+        end
+      when 0x303 # SDL_EVENT_TEXT_EDITING
+        abi = Pastele::TextInputEvent.new event_ptr
+        event = TextInputEvent.new event_ptr, abi
+        @early_close_next_text_event &&= event.close && false
+        window_event abi.window_id, event
+      when 0x600 # SDL_EVENT_JOYSTICK_AXIS_MOTION
+        abi_event = Pastele::JoyAxisEvent.new event_ptr
+        application_event JoystickAxisMoveEvent.new(Kredki.opened_joysticks[abi_event.which], abi_event)
+      when 0x602 # SDL_EVENT_JOYSTICK_HAT_MOTION
+        abi_event = Pastele::JoyHatEvent.new event_ptr
+        application_event JoystickHatSwitchEvent.new(Kredki.opened_joysticks[abi_event.which], abi_event)
+      when 0x603 # SDL_EVENT_JOYSTICK_BUTTON_DOWN
+        abi_event = Pastele::JoyButtonEvent.new event_ptr
+        application_event JoystickButtonPressEvent.new(Kredki.opened_joysticks[abi_event.which], abi_event)
+      when 0x604 # SDL_EVENT_JOYSTICK_BUTTON_UP
+        abi_event = Pastele::JoyButtonEvent.new event_ptr
+        application_event JoystickButtonReleaseEvent.new(Kredki.opened_joysticks[abi_event.which], abi_event)
+      when 0x605 # SDL_EVENT_JOYSTICK_ADDED
+        abi_event = Pastele::JoyDeviceEvent.new event_ptr
+        joystick = (Kredki.joysticks.values - Kredki.opened_joysticks.values).max{ _1.match abi_event.which } || Joystick.new
+        application_event JoystickConnectEvent.new(joystick, abi_event) do |event|
+          unless event.closed?
+            device_id = Pastele.joystick_open abi_event.which
+            Kredki.opened_joysticks[device_id] = joystick
+            joystick.device_id = device_id
+            event.close
+          end
+        end
+      when 0x606 # SDL_EVENT_JOYSTICK_REMOVED
+        abi_event = Pastele::JoyDeviceEvent.new event_ptr
+        device_id = abi_event.which
+        joystick = Kredki.opened_joysticks[device_id]
+        application_event JoystickDisconnectEvent.new(joystick, abi_event) do |event|
+          unless event.closed?
+            joystick = Kredki.opened_joysticks.delete device_id
+            joystick&.device_id = nil
+            event.close
+          end
+        end
+      when 0x1000 # SDL_EVENT_DROP_FILE
+        abi = Pastele::DropEvent.new event_ptr
+        @drop_data << DropData.new(
+          abi.source.then{|it| it.null? ? nil : it.to_s.force_encoding("utf-8") },
+          abi.data.to_s.force_encoding("utf-8"),
+          :file,
+        )
+        nil
+      when 0x1001 # SDL_EVENT_DROP_TEXT
+        abi = Pastele::DropEvent.new event_ptr
+        @drop_data << DropData.new(
+          abi.source.then{|it| it.null? ? nil : it.to_s.force_encoding("utf-8") },
+          abi.data.to_s.force_encoding("utf-8"),
+          :text,
+        )
+        nil
+      when 0x1002 # SDL_EVENT_DROP_BEGIN
+        @drop_data = []
+        abi = Pastele::DropEvent.new event_ptr
+        window_event abi.window_id, DropBeginEvent.new(abi)
+      when 0x1003 # SDL_EVENT_DROP_COMPLETE
+        abi = Pastele::DropEvent.new event_ptr
+        if @drop_data.empty?
+          window_event abi.window_id, DropCancelEvent.new(abi)
+        else
+          window_event abi.window_id, DropEvent.new(@drop_data, abi)
+        end
+      when 0x1004 # SDL_EVENT_DROP_POSITION
+        abi = Pastele::DropEvent.new event_ptr
+        event = MousePointerDropEvent.new Kredki.mouse, abi
+        window_event abi.window_id, event
+      when 256
+        application_event ExitEvent.new(Pastele::QuitEvent.new event_ptr)
+      when 0x8001 # USEREVENT_UPDATEWINDOW
+        abi = Pastele::UserEvent.new event_ptr
+        window_event abi.window_id, TickEvent.new(abi)
+      when 0x8007 # Close window Event
+        abi = Pastele::UserEvent.new event_ptr
+        window_event abi.window_id, TickEvent.new(abi)
+      when 0x8008 # USEREVENT_UPDATECOMPLETEWINDOW
+        abi = Pastele::UserEvent.new event_ptr
+        window_event abi.window_id, UpdateCompleteEvent.new(abi)
+      else # unsupported event
+        # puts event_type.to_s 16
+        nil
+      end
+      event&.closed? ? 1 : 0
+    end
+
+    def put_window window
+      window_id = Pastele.application_insert_window @pointer, window.pointer
+      @windows[window_id] = window
+      @main_window ||= window
+      window.attach self
+      window
+    end
+
+    def delete_window window, last_exit = true
+      window.hide
+      window_id = Pastele.application_erase_window(@pointer, window.pointer)
+      @windows.delete window_id
+      window.detach
+      if last_exit && @windows.empty?
+        self.return
+      else
+        @main_window = @windows.values.first if @main_window == window
+      end
+    end
+
+    def window_event window_id, event, &post_process
+      @windows[window_id]&.report event
+      post_process&.call event
+      event
+    end
+
+    def application_event event, &post_process
+      @windows.values.each{|it| it.report event }
+      post_process&.call event
+      event
+    end
+
+    def default_window
+      Window.new
+    end
+  end
+end

data/lib/kredki/core/color.rb

@@ -0,0 +1,100 @@
+module Kredki
+  # Immutable color model
+  class Color
+
+    # Get red channel value.
+    def r
+      @r
+    end
+
+    # Get green channel value.
+    def g
+      @g
+    end
+
+    # Get blue channel value.
+    def b
+      @b
+    end
+
+    # Get alpha channel value.
+    def a
+      @a
+    end
+
+    # Get color copy with RGB channels saturation increased by a +level+.
+    def lighten level = 10
+      Color.new *to_a(:rgb).map{ (_1 + level).clamp(0, 255) }, @a
+    end
+
+    # Get color copy with RGB channels saturation decreased by a +level+.
+    def darken level = 10
+      Color.new *to_a(:rgb).map{ (_1 - level).clamp(0, 255) }, @a
+    end
+
+    # Get color copy with changed Alpha channel saturation.
+    def clarify a = 255
+      a = (255 * a).to_i if a.is_a? Rational
+      Color.new *to_a(:rgb), a
+    end
+
+    # Get color copy with tuned RGB channels saturation.
+    def tune r = 0, g = 0, b = 0
+      Color.new (@r + r).clamp(0, 255), (@g + g).clamp(0, 255), (@b + b).clamp(0, 255), @a
+    end
+
+    # Get textual representation.
+    def to_s
+      "##{ to_a.map{|it| it.to_s(16).rjust(2, "0") }.join }"
+    end
+
+    # :section: LEVEL 2
+
+    def initialize r, g, b, a = 255
+      @r = r
+      @g = g
+      @b = b
+      @a = a
+    end
+
+    def self.parse *a
+      case a = Util.uncover(a)
+      when String
+        a = a[1..] if a.start_with? "#"
+        alpha = a.length > 6 ? a[6...8].to_i(16) : 255
+        Color.new a[0...2].to_i(16), a[2...4].to_i(16), a[4...6].to_i(16), alpha
+      when Array
+        Color.new *a
+      else raise_ia a
+      end
+    end
+
+    def to_rgb
+      [@r, @g, @b]
+    end
+
+    def to_rgba
+      [@r, @g, @b, @a]
+    end
+
+    def to_a mode = :rgba
+      case mode
+      when :rgb
+        to_rgb
+      else
+        to_rgba
+      end
+    end
+
+    alias_method :to_ary, :to_a
+
+    def ==(other)
+      Color === other &&
+      r == other.r && 
+      g == other.g && 
+      b == other.b && 
+      a == other.a
+    end
+
+  end
+end

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

@@ -0,0 +1,44 @@
+module Kredki
+  # Block based event reaction.
+  class BlockEventReaction < EventReaction
+
+    # Attach copy of reaction to another manager.
+    def attach manager, always = false
+      self.class.new @block, manager, always
+    end
+
+    # Cancel reaction.
+    def cancel
+      super
+      @block = nil
+    end
+
+    # :section: LEVEL 2
+
+    def initialize block, ...
+      super(...)
+      @block = block
+    end
+
+    attr_accessor :block
+
+    def call event = nil
+      return if !@always && event&.closed?
+      event&.reaction = self
+      begin
+        @block.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} #{[@block.binding.receiver, @block]}"
+    end
+  end
+end

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

@@ -0,0 +1,37 @@
+module Kredki
+  # Collection of event managers used as a single entity.
+  class CompositeEventManager
+    include EventManagerJobs
+
+    # :section: LEVEL 2
+
+    def initialize managers
+      @managers = managers
+    end
+
+    def attach attached, always: false
+      reaction = case attached
+      when BlockEventReaction
+        BlockEventReaction.new attached.block, self, always
+      when MethodEventReaction
+        MethodEventReaction.new attached.method, self, always
+      when JobEventReaction
+        JobEventReaction.new attached.job, self, always
+      when Proc
+        BlockEventReaction.new attached, self, always
+      else raise_ia attached
+      end
+      @managers.each{|it| it.reactions << reaction }
+      reaction
+    end
+
+    def <<(attached)
+      attach attached
+      self
+    end
+
+    def detach reaction
+      @managers.each{|it| it.detach reaction }
+    end
+  end
+end

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

@@ -0,0 +1,91 @@
+module Kredki
+  # General event.
+  class Event
+
+    # Attach few events to identical reaction.
+    def self.each *event_managers, do: nil, &block
+      attached = block || binding.local_variable_get(:do)
+      event_managers.map{|it| it.attach attached }
+    end
+
+    # Make new event.
+    def initialize source = nil, target = nil
+      @source = source
+      @target = target
+      @closed = false
+      @reaction = nil
+    end
+
+    # Set target.
+    def target= target
+      @target = target
+    end
+
+    # Get target.
+    def target
+      @target
+    end
+
+    # Set source.
+    def source= source
+      @source = source
+    end
+
+    # Get source.
+    def source
+      @source
+    end
+
+    # See #param.
+    def ~
+      param
+    end
+
+    # Get event main parameter. Method overrided in inheriting classes.
+    def param
+      nil
+    end
+    
+    # Get whether event is closed. Closed events are processed only by reactions with always = +true+.
+    def closed?
+      @closed
+    end
+
+    # Close event. Closed events are processed only by reactions with always = +true+.
+    def close
+      @closed = true
+    end
+
+    # Get current event reaction.
+    def reaction
+      Array === @reaction ? @reaction.last : @reaction
+    end
+
+    # Set whether all visited reactions are collected. 
+    def trace= trace
+      if trace
+        @reaction = Util.cover @reaction
+      else
+        @reaction = reaction
+      end
+    end
+
+    # :section: LEVEL 2
+
+    def inspect
+      "#{self.class}:#{object_id}"
+    end
+
+    def reaction= reaction
+      if Array === @reaction
+        @reaction << reaction
+      else
+        @reaction = reaction
+      end
+    end
+
+    def reactions
+      @reaction
+    end
+  end
+end

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

@@ -0,0 +1,60 @@
+require_relative 'event_reaction'
+require_relative 'block_event_reaction'
+require_relative 'method_event_reaction'
+require_relative 'job_event_reaction'
+require_relative 'event_manager_jobs'
+
+module Kredki
+  # Manage event reactions.
+  class EventManager
+    include EventManagerJobs
+
+    # :section: LEVEL 2
+
+    def initialize
+      @reactions = []
+    end
+
+    attr :reactions
+
+    def report event
+      @reactions.each{|it| it.call event }
+    end
+
+    def attach attached = nil, always: false, at: true, &block
+      attached ||= block
+      reaction = case attached
+      when Proc
+        BlockEventReaction.new attached, self, always
+      when Method
+        MethodEventReaction.new attached, self, always
+      when Job
+        JobEventReaction.new attached, self, always
+      when EventReaction
+        attached.attach self, always
+      else raise_is attached
+      end
+      case at
+      when true
+        @reactions.prepend reaction
+      when Integer
+        @reactions.insert at, service
+      when EventReaction
+        @reactions.insert @reactions.index(at), service
+      when :last
+        @reactions.append reaction
+      else raise_ia at
+      end
+      reaction
+    end
+
+    def <<(attached)
+      attach attached
+      self
+    end
+
+    def detach reaction
+      @reactions.delete reaction
+    end
+  end
+end

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

@@ -0,0 +1,53 @@
+module Kredki
+  # Job reaction methods.
+  module EventManagerJobs
+
+    # Create and attach job after.
+    def after delay = 0, &block
+      case delay
+      when Numeric
+        job = AfterJob.new block, delay
+        attach job
+        job
+      when Job
+        attach delay
+        delay
+      when Proc
+        job = AfterJob.new delay, 0
+        attach 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
+  end
+end