kredki 0.1.0

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

@@ -0,0 +1,176 @@
+module Kredki
+  module Pads
+    # Pad with scrollable area.
+    class ScrollPad < Pad
+
+      # :section: LEVEL 2
+
+      def initialize
+        super
+        
+        # this component creation order is intentional; @corner existence is checked in put_pad
+        corner = put RectanglePad, layoutic: false, fill: :gray, size: 10, xy: End
+        @slider_x = put SliderX, layoutic: false, size_y: 10
+        @slider_y = put SliderY, layoutic: false, size_x: 10
+        @corner = corner
+        @clip_size_y_offset = @clip_size_x_offset = 0
+      end
+
+      def slider_x
+        @slider_x
+      end
+
+      def slider_y
+        @slider_y
+      end
+
+      def corner
+        @corner
+      end
+
+      def behavior
+        super
+        p0 = self
+
+        on Slider::EditEvent do |e|
+          layer&.break_layout
+          e.close
+        end
+
+        on_mouse_scroll do |e|
+          ps = pads_layoutic
+          if !ps.empty?
+            size_x, size_y = p0.area_size
+            xo, yo = if size_x < @layout_size_x && size_y < @layout_size_y
+              Kredki.relative_scroll *e.xy
+            elsif size_x < @layout_size_x
+              [Kredki.relative_scroll(*e.xy).find{|it| it.nonzero? }, 0]
+            elsif size_y < @layout_size_y
+              [0, Kredki.relative_scroll(*e.xy).find{|it| it.nonzero? }]
+            else
+              [0, 0]
+            end
+            if @slider_x.set_value{|it| (it - 0.3 * xo * size_x / @layout_size_x).clamp(0..1) } | 
+              @slider_y.set_value{|it| (it - 0.3 * yo * size_y / @layout_size_y).clamp(0..1) }
+            then
+              e.close
+            end
+          end
+        end
+
+        on_mouse_move do |e|
+          if e.drag?
+            speed = case e.button
+            when :primary then -1
+            when :scroll then 1
+            end
+            if speed
+              @slider_x.process_drag e, speed
+              @slider_y.process_drag e, speed
+              e.close
+            end
+          end
+        end
+
+        on VisionOfferEvent do |e|
+          x, y = e.target.translate *e.xy, self
+
+          if (range = (@layout_size_x || 0) - area_size_x) > 0
+            if x < 0 || (x += e.size_x - area_size_x) > 0
+              @slider_x.value += 1.0 * x / range
+            end
+          end
+
+          if (range = (@layout_size_y || 0) - area_size_y) > 0
+            if y < 0 || (y += e.size_y - area_size_y) > 0
+              @slider_y.value += 1.0 * y / range
+            end
+          end
+        end
+      end
+
+      def mouse_press e
+      end
+
+      def mouse_release e
+      end
+
+      def put_pad pad, at = nil
+        super pad, at || @corner
+      end
+
+      def arranged_pads
+        pads.take_while{|it| it != @corner }
+      end
+
+      def clip_size_x
+        super() + @clip_size_x_offset
+      end
+
+      def clip_size_y
+        super() + @clip_size_y_offset
+      end
+
+      def fit_size_x
+        super + @slider_y.get_size_x
+      end
+
+      def fit_size_y
+        super + @slider_x.get_size_y
+      end
+
+      def arrange prepare = true
+        @clip_size_x_offset = @clip_size_y_offset = 0 if prepare
+        offset_x, offset_y, @layout_size_x, @layout_size_y = super()
+        slide_size_y = @slider_x.get_size_y
+        slide_size_x = @slider_y.get_size_x
+        ps = arranged_pads
+        if !ps.empty?
+          asx, asy = area_size
+          xscroll = asx < @layout_size_x
+          yscroll = asy < @layout_size_y
+          yscroll ||= xscroll && asy - slide_size_y < @layout_size_y
+          xscroll ||= yscroll && asx - slide_size_x < @layout_size_x
+          if prepare && (xscroll || yscroll)
+            @clip_size_x_offset -= slide_size_y if yscroll
+            @clip_size_y_offset -= slide_size_x if xscroll
+            return arrange false
+          end
+          @slider_x.set_scenic xscroll
+          pad_x = 0
+          if xscroll
+            xs = yscroll ? asx + @clip_size_x_offset : asx
+            @slider_x.update_size xs, slide_size_y
+            @slider_x.update_xy 0, asy - slide_size_y
+            @slider_x.arrange @layout_size_x
+            pad_x += ((xs - @layout_size_x) * @slider_x.value).round - offset_x
+          end
+          
+          @slider_y.set_scenic yscroll
+          pad_y = 0
+          if yscroll
+            ys = xscroll ? asy + @clip_size_y_offset : asy
+            @slider_y.update_size slide_size_x, ys
+            @slider_y.update_xy asx - slide_size_x, 0
+            @slider_y.arrange @layout_size_y
+            pad_y += ((ys - @layout_size_y) * @slider_y.value).round - offset_y
+          end
+          
+          ps.each do |p1|
+            px = p1.x == Auto ? p1.area_x + pad_x : p1.area_x
+            py = p1.y == Auto ? p1.area_y + pad_y : p1.area_y
+            p1.update_xy px.ceil, py.ceil
+          end
+          if @corner.scenic = xscroll && yscroll
+            @corner.update_xy asx - slide_size_x, asy - slide_size_y
+          end
+        else
+          @slider_x.set_scenic false
+          @slider_y.set_scenic false
+          @corner.set_scenic false
+        end
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,148 @@
+module Kredki
+  module Pads
+    # Pad with shape area.
+    class ShapePad < Pad
+
+      # Set fill.
+      def set_fill ...
+        @area.set_fill(...)
+      end
+
+      # See #set_fill.
+      def fill= param
+        send_bundle :set_fill, param
+      end
+
+      # Get fill.
+      def fill
+        @area.fill
+      end
+
+      # Set stroke.
+      def set_stroke ...
+        @area.set_stroke(...)
+      end
+
+      # See #set_stroke.
+      def stroke= param
+        send_bundle :set_stroke, param
+      end
+
+      # Set stroke width.
+      def set_stroke_width ...
+        @area.set_stroke_width(...)
+      end
+
+      # See #set_stroke_width.
+      def stroke_width= param
+        send_bundle :set_stroke_width, param
+      end
+
+      # Get stroke width.
+      def stroke_width
+        @area.stroke_width
+      end
+
+      # Set stroke fill.
+      def set_stroke_fill ...
+        @area.set_stroke_fill(...)
+      end
+
+      # See #set_stroke_fill.
+      def stroke_fill= param
+        send_bundle :set_stroke_fill, param
+      end
+
+      # Get stroke fill.
+      def stroke_fill
+        @area.stroke_fill
+      end
+      
+      # Set stroke join.
+      def set_stroke_join ...
+        @area.set_stroke_join(...)
+      end
+
+      # See #set_stroke_join.
+      def stroke_join= param
+        send_bundle :set_stroke_join, param
+      end
+
+      # Get stroke join.
+      def stroke_join
+        @area.stroke_join
+      end
+
+      # Set stroke cap.
+      def set_stroke_cap ...
+        @area.set_stroke_cap(...)
+      end
+
+      # See #set_stroke_cap.
+      def stroke_cap= param
+        send_bundle :set_stroke_cap, param
+      end
+
+      # Get stroke cap.
+      def stroke_cap
+        @area.stroke_cap
+      end
+
+      # Set stroke dash pattern.
+      def set_stroke_pattern ...
+        @area.set_stroke_pattern(...)
+      end
+
+      # See #set_stroke_pattern.
+      def stroke_pattern= param
+        send_bundle :set_stroke_pattern, param
+      end
+
+      # Get stroke dash pattern.
+      def stroke_pattern
+        @area.stroke_pattern
+      end
+
+      # Set stroke trim.
+      def set_stroke_trim ...
+        @area.set_stroke_trim(...)
+      end
+
+      # See #set_stroke_trim.
+      def stroke_trim= param
+        send_bundle :set_stroke_trim, param
+      end
+
+      # Get stroke trim.
+      def stroke_trim
+        @area.stroke_trim
+      end
+
+      # Set whether stroke is behind fill.
+      def set_stroke_behind ...
+        @area.set_stroke_behind(...)
+      end
+
+      # See #set_stroke_behind.
+      def stroke_behind= param
+        send_bundle :set_stroke_behind, param
+      end
+
+      # Get whether stroke is behind fill.
+      def stroke_behind
+        @area.stroke_behind
+      end
+
+      # See #stroke_behind.
+      def stroke_behind?
+        @area.stroke_behind?
+      end
+
+      # :section: LEVEL 2
+
+      def initialize_area
+        @area = @scene.new_rectangle
+      end
+    end
+  end
+end

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

@@ -0,0 +1,33 @@
+module Kredki
+  module Pads
+    # Pad that occupy some space.
+    class SpacePad < Pad
+
+      # Set a feature recognized by its class.
+      def << feature
+        case feature
+        in Numeric
+          set_margin feature * 0.5
+        in [Numeric, Numeric]
+          set_margin feature[0] * 0.5, feature[1] * 0.5
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      def sketch
+        super
+        
+        set_size 1r
+      end
+
+      def mouse_press e
+      end
+
+      def mouse_release e
+      end
+    end
+  end
+end

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

@@ -0,0 +1,310 @@
+module Kredki
+  module Pads
+    # Pad with text area.
+    class TextPad < Pad
+
+      # Get text content.
+      def text
+        @subject.to_s
+      end
+
+      # Set fill.
+      def set_fill *fill
+        return send_bundle :set_fill, yield(self.fill) if block_given?
+        return unless @area.set_fill *fill
+        @verses.each{|it| it.set_fill *fill }
+        true
+      end
+      
+      # See #set_fill.
+      def fill= param
+        send_bundle :set_fill, param
+      end
+
+      # Get fill.
+      def fill
+        @area.fill
+      end
+
+      # Set stroke features.
+      def set_stroke *a, **ka
+        a.map do |it|
+          case it
+          when Hash
+            set_stroke **it
+          when Numeric
+            set_stroke_width it
+          else
+            send_bundle :set_stroke_fill, it
+          end
+        end.any? | send_branch(__method__, ka)
+      end
+      
+      # See #set_stroke.
+      def stroke= param
+        send_bundle :set_stroke, param
+      end
+
+      # Set stroke fill.
+      def set_stroke_fill *stroke_fill
+        return send_bundle :set_stroke_fill, yield(self.stroke_fill) if block_given?
+        return unless @area.set_stroke_fill *stroke_fill
+        @verses.each{|it| it.set_stroke_fill *stroke_fill }
+        true
+      end
+
+      # See #set_stroke_fill.
+      def stroke_fill= param
+        send_bundle :set_stroke_fill, param
+      end
+
+      # Get stroke fill.
+      def stroke_fill
+        @area.fill
+      end
+
+      # Set stroke width.
+      def set_stroke_width stroke_width = @stroke_width
+        return send_bundle :set_stroke_width, yield(self.stroke_width) if block_given?
+        return unless @area.set_stroke_width *stroke_width
+        @verses.each{|it| it.set_stroke_width *stroke_width }
+        true
+      end
+
+      # See #set_stroke_width.
+      def stroke_width= param
+        send_bundle :set_stroke_width, param
+      end
+
+      # Get stroke width.
+      def stroke_width
+        @area.fill
+      end
+
+      # Set verse features.
+      def set_verse *a, **ka
+        a.map do |it|
+          case it
+          when Hash
+            set_verse **it
+          when Numeric, :auto
+            set_verse_size it
+          else
+            set_verse_layout it
+          end
+        end.any? | send_branch(__method__, ka)
+      end
+
+      # See #set_verse.
+      def verse= param
+        send_bundle :set_verse, param
+      end
+
+      # Set verse layout.
+      def set_verse_layout layout = nil
+        return send_bundle :set_verse_layout, yield(self.verse_layout) if block_given?
+        return if @verse_layout == layout
+        @verse_layout = layout
+        arrange_verses
+      end
+
+      # See #set_verse_layout.
+      def verse_layout= param
+        send_bundle :set_verse_layout, param
+      end
+
+      # Get verse layout.
+      def verse_layout
+        @verse_layout
+      end
+
+      # Set space between verses.
+      def set_verse_space verse_space = @verse_space
+        return send_bundle :set_verse_space, yield(self.verse_space) if block_given?
+        return if @verse_space == verse_space
+        @verse_space = verse_space
+        layer&.break_layout
+        true
+      end
+      
+      # See #set_verse_space.
+      def verse_space= param
+        send_bundle :set_verse_space, param
+      end
+      
+      # Get space between verses.
+      def verse_space
+        @verse_space || 0
+      end
+
+      # Set verse size.
+      def set_verse_size verse_size = @verse_size
+        return send_bundle :set_verse_size, yield(self.verse_size) if block_given?
+        return if @verse_size == verse_size
+        @verse_size = verse_size
+        arrange_verses
+      end
+
+      # See #set_verse_size.
+      def verse_size= param
+        send_bundle :set_verse_size, param
+      end
+
+      # Get verse size.
+      def verse_size
+        @verse_size
+      end
+
+      # Set a feature recognized by its class.
+      def << feature
+        case feature
+        when String
+          set_subject feature
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      def initialize
+        super
+
+        @verses = []
+        @verse_size = :auto
+      end
+
+      def sketch
+        super
+
+        set_size Fit
+        set_verse_layout :ysc
+        set_verse_size Kredki.text_size
+        set_subject "TEXT"
+      end
+
+      def update_subject subject
+        font = @verses.first&.font || Kredki.font
+        @verses&.each{|it| it.detach }
+        @verses = "#{subject}\n".each_line(chomp: true).map do |line|
+          @scene.new_text line.chomp, fill: @area.fill, font: font
+        end
+        arrange_verses
+        layer&.break_layout
+      end
+
+      def verse_metrics size_y
+        case @verse_size
+        when :auto
+          size_v = 0
+          case @verse_space
+          when Rational
+            size_v = size_y / (1 + (@verses.size - 1) * @verse_space) if @verses.size > 0
+            space = size_v * @verse_space
+          when Numeric
+            size_v = (size_y + (@verses.size - 1) * @verse_space) / @verses.size if @verses.size > 0
+            space = @verse_space
+          when :auto
+            if @verses.size > 0
+              size_v = size_y / @verses.size
+              space = (size_y - @verses.size * size_v) / (@verses.size - 1)
+            else
+              space = 0
+            end
+          else
+            size_v = size_y / @verses.size if @verses.size > 0
+            space = 0
+          end
+        when Rational
+          size_v = @verses.size > 0 ? @verse_size * size_y : 0
+          case @verse_space
+          when Rational
+            space = size_v * @verse_space
+          when Numeric
+            space = @verse_space
+          when :auto
+            if @verses.size > 0
+              space = (size_y - @verses.size * size_v) / (@verses.size - 1)
+            else
+              space = 0
+            end
+          else
+            space = 0
+          end
+        else
+          size_v = @verses.size > 0 ? @verse_size : 0
+          case @verse_space
+          when Rational
+            space = size_v * @verse_space
+          when Numeric
+            space = @verse_space
+          when :auto
+            if @verses.size > 0
+              space = (size_y - @verses.size * size_v) / (@verses.size - 1)
+            else
+              space = 0
+            end
+          else
+            space = 0
+          end
+        end
+
+        [size_v, space]
+      end
+
+      def fit_size_x
+        size_v, _ = verse_metrics get_size_y
+        @verses.map{|it| size_v * it.size_x / it.size_y }.max
+      end
+
+      def fit_size_y
+        size_v, space = verse_metrics 0
+        @margin_ys + @margin_ye + (size_v + space) * @verses.size - space
+      end
+
+      def update_size x, y
+        super and arrange_verses
+      end
+
+      def arrange_verses
+        if @verses.size > 0
+          sx, sy = area_size
+          size_v, space = verse_metrics sy
+          size_t = (size_v + space) * @verses.size - space
+          y = align_y size_t, sy
+          @verses.each do |v|
+            v.set_size_y size_v
+            x = align_x v.size_x, sx
+            v.set_xy x, y
+            y += size_v + space
+          end
+        end
+        true
+      end
+
+      def align_x reference_size_x, size_x
+        case @verse_layout
+        when :yss, :ysc, :yse
+          0
+        when :yes, :yec, :yee
+          size_x - reference_size_x
+        when :ycs, :ycc, :yce
+          (size_x - reference_size_x) * 0.5
+        else raise_is @verse_layout
+        end
+      end
+
+      def align_y reference_size_y, size_y
+        case @verse_layout
+        when :yss, :ycs, :yes
+          0
+        when :yse, :yce, :yee
+          size_y - reference_size_y
+        when :ysc, :ycc, :yec
+          (size_y - reference_size_y) * 0.5
+        else raise_is @verse_layout
+        end
+      end
+    end
+  end
+end