kredki 0.1.0

data/lib/kredki/pads/option/option_item_group.rb

@@ -0,0 +1,16 @@
+require_relative '../item/item_group'
+require_relative 'option_item'
+
+module Kredki
+  module Pads
+    # Group of items.
+    class OptionItemGroup < ItemGroup
+
+      # Add new item.
+      def item!(...)
+        put(OptionItem, __method__, ...)
+      end
+      
+    end#OptionItemGroup
+  end#Pads
+end#Kredki

data/lib/kredki/pads/option/option_layer.rb

@@ -0,0 +1,81 @@
+require_relative 'option_item_group'
+
+module Kredki
+  module Pads
+    # Layer of option list
+    class OptionLayer < Layer
+
+      # Add new item.
+      def item! ...
+        @item_group.item!(...)
+      end
+
+      # :section: LEVEL 2
+
+      def initialize
+        super
+
+        @scroll = put ScrollPad, layout: :yss do
+          # scene.drop_shadow color: :black # this is too expensive at the moment
+        end
+        @pad = @scroll.put RectanglePad, fill: :gray, layout: :yss, size_y: Fit
+        @item_group = @pad.put OptionItemGroup
+      end
+
+      def behavior
+        super
+
+        on_key_press :escape do |e|
+          unload
+          e.close
+        end
+      end
+
+      def arrange
+        @note&.layer&.arrange
+        super
+      end
+
+      def load note
+        @note = note
+        @scroll.x = proc do |psx, sx|
+          x, y = *note.translate(0, note.area_size_y)
+          dsx = window.size_x - sx
+          x = [dsx, 0].max if x > dsx
+          x
+        end
+        @scroll.y = proc do |psy, sy|
+          x, y = *note.translate(0, note.area_size_y)
+          dsy = window.size_y - sy
+          y = [dsy, 0].max if y > dsy
+          y
+        end
+        @scroll.size_x = proc{ note.area_size_x }
+        @pad.size_x = proc do
+          psx = lower.area_size_x
+          psx -= 10 if @scroll.area_size_y < @pad.get_size_y
+          [psx, fit_size_x].max
+        end
+
+        note.pane.put self
+        @pad.find_upper(Item)&.keyboard_request
+      end
+
+      def unload
+        pad_detach
+        @note = nil
+      end
+
+      def loaded
+        !!@note
+      end
+
+      def mouse_press e
+        # unload
+      end
+
+      def mouse_release e
+      end
+    end
+  end
+end

data/lib/kredki/pads/pad/animation_pad.rb

@@ -0,0 +1,106 @@
+module Kredki
+  module Pads
+    # Pad with animation area.
+    class AnimationPad < Pad
+
+      # Set a feature recognized by its class.
+      def << arg
+        case arg
+        when String
+          set_subject arg
+        else
+          super
+        end
+      end
+
+      def set_frame ...
+        @area.set_frame(...)
+      end
+
+      def frame= param
+        send_bundle :set_frame, param
+      end
+
+      def frame
+        @area.frame
+      end
+
+      # Get duration.
+      def duration
+        @area.duration
+      end
+
+      # :section: LEVEL 2
+
+      def initialize_area
+        @area = @scene.new_animation
+      end
+
+      def update_subject subject
+        @area.content = subject.to_s
+      end
+
+      def min_size_x_value m
+        case @size_x
+        when Ratio
+          get_size_y * @area.picture.aspect_ratio
+        else super
+        end
+      end
+
+      def min_size_x_limit limit, m
+        case limit
+        when Ratio
+          get_size_y * @area.picture.aspect_ratio
+        else super
+        end
+      end
+
+      def get_size_x_value size_x, target_size_x, size_y
+        case size_x
+        when Ratio
+          if @ratio
+            size_y ||= @area.picture.original_size[1]
+          else
+            @ratio = true
+            size_y ||= get_size_y
+            @ratio = false
+          end
+          size_y * @area.picture.aspect_ratio
+        else super
+        end
+      end
+
+      def min_size_y_value m
+        case @size_y
+        when Ratio
+          get_size_x / @area.picture.aspect_ratio
+        else super
+        end
+      end
+
+      def min_size_y_limit limit, m
+        case limit
+        when Ratio
+          get_size_x / @area.picture.aspect_ratio
+        else super
+        end
+      end
+
+      def get_size_y_value size_y, target_size_y, size_x
+        case size_y
+        when Ratio
+          if @ratio
+            size_x ||= @area.picture.original_size[0]
+          else
+            @ratio = true
+            size_x ||= get_size_x
+            @ratio = false
+          end
+          size_x / @area.picture.aspect_ratio
+        else super
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/pad/glyph_pad.rb

@@ -0,0 +1,71 @@
+module Kredki
+  module Pads
+    # Pad with glyph area.
+    class GlyphPad < PicturePad
+
+      # Set subject.
+      def set_subject subject = @subject
+        return send_bundle :set_subject, yield(self.subject) if block_given?
+        return if @subject == subject && subject != :random
+        if update_subject Kredki.glyph(subject)
+          update_color if @fill
+        end
+        @subject = subject
+        true
+      end
+
+      # Set fill.
+      def set_fill *fill
+        return send_bundle :set_fill, yield(self.fill) if block_given?
+        fill = Util.uncover fill
+        return if @fill == fill && fill != :random
+        @fill = fill
+        update_color
+        true
+      end
+
+      # See #set_fill.
+      def fill= param
+        send_bundle :set_fill, param
+      end
+
+      # Get fill.
+      def fill
+        @fill
+      end
+
+      # Set a feature recognized by its class.
+      def << arg
+        case arg
+        when Symbol
+          set_subject arg if arg =~ /^[a-z_0-9]+$/
+          super
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      def initialize ...
+        super
+
+        @fill = nil
+      end
+
+      def sketch
+        super
+
+        set_size Kredki.text_size
+      end
+
+      def update_color
+        color = Kredki.color @fill
+        @area.each_shape do |shape|
+          Pastele.shape_set_fill_color shape.pointer, *color
+        end
+        @area.update
+      end
+    end
+  end
+end