kredki 0.1.0

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

@@ -0,0 +1,394 @@
+module Kredki
+  # Graphical object with custom fill and stroke.
+  class Shape < Paint
+
+    # Helper for creating Shape path.
+    class Crayon
+
+      # Set [+x+, +y+] as crayon position.
+      def jump x, y = x
+        Pastele.shape_move_to @shape.pointer, x, y
+        @x = x
+        @y = y
+        self
+      end
+  
+      # Make line from crayon position to [+x+, +y+] then set [+x+, +y+] as crayon position.
+      def line x, y
+        Pastele.shape_line_to @shape.pointer, x, y
+        @shape.update if @autoupdate
+        @x = x
+        @y = y
+        self
+      end
+  
+      # Make bezier curve from crayon position to [+x+, +y+] with control points [+cx1+, +cy1+] and [+cx2+, +cy2+]. Then set [+x+, +y+] as crayon position.
+      def curve x, y, cx1, cy1, cx2, cy2
+        Pastele.shape_cubic_to @shape.pointer, cx1, cy1, cx2, cy2, x, y
+        @shape.update if @autoupdate
+        @x = x
+        @y = y
+        self
+      end
+
+      # Make ellipse of +size_x+ and +size_y+ with the center at crayon position.
+      def ellipse size_x, size_y = size_x
+        Pastele.shape_append_circle @shape.pointer, @x, @y, size_x * 0.5, size_y * 0.5
+        @shape.update if @autoupdate
+        self
+      end
+
+      # Make rectangle of +w+ width and +h+ height with +corner_ss+, +corner_es+, +corner_se+ and +corner_ee+ corners. 
+      # The rectangle is placed at crayon position.
+      def rectangle w, h = w, corner_ss = 0, corner_es = corner_ss, corner_se = corner_ss, corner_ee = corner_ss
+        Pastele.shape_append_round_rect @shape.pointer, @x - w * 0.5, @y - h * 0.5, w, h, corner_ss, corner_es, corner_se, corner_ee
+        @shape.update if @autoupdate
+        self
+      end
+  
+      # Make line from the crayon position to the first path position.
+      def close
+        Pastele.shape_close @shape.pointer
+        @shape.update if @autoupdate
+        self
+      end
+
+      # :section: LEVEL 2
+
+      def initialize shape, reset = true, x = 0, y = 0
+        @shape = shape
+        @autoupdate = true
+        Pastele.shape_reset @shape.pointer if reset
+        jump x, y
+      end
+
+      attr_accessor :autoupdate
+      attr :shape
+
+      # Publicate prepared path.
+      def commit
+        @shape.update
+      end
+    end
+
+    # Get Crayon to create custom path.
+    #
+    # +block+ is called in Crayon context if given.
+    def draw reset = true, x = 0, y = 0, &block
+      crayon = Crayon.new self, reset, x, y
+      if block
+        crayon.autoupdate = false
+        crayon.set &block
+        crayon.commit
+        crayon.autoupdate = true
+      end
+      crayon
+    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
+      norm_fill = Kredki.fill fill
+      case norm_fill
+      when Color
+        Pastele.shape_set_fill_color @pointer, *norm_fill
+      when LinearGradient
+        Pastele.shape_set_fill_linear_gradient @pointer, *norm_fill.ffi
+      when RadialGradient
+        Pastele.shape_set_fill_radial_gradient @pointer, *norm_fill.ffi
+      end
+      @fill = fill
+      update
+    end
+
+    # See #set_fill.
+    def fill= param
+      send_bundle :set_fill, param
+    end
+
+    # Get fill.
+    def fill
+      @fill
+    end
+
+    # Available fill rules.
+    class FillRule
+      class << self
+        # Default fill rule.
+        def winding = 0 
+        def even_odd = 1
+      end
+    end
+    
+    # Set fill rule.
+    def set_fill_rule rule = @fill_rule
+      return set_fill_rule yield @fill_rule if block_given?
+      return if @fill_rule == rule
+      Pastele.shape_set_fill_rule @pointer, FillRule.send(rule || :winding)
+      @fill_rule = rule
+      update
+    end
+
+    # See #set_fill_rule.
+    def fill_rule= param
+      send_bundle :set_fill_rule, param
+    end
+
+    # Get fill rule.
+    def fill_rule
+      @fill_rule
+    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?
+      stroke_fill = Util.uncover stroke_fill
+      return if @stroke_fill == stroke_fill && stroke_fill != :random
+      norm_fill = Kredki.fill stroke_fill
+      case norm_fill
+      when Color
+        Pastele.shape_set_stroke_color @pointer, *norm_fill
+      when LinearGradient
+        Pastele.shape_set_stroke_linear_gradient @pointer, *norm_fill.ffi
+      when RadialGradient
+        Pastele.shape_set_stroke_radial_gradient @pointer, *norm_fill.ffi
+      end
+      @stroke_fill = stroke_fill
+      update
+    end
+
+    # See #set_stroke_fill.
+    def stroke_fill= param
+      send_bundle :set_stroke_fill, param
+    end
+
+    # Get stroke fill.
+    def stroke_fill
+      @stroke_fill
+    end
+
+    # Set stroke width.
+    def set_stroke_width stroke_width = @stroke_width
+      return set_stroke_width yield @stroke_width if block_given?
+      return if @stroke_width == stroke_width
+      update_stroke_width stroke_width
+      update
+    end
+
+    def update_stroke_width stroke_width
+      Pastele.shape_set_stroke_width @pointer, stroke_width.to_f
+      @stroke_width = stroke_width
+    end
+
+    # See #set_stroke_width.
+    def stroke_width= param
+      send_bundle :set_stroke_width, param
+    end
+
+    # Get stroke width.
+    def stroke_width
+      @stroke_width
+    end
+
+    # Available stroke path ending methods.
+    class StrokeCap
+      class << self
+        # Default stroke cap.
+        def square = 0
+        def round = 1
+        def butt = 2
+      end
+    end
+
+    # Set stroke path ending method.
+    def set_stroke_cap stroke_cap = @stroke_cap
+      return set_stroke_cap yield @stroke_cap if block_given?
+      return if @stroke_cap == stroke_cap
+      Pastele.shape_set_stroke_cap @pointer, StrokeCap.send(stroke_cap || :square)
+      @stroke_cap = stroke_cap
+      update
+    end
+
+    # See #set_stroke_cap.
+    def stroke_cap= param
+      send_bundle :set_stroke_cap, param
+    end
+
+    # Get stroke path ending method.
+    def stroke_cap
+      @stroke_cap
+    end
+
+    # Available stroke connection methods.
+    class StrokeJoin
+      class << self
+        # Default stroke join.
+        def bevel = 0
+        def round = 1
+        # def miter = 2 ### intentional commented out; miter is set when join is numeric
+      end
+    end
+
+    # Set stroke connection method.
+    def set_stroke_join stroke_join = @stroke_join
+      return set_stroke_join yield @stroke_join if block_given?
+      return if @stroke_join == stroke_join
+      if stroke_join.is_a? Numeric
+        Pastele.shape_set_stroke_join @pointer, 2
+        Pastele.shape_set_stroke_miterlimit @pointer, stroke_join
+      else
+        Pastele.shape_set_stroke_join @pointer, StrokeJoin.send(stroke_join || :bevel)
+      end
+      @stroke_join = stroke_join
+      update
+    end
+
+    # See #set_stroke_join.
+    def stroke_join= param
+      send_bundle :set_stroke_join, param
+    end
+
+    # Get stroke connection method.
+    def stroke_join
+      @stroke_join
+    end
+
+    # Set stroke dash pattern.
+    def set_stroke_pattern *stroke_pattern
+      return send_bundle :set_stroke_pattern, yield(self.stroke_pattern) if block_given?
+      return if @stroke_pattern == stroke_pattern
+      Pastele.shape_set_stroke_dash @pointer, Fiddle::Pointer[stroke_pattern.pack "f*"], stroke_pattern.length, 0
+      @stroke_pattern = stroke_pattern
+      update
+    end
+
+    # See #set_stroke_pattern.
+    def stroke_pattern= param
+      send_bundle :set_stroke_pattern, param
+    end
+
+    # Get stroke dash pattern.
+    def stroke_pattern
+      @stroke_pattern
+    end
+
+    # Set whether stroke is drawn behind the fill.
+    def set_stroke_behind value = true
+      return if (c = stroke_behind) == (value = block_given? ? yield(c) : value == Not ? !c : value)
+      Pastele.shape_set_paint_order @pointer, value ? 1 : 0
+      @stroke_behind = value
+      true
+    end
+
+    # See #set_stroke_behind.
+    def stroke_behind= value
+      set_stroke_behind value
+    end
+    
+    # Get whether stroke is drawn behind the fill.
+    def stroke_behind
+      @stroke_behind
+    end
+
+    # See #stroke_behind.
+    def stroke_behind?
+      !!stroke_behind
+    end
+
+    # Set stroke displayed part.
+    def set_stroke_trim *stroke_trim
+      return send_bundle :set_stroke_trim, yield(self.stroke_trim) if block_given?
+      stroke_trim = Util.uncover stroke_trim
+      return if @stroke_trim == stroke_trim
+      start, finish, simultaneous = *StrokeTrim[stroke_trim].to_a
+      Pastele.shape_set_stroke_trim @pointer, start, finish, simultaneous ? 1 : 0
+      @stroke_trim = stroke_trim
+      update
+    end
+
+    # See #set_stroke_trim.
+    def stroke_trim= param
+      send_bundle :set_stroke_trim, param
+    end
+
+    # Get stroke displayed part.
+    def stroke_trim
+      @stroke_trim
+    end
+
+    # Get features.
+    def to_hash
+      super.merge({
+        fill: @fill,
+        stroke_width: @stroke_width,
+        stroke_fill: @stroke_fill
+      })
+    end
+
+    # :section: LEVEL 2
+
+    class StrokeTrim
+
+      def initialize start, finish, simultaneous
+        @start = start
+        @finish = finish
+        @simultaneous = simultaneous
+      end
+
+      def self.[](param)
+        case param
+        in self
+          param
+        in [start, finish]
+          self.new start, finish, false
+        in [start, finish, simultaneous]
+          self.new start, finish, simultaneous
+        else raise_ia param
+        end
+      end
+
+      def to_a
+        [@start, @finish, @simultaneous]
+      end
+    end
+
+    def initialize extended = false, pointer = nil
+      super pointer || Pastele.shape_new
+      ObjectSpace.define_finalizer(self, Shape.finalizer(@pointer)) unless pointer
+
+      @stroke_width = 0
+      set_stroke_join :bevel
+      @fill = Kredki.color
+      Pastele.shape_set_fill_color @pointer, *@fill
+      @stroke_fill = Kredki.color
+      Pastele.shape_set_stroke_color @pointer, *@stroke_fill
+      @is_mask = false
+      update unless extended
+    end
+
+    def self.finalizer pointer
+      proc{ Pastele.shape_delete pointer }
+    end
+  end
+end 

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

@@ -0,0 +1,57 @@
+require_relative 'shape'
+require_relative 'area'
+
+module Kredki
+  # Base class for Shape's with defined size.
+  class ShapeArea < Shape
+    include Area
+
+    # Set a feature recognized by its class.
+    def << feature
+      case feature
+      in [x, y]
+        set_size x, y
+      in Numeric
+        set_size feature
+      else
+        super
+      end
+    end
+
+    # Get features.
+    def to_hash
+      super.merge({
+        size_x: @size_x,
+        size_y: @size_y
+      })
+    end
+
+    # :section: LEVEL 2
+
+    def initialize
+      @size_x = @size_y = 100
+      @redraw_flag = true
+
+      super
+    end
+
+    def pivot
+      [@size_x * 0.5, @size_y * 0.5]
+    end
+
+    def update_stroke_width ...
+      super
+      @redraw_flag = true
+    end
+
+    def update
+      if @redraw_flag
+        @redraw_flag = false
+        redraw
+        true
+      else
+        super
+      end
+    end
+  end
+end

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

@@ -0,0 +1,222 @@
+module Kredki
+  class Text < Paint
+
+    # Set content.
+    def set_content content = @content
+      return set_content yield @content if block_given?
+      return if @content == content
+      Pastele.text_set_text @pointer, content.to_s
+      @content = content
+      update_size
+    end
+
+    # See #set_content.
+    def content= param
+      send_bundle :set_content, param
+    end
+
+    # Get content.
+    def content
+      @content
+    end
+
+    # Get size in X axis.
+    def size_x
+      @size_x
+    end
+
+    # Set size in X axis. It can also affect the 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
+      Pastele.text_set_size @pointer, size_y
+      @size_y = size_y
+      update_size
+    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
+
+    # Get size.
+    def size
+      [@size_x, @size_y]
+    end
+
+    # Set font.
+    def set_font font
+      return set_font yield @font if block_given?
+      return if @font == font
+      Pastele.text_set_font @pointer, Kredki.font(font).name
+      @font = font
+      update_size
+    end
+
+    # See #set_font.
+    def font= param
+      send_bundle :set_font, param
+    end
+
+    # Get font.
+    def font
+      @font
+    end
+
+    # Set fill color.
+    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
+      norm_fill = Kredki.fill fill
+      case norm_fill
+      when Color
+        Pastele.text_set_fill_color @pointer, *norm_fill.to_rgb
+      when LinearGradient
+        Pastele.text_set_fill_linear_gradient @pointer, *norm_fill.ffi
+      when RadialGradient
+        Pastele.text_set_fill_radial_gradient @pointer, *norm_fill.ffi
+      end
+      @fill = fill
+      update
+    end
+
+    # See #set_fill.
+    def fill= param
+      send_bundle :set_fill, param
+    end
+
+    # Get fill color.
+    def fill
+      @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?
+      stroke_fill = Util.uncover stroke_fill
+      return if @stroke_fill == stroke_fill && stroke_fill != :random
+      update_stroke stroke_fill, @stroke_width
+      @stroke_fill = stroke_fill
+      update
+    end
+
+    # See #set_stroke_fill.
+    def stroke_fill= param
+      send_bundle :set_stroke_fill, param
+    end
+
+    # Get stroke fill.
+    def stroke_fill
+      @stroke_fill
+    end
+
+    # Set stroke width.
+    def set_stroke_width stroke_width = @stroke_width
+      return set_stroke_width yield @stroke_width if block_given?
+      return if @stroke_width == stroke_width
+      update_stroke @stroke_fill, stroke_width
+      @stroke_width = stroke_width
+      update
+    end
+
+    # See #set_stroke_width.
+    def stroke_width= param
+      send_bundle :set_stroke_width, param
+    end
+
+    # Get stroke width.
+    def stroke_width
+      @stroke_width
+    end
+
+    # Get +string+ width rendered with +@font+ and +@size_y+ up to character at +index+.
+    # If +index+ is +null+ or -1, +string+ width is returned.
+    # If +index+ is equal to string length, +string+ width is returned plus last character rsb.
+    def substring_width index = nil, string = @content
+      Pastele.text_get_text_width(@pointer, string.to_s, index || -1).ceil
+    end
+
+    # Get index of nearest character for +string+ rendered with +@font+ and +@size_y+, truncated to +size_max+.
+    def nearest_character_index size_max, string = @content
+      return 0 if size_max <= 0
+      Pastele.text_nearest_character_index @pointer, string.to_s, size_max
+    end
+
+    # Set a feature recognized by its class.
+    def << feature
+      case feature
+      in String
+        set_content feature
+      in Numeric
+        set_size_y feature
+      else
+        super
+      end
+    end
+
+    # :section: LEVEL 2
+
+    def initialize
+      super Pastele.text_new
+      ObjectSpace.define_finalizer(self, Text.finalizer(@pointer))
+
+      @content = "TEXT"
+      @font = Kredki.font
+      @fill = Kredki.color
+      @stroke_fill = Kredki.color
+      @stroke_width = 0
+      @size_y = Kredki.text_size
+      
+      Pastele.text_set_text @pointer, @content
+      Pastele.text_set_font @pointer, @font.name
+      Pastele.text_set_size @pointer, @size_y
+      Pastele.text_set_fill_color @pointer, *@fill.to_a(:rgb)
+      update_size
+    end
+
+    def self.finalizer pointer
+      proc{ Pastele.text_delete pointer }
+    end
+
+    def pivot
+      [@size_x * 0.5, @size_y * 0.5]
+    end
+
+    def update_size
+      @size_x = substring_width
+      update_transform
+      update
+    end
+
+    def update_stroke color, width
+      c = Kredki.color color
+      Pastele.text_set_outline @pointer, width, *c.to_rgb
+    end
+
+  end
+end