kredki 0.1.0

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

@@ -0,0 +1,154 @@
+
+module Kredki
+  class Keyboard
+    # Decodes key modifiers.
+    module ModifiersDecoder
+      
+      # Get whether key modifiers match given criteria.
+      def match shift: false, alt: false, ctrl: false, windows: false, num_lock: :any, caps_lock: :any, scroll_lock: :any
+        mod = modifiers
+
+        case shift
+        when :left
+          return false if mod & 0b0000_0000_0000_0001 == 0
+        when :right
+          return false if mod & 0b0000_0000_0000_0010 == 0
+        when true
+          return false if mod & 0b0000_0000_0000_0011 == 0
+        when false
+          return false if mod & 0b0000_0000_0000_0011 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case alt
+        when :left
+          return false if mod & 0b0000_0001_0000_0000 == 0
+        when :right
+          return false if mod & 0b0000_0010_0000_0000 == 0
+        when true
+          return false if mod & 0b0000_0011_0000_0000 == 0
+        when false
+          return false if mod & 0b0000_0011_0000_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case ctrl
+        when :left
+          return false if mod & 0b0000_0000_0100_0000 == 0
+        when :right
+          return false if mod & 0b0000_0000_1000_0000 == 0
+        when true
+          return false if mod & 0b0000_0000_1100_0000 == 0
+        when false
+          return false if mod & 0b0000_0000_1100_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case windows
+        when true
+          return false if mod & 0b0000_0100_0000_0000 == 0
+        when false
+          return false if mod & 0b0000_0100_0000_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case num_lock
+        when true
+          return false if mod & 0b0001_0000_0000_0000 == 0
+        when false
+          return false if mod & 0b0001_0000_0000_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case caps_lock
+        when true
+          return false if mod & 0b0010_0000_0000_0000 == 0
+        when false
+          return false if mod & 0b0010_0000_0000_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+
+        case scroll_lock
+        when true
+          return false if mod & 0b1000_0000_0000_0000 == 0
+        when false
+          return false if mod & 0b1000_0000_0000_0000 != 0
+        when :any
+        else raise_ia shift
+        end
+        true
+      end
+
+      # Get whether left shift is pressed.
+      def left_shift?
+        modifiers & 0b0000_0000_0000_0001 != 0
+      end
+
+      # Get whether right shift is pressed.
+      def right_shift?
+        modifiers & 0b0000_0000_0000_0010 != 0
+      end
+
+      # Get whether left alt is pressed.
+      def left_alt?
+        modifiers & 0b0000_0001_0000_0000 != 0
+      end
+
+      # Get whether right alt is pressed.
+      def right_alt?
+        modifiers & 0b0000_0010_0000_0000 != 0
+      end
+
+      # Get whether left ctrl is pressed (or right alt).
+      def left_ctrl?
+        modifiers & 0b0000_0000_0100_0000 != 0
+      end
+
+      # Get whether right ctrl is pressed.
+      def right_ctrl?
+        modifiers & 0b0000_0000_1000_0000 != 0
+      end
+
+      # Get whether ctrl is pressed.
+      def ctrl?
+        left_ctrl? || right_ctrl?
+      end
+
+      # Get whether alt is pressed.
+      def alt?
+        left_alt? || right_alt?
+      end
+
+      # Get whether shift is pressed.
+      def shift?
+        left_shift? || right_shift?
+      end
+
+      # Get whether windows key is pressed.
+      def windows?
+        modifiers & 0b0000_0100_0000_0000 != 0
+      end
+
+      # Get whether num lock is on.
+      def num_lock?
+        modifiers & 0b0001_0000_0000_0000 != 0
+      end
+
+      # Get whether caps lock is on.
+      def caps_lock?
+        modifiers & 0b0010_0000_0000_0000 != 0
+      end
+
+      # Get whether scroll lock is on.
+      def scroll_lock?
+        modifiers & 0b1000_0000_0000_0000 != 0
+      end
+    end
+  end
+end

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

@@ -0,0 +1,197 @@
+module Kredki
+  # Mouse device model.
+  class Mouse
+    # Mouse button model.
+    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
+
+    # Get button codes.
+    def indexes input
+      input.map{ button(_1).code }.uniq
+    end
+
+    # Set wheel speed.
+    def set_scroll_speed speed = @scroll_speed
+      return set_scroll_speed yield @scroll_speed if block_given?
+      @scroll_speed = speed
+      true
+    end
+
+    # See #set_scroll_speed.
+    def scroll_speed= param
+      set_scroll_speed param
+    end
+
+    # Get wheel speed.
+    def scroll_speed
+      @scroll_speed
+    end
+
+    # Set alternative wheel speed.
+    def set_scroll_speed_alt speed = @scroll_speed_alt
+      return set_scroll_speed_alt yield @scroll_speed_alt if block_given?
+      @scroll_speed_alt = speed
+      true
+    end
+
+    # See #set_scroll_speed_alt.
+    def scroll_speed_alt= param
+      set_scroll_speed_alt param
+    end
+
+    # Get alternative wheel speed.
+    def scroll_speed_alt
+      @scroll_speed_alt
+    end
+
+    # Set button.
+    def button! id, code
+      button = @button_map[id] = Button.new id, code
+      @buttoncode_map[code] ||= button
+    end
+
+    # Get button.
+    def button param
+      case param
+      when Button
+        param
+      else
+        @buttoncode_map[param] or @button_map[param] or raise "Unknown button #{param.inspect}"
+      end
+    end
+
+    # Get whether button is pressed.
+    def pressed? id = :primary
+      b = button id
+      Pastele.mouse_get_button_state(b.code) != 0 if b
+    end
+
+    # Get pointer position along X axis.
+    def x
+      xy[0]
+    end
+
+    # Get pointer position along Y axis.
+    def y
+      xy[1]
+    end
+
+    # Get pointer position along X and Y axes.
+    def xy
+      point = Pastele::Point.malloc(Fiddle::RUBY_FREE)
+      Pastele.mouse_get_cursor_position point
+      [point.x, point.y]
+    end
+
+    # Set whether capture mode is on.
+    def set_capture value = true
+      return if (c = capture) == (value = block_given? ? yield(c) : value == Not ? !c : value)
+      Pastele.mouse_set_capture capture ? 1 : 0
+      true
+    end
+
+    # See #set_capture.
+    def capture= param
+      set_caupture param
+    end
+
+    # Set cursor.
+    def set_cursor cursor = @cursor
+      return send_bundle :set_cursor, yield(self.cursor) if block_given?
+      return if @cursor == cursor
+      @cursor = cursor
+      update_cursor cursor
+      true
+    end
+
+    # See #set_cursor.
+    def cursor= param
+      send_bundle :set_cursor, param
+    end
+
+    # Get cursor.
+    def cursor
+      @cursor
+    end
+    
+    # :section: LEVEL 2
+
+    def initialize
+      @button_map = {}
+      @buttoncode_map = {}
+      @scroll_speed = 1.0
+      @scroll_speed_alt = 0.5
+      @cursor = nil
+      @system_cursors = {}
+    end
+
+    def wheel_scroll_event pastele_event
+      MouseWheelScrollEvent.new self, pastele_event
+    end
+
+    def pointer_move_event pastele_event
+      MousePointerMoveEvent.new self, pastele_event
+    end
+
+    def button_press_event pastele_event
+      MouseButtonPressEvent.new self, pastele_event
+    end
+
+    def button_release_event pastele_event
+      MouseButtonReleaseEvent.new self, pastele_event
+    end
+
+    def update_cursor cursor
+      Pastele.mouse_set_cursor case cursor
+      when nil, :default then system_cursor 0
+      when :text then system_cursor 1
+      when :wait then system_cursor 2
+      when :crosshair then system_cursor 3
+      when :progress then system_cursor 4
+      when :resize_ssee, :resize_eess then system_cursor 5
+      when :resize_sees, :resize_esse then system_cursor 6
+      when :resize_x then system_cursor 7
+      when :resize_y then system_cursor 8
+      when :move then system_cursor 9
+      when :not_allowed then system_cursor 10
+      when :pointer then system_cursor 11
+      when :resize_ss then system_cursor 12
+      when :resize_ys then system_cursor 13
+      when :resize_es then system_cursor 14
+      when :resize_xe then system_cursor 15
+      when :resize_ee then system_cursor 16
+      when :resize_ye then system_cursor 17
+      when :resize_se then system_cursor 18
+      when :resize_xs then system_cursor 19
+      when :count then system_cursor 20
+      end
+    end
+
+    def system_cursor cursor
+      @system_cursors[cursor] ||= Pastele.mouse_create_system_cursor cursor
+    end
+  end
+end

data/lib/kredki/core/paint/animation.rb

@@ -0,0 +1,247 @@
+module Kredki
+  # Picture that may change over time.
+  class Animation
+
+    # Set animation content.
+    def set_content ...
+      if @picture.set_content(...)
+        @duration = (Pastele.animation_get_duration(@pointer) * 1000).to_i
+        @total_frames = Pastele.animation_get_total_frames @pointer
+        @frame = 0
+        true
+      end
+    end
+
+    # See #set_content.
+    def content= param
+      send_bundle :set_content, param
+    end
+
+    # Get content.
+    def content
+      @content
+    end
+
+    # Set size in X axis.
+    def set_size_x ...
+      @picture.set_size_x(...)
+    end
+
+    # See: #set_size_x
+    def size_= param
+      @picture.size_x = param
+    end
+
+    # Get size in X axis.
+    def size_x
+      @picture.size_x
+    end
+
+    # Set size in Y axis.
+    def set_size_y ...
+      @picture.set_size_y(...)
+    end
+
+    # See: #set_size_y
+    def size_y= param
+      @picture.size_y = param
+    end
+
+    # Get size in Y axis.
+    def size_y
+      @picture.size_y
+    end
+
+    # Set size.
+    def set_size ...
+      @picture.set_size(...)
+    end
+
+    # See: #set_size
+    def size= param
+      @picture.size = param
+    end
+
+    # Get size.
+    def size
+      @picture.size
+    end
+
+    # Set turn value.
+    def set_turn ...
+      @picture.set_turn(...)
+    end
+
+    # See: #set_turn
+    def turn= param
+      @picture.turn = param
+    end
+
+    # Get turn value.
+    def turn
+      @picture.turn
+    end
+
+    # Set zoom in the X axis.
+    def set_zoom_x ...
+      @picture.set_zoom_x(...)
+    end
+
+    # See: #set_zoom_x
+    def zoom_x= param
+      @picture.zoom_x = param
+    end
+
+    # Get zoom in the X axis.
+    def zoom_x
+      @picture.zoom_x
+    end
+
+    # Set zoom in the Y axis.
+    def set_zoom_y ...
+      @picture.set_zoom_y(...)
+    end
+
+    # See: #set_zoom_y
+    def zoom_y= param
+      @picture.zoom_y = param
+    end
+
+    # Get zoom in the Y axis.
+    def zoom_y
+      @picture.zoom_y
+    end
+
+    # Set zoom.
+    def set_zoom ...
+      @picture.set_zoom(...)
+    end
+
+    # See: #set_zoom
+    def zoom= param
+      @picture.zoom = param
+    end
+
+    # Get zoom.
+    def zoom
+      @picture.zoom
+    end
+
+    # Check wheather [+x+, +y+] is inside.
+    def include_point ...
+      @picture.include_point(...)
+    end
+
+    # Set current animation frame ms.
+    def set_frame frame = @frame
+      return set_frame yield @frame if block_given?
+      return if @frame == frame
+      update_frame frame * @total_frames
+      @frame = frame
+      true
+    end
+
+    # See #set_frame.
+    def frame= param
+      send_bundle :set_frame, param
+    end
+
+    # Get current animation frame ms.
+    def frame
+      @frame
+    end
+
+    # Get duration.
+    def duration
+      @duration
+    end
+
+    # Set animated segment.
+    def set_segment *segment
+      Pastele.animation_set_segment @pointer, *segment
+    end
+
+    # Attach related Kredki::Picture to the Kredki::Scene.
+    def attach scene, scenic = true, at = nil
+      @picture.attach scene, scenic, at
+      self
+    end
+
+    # Detach related Kredki::Picture from the Kredki::Scene.
+    def detach
+      @picture.detach
+    end
+
+    # Set whether Animation is scenic.
+    #
+    # All lower level Scenes must be scenic for the Animation to be displayed.
+    def set_scenic value = true
+      return if (c = scenic) == (value = block_given? ? yield(c) : value == Not ? !c : value)
+      update_scenic value
+      true
+    end
+
+    # See #set_scenic.
+    def scenic= value
+      set_scenic value
+    end
+    
+    # Get whether Animation is scenic.
+    def scenic
+      get_scenic
+    end
+
+    # Set a feature recognized by its class.
+    def << feature
+      case feature
+      in [x, y]
+        set_size x, y
+      in Numeric
+        set_size feature
+      in String
+        set_content feature
+      else
+        super
+      end
+    end
+
+    # :section: LEVEL 2
+
+    def initialize
+      @pointer = Pastele.animation_new
+      ObjectSpace.define_finalizer(self, Animation.finalizer(@pointer))
+
+      @picture = Picture.new Pastele.animation_get_picture @pointer
+      @total_frames = nil
+      @duration = nil
+    end
+
+    def self.finalizer pointer
+      proc{ Pastele.animation_delete pointer }
+    end
+
+    attr :pointer
+    attr :picture
+
+    def scene
+      @picture.scene
+    end
+    
+    def scene= scene
+      @picture.scene = scene
+    end
+
+    def update_scenic scenic
+      @picture.update_scenic scenic
+    end
+  
+    def get_scenic
+      @picture.get_scenic
+    end
+
+    def update_frame frame_index
+      Pastele.animation_set_frame @pointer, frame_index
+      @picture.update
+    end
+  end
+end

data/lib/kredki/core/paint/area.rb

@@ -0,0 +1,67 @@
+module Kredki
+  module Area
+
+    # Set size in X axis.
+    def set_size_x size_x = @size_x
+      return set_size_x yield @size_x if block_given?
+      return if @size_x == size_x
+      @size_x = size_x
+      @redraw_flag = true
+      update
+    end
+
+    # See #set_size_x.
+    def size_x= param
+      send_bundle :set_size_x, param
+    end
+
+    # Get size in X axis.
+    def size_x
+      @size_x
+    end
+
+    # Set size in Y axis.
+    def set_size_y size_y = @size_y
+      return set_size_y yield @size_y if block_given?
+      return if @size_y == size_y
+      @size_y = size_y
+      @redraw_flag = true
+      update
+    end
+
+    # See #set_size_y.
+    def size_y= param
+      send_bundle :set_size_y, param
+    end
+
+    # Get size in Y axis.
+    def size_y
+      @size_y
+    end
+
+    # Set size.
+    def set_size size_x = @size_x, size_y = size_x
+      return send_bundle :set_size, yield(self.size) if block_given?
+      return if @size_x == size_x && @size_y == size_y
+      @size_x = size_x
+      @size_y = size_y
+      @redraw_flag = true
+      update
+    end
+
+    # See #set_size.
+    def size= param
+      send_bundle :set_size, param
+    end
+    
+    # Get size.
+    def size
+      [@size_x, @size_y]
+    end
+
+    # Check wheather [+x+, +y+] is inside the Area.
+    def include_point x, y
+      x <= @size_x && y <= @size_y && x >= 0 && y >= 0
+    end
+  end
+end